(VBScript) Demonstrate Binary Data Encoding Methods

Demonstrates binary data encoding methods.

Note: This example requires Chilkat v9.5.0.64 or later.

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)

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

' Append 10 bytes: 00, 01, 02, 03, 04, 05, 06, 07, 08, 09
success = binData.AppendEncoded("00010203040506070809","hex")

' Show that binData contains 10 bytes.
outFile.WriteLine("num bytes = " & binData.NumBytes)

' Get as base64
outFile.WriteLine("base64: " & binData.GetEncoded("base64"))

' Get a chunk of the binary data.
' The 1st byte is at index 0.
' The output should be "02030405"
offset = 2
numBytes = 4
outFile.WriteLine("chunk: " & binData.GetEncodedChunk(offset,numBytes,"hex"))

' Copy the bytes to a StringBuilder using the base64url encoding
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = binData.GetEncodedSb("base64url",sb)
outFile.WriteLine("base64url: " & sb.GetAsString())

' Remove a chunk from the binary data
offset = 2
numBytes = 4
success = binData.RemoveChunk(offset,numBytes)
' The bytes remaining are 00,01,06,07,08,and 09
outFile.WriteLine("after removing chunk: " & binData.GetEncoded("hex"))

outFile.Close