VBScript

Compress String Feed to Base64

See more Compression Examples

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed data in base64. VBScript

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

success = 0

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

set sbCompressedBase64 = CreateObject("Chilkat.StringBuilder")

set compress = CreateObject("Chilkat.Compression")
compress.Algorithm = "deflate"
compress.Charset = "utf-8"
compress.EncodingMode = "base64"

compress.FirstChunk = 1
compress.LastChunk = 0

set bdCompressed = CreateObject("Chilkat.BinData")
set sbUncompressedChunk = CreateObject("Chilkat.StringBuilder")

For i = 0 To 24
    If (i = 24) Then
        compress.LastChunk = 1
    End If

    sbUncompressedChunk.Clear 
    success = sbUncompressedChunk.AppendInt(i)
    success = sbUncompressedChunk.Append(": This is a line of data to be compressed..." & vbCrLf)

    success = compress.CompressSb(sbUncompressedChunk,bdCompressed)

    compress.FirstChunk = 0
Next

outFile.WriteLine("The base64 encoded compressed text:")
outFile.WriteLine(bdCompressed.GetEncoded("base64"))

' Decompress in one call:
originalText = compress.DecompressStringENC(bdCompressed.GetEncoded("base64"))
outFile.WriteLine(originalText)

outFile.Close