Compress.String
(gb.compress)
Function String ( Source As String [ , Level As Integer, AllowGrow As Boolean ] ) As String
Оваа функција враќа стринг компресиран со алгоритамот дефиниран со
својството Type.
- Аргументот Source е стрингот кој треба да се компресира
- Аргументот Level е степенот на компресија чија вредност се движи во опсегот од Min до Max. Ако овој параметар недостасува, ќе се користи предодредена вредност.
- Аргументот AllowGrow: Ако овој параметар го нема или е поставен на FALSE, оваа метода враќа компресиран стринг само ако неговата должина е помала од должината на оригиналниот (некомпресиран) стринг. Ако проследите TRUE, матодот секогаш ќе врати компресиран стринг. Забележете дека скоро сите алгоритми за компресирање може да го компресираат стрингот (т.е. да му ја намалат должината) само во случај ако во стрингот се јасно воочливи повторливи елементи. Можне кусите стрингови или стринговите со случаен распоред на карактери мошне тешко може да се компресираат.
Example
Dim Cz As New Compress
Dim Buf As String
Cz.Type = "bzlib2"
Buf = Cz.String(SourceString,Cz.Max,FALSE)
IF Len(Buf) < Len(SourceString) THEN
PRINT "Compression successfully finished"
ELSE
PRINT "Unable to compress that string"
END IF