(VBScript) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")

For i = 1 To 20
    success = sb.Append("This is the original uncompressed string." & vbCrLf)
Next

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Compression")
set compress = CreateObject("Chilkat.Compression")
compress.Algorithm = "deflate"
' Indicate that the utf-8 byte representation of the string should be compressed.
compress.Charset = "utf-8"

compressedBytes = compress.CompressString(sb.GetAsString())

' If the compressed data is desired in string format, then get the base64 representation of the bytes.
compress.EncodingMode = "base64"
compressedBase64 = compress.CompressStringENC(sb.GetAsString())
outFile.WriteLine("Compressed Bytes as Base64: " & compressedBase64)

' Now decompress...
decompressedString = compress.DecompressString(compressedBytes)
outFile.WriteLine("The original string after decompressing from binary compressed data:")
outFile.WriteLine(decompressedString)

' To decompress from Base64...
compress.EncodingMode = "base64"
decompressedString = compress.DecompressStringENC(compressedBase64)
outFile.WriteLine("The original string after decompressing from Base64:")
outFile.WriteLine(decompressedString)

outFile.Close