(VBScript) Appending Strings to BinData

Demonstrates appending strings to a BinData..

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 binData1 = CreateObject("Chilkat.BinData")

' Append a string using a 1-byte per char encoding
success = binData1.AppendString("This is a test","windows-1252")
outFile.WriteLine(binData1.GetEncoded("hex"))
' The bytes contained within the binData1 (in hex) are: 54,68,69,73,20,69, ...

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

' Append a string using a 2-byte per char encoding
success = binData2.AppendString("This is a test","utf-16")
outFile.WriteLine(binData2.GetEncoded("hex"))
' The bytes contained within the binData2 (in hex) are: 54,00,68,00,69,00,73,00,20,00,69,00, ...

outFile.Close