(VB.NET) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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

Dim success As Boolean
Dim sb As New Chilkat.StringBuilder

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

Dim compress As New Chilkat.Compression
compress.Algorithm = "deflate"
' Indicate that the utf-8 byte representation of the string should be compressed.
compress.Charset = "utf-8"

Dim compressedBytes() As Byte
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"
Dim compressedBase64 As String = compress.CompressStringENC(sb.GetAsString())
Debug.WriteLine("Compressed Bytes as Base64: " & compressedBase64)


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

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