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，则总是返回压缩的字符串。注意，只要字符串有清晰的模式，几乎所有压缩算法都可以真正地压缩它(减少它的长度)。 非常短的字符串和随机字符串很难被压缩。
Examples
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 "压缩成功结束"
ELSE
PRINT "不能压缩该字符串"
END IF