(VBScript) Append Big-Endian or Little-Endian Integers

Demonstrates how to append integers in big-endian or little-endian byte order to a BinData.

Note: This example requires Chilkat v9.5.0.77 or greater.

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

' The hex value of decimal 123456789 is 0x075BCD15
x = 123456789

' Appending little-endian causes bytes to be
' appended in the order 0x15, 0xCD, 0x5B, 0x07
littleEndian = 1
success = bd.AppendInt4(x,littleEndian)

outFile.WriteLine(bd.GetEncoded("hex"))
' Output is: 15CD5B07

' Now append the same integer in big-endian byte order.
' Appending bit-endian causes bytes to be
' appended in the order 0x07, 0x5B, 0xCD, 0x15
littleEndian = 0
success = bd.AppendInt4(x,littleEndian)

outFile.WriteLine(bd.GetEncoded("hex"))
' bd now contains: 15CD5B07075BCD15

' -------------------------------------------
' Now do the same thing with 16-bit integers
success = bd.Clear()

' 1234 decimal = 0x04D2 hex.
x = 1234

littleEndian = 1
success = bd.AppendInt2(x,littleEndian)

outFile.WriteLine(bd.GetEncoded("hex"))
' Output is: D204

littleEndian = 0
success = bd.AppendInt2(x,littleEndian)

outFile.WriteLine(bd.GetEncoded("hex"))
' Output is now: D20404D2

outFile.Close