(VBScript) Decode from Binary Encoding and Append String

Demonstrates how to decode from a binary encoding (base64, hex, url, etc.) and then append the decoded string to a Chilkat StringBuilder object.

Note: This example uses the new DecodeAndAppend method added in Chilkat v9.5.0.87.

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)

' We have the string "MÆRSK" in two forms:

' This is the URL encoding of the windows-1252 representation.
nameWindows1252UrlEncoded = "M%C6RSK"

' This is the URL encoding of the utf-8 representation.
nameUtf8UrlEncoded = "M%C3%86RSK"

' Note that the result of loading a string into a string object 
' is the same if we correctly specify the underlying charset encoding.
' In the above example, we have the same string, but in different charset encodings
' subsequently URL encoded.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb1 = CreateObject("Chilkat.StringBuilder")
success = sb1.DecodeAndAppend(nameWindows1252UrlEncoded,"url","windows-1252")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb2 = CreateObject("Chilkat.StringBuilder")
success = sb2.DecodeAndAppend(nameUtf8UrlEncoded,"url","utf-8")

' sb1 and sb2 both hold the same string.
bEqual = sb1.ContentsEqualSb(sb2,1)
outFile.WriteLine("bEqual = " & bEqual)

' We can see the string is "MÆRSK" in both cases.
outFile.WriteLine(sb1.GetAsString())
outFile.WriteLine(sb2.GetAsString())

outFile.Close