FUNCTION String ( Source AS String [ , Level AS
Integer, AllowGrow AS Boolean ]
) AS String
|
Эта функция возвращает сжатую строку, используя алгоритм, определенный
свойством Type .
- Source : строка для сжатия.
- Level : уровень сжатия, значение от Min до значения Max . Если параметр опущен,
будет использовано Default
.
- AllowGrow : если этот параметр
опущен, или вы передаете FALSE, как значение, эта функция вернет сжатую
строку, только если ее длина меньше, чем оригинальная (не сжатая) длина
строки. Если вы передаете TRUE, она всегда будет возвращаться сжатой
строкой. Зметьте, что также все алгоритмы сжатия могут реально сжать
строку (уменьшит ее длину), только если она имеет чистый шаблон. Очень
короткие строки и случайные строки поддаются сжатию с трудом.
...
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
...