VBScript

Append Encoded Binary Data to StringBuilder

Demonstrates how to append encoded binary data to the contenets of a StringBuilder. 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

set bd = CreateObject("Chilkat.BinData")

success = bd.LoadFile("qa_data/jpg/starfish.jpg")
If (success = 0) Then
    outFile.WriteLine("Failed to load file.")
    WScript.Quit
End If

' For example, let's say we want construct simple JSON containing the base64 representation of the above JPG file.
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append("{ ""jpg"": """)
' GetEncodedSb appends the enocded representation of the binary data to the StringBuiler passed in the 2nd arg.
success = bd.GetEncodedSb("base64",sb)
success = sb.Append(""" }")

outFile.WriteLine(sb.GetAsString())

' Output looks like this:
'  { "jpg": "/9j/4AAQSkZJRgABAg...rcQ+vo//2Q==" }

outFile.Close