(VBScript) StringBuilder Encode Charset

Demonstrates the importance of the charset argument when encoding/decoding.

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)

s = "é é é"

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

success = sb.Append(s)
success = sb.EntityDecode()

' The string now contains: "é é é"
outFile.WriteLine(sb.GetAsString())

' If encoded to hex using the iso-8859-1 charset, 
' each é char is represented in 1 byte.
' Output: E920E920E9
outFile.WriteLine(sb.GetEncoded("hex","iso-8859-1"))

' If encoded to hex using the utf-8 charset, 
' each é char is represented in 2 bytes.
' Output: C3A920C3A920C3A9
outFile.WriteLine(sb.GetEncoded("hex","utf-8"))

' Here's utf-16
' Output: E9002000E9002000E900
outFile.WriteLine(sb.GetEncoded("hex","utf-16"))

' utf-32
' Output: E900000020000000E900000020000000E9000000
outFile.WriteLine(sb.GetEncoded("hex","utf-32"))

outFile.Close