VBScript

StringBuilder Encode

Demonstrates the Chilkat StringBuilder Encode method. 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)

s = "The quick brown fox jumps over the lazy dog"

set sb = CreateObject("Chilkat.StringBuilder")

success = sb.Append(s)

' output: The quick brown fox jumps over the lazy dog
outFile.WriteLine(sb.GetAsString())

success = sb.Encode("base64","utf-8")

' output: VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wcyBvdmVyIHRoZSBsYXp5IGRvZw==
outFile.WriteLine(sb.GetAsString())

success = sb.Decode("base64","utf-8")
' output: The quick brown fox jumps over the lazy dog
outFile.WriteLine(sb.GetAsString())

' Now encode to hex..
success = sb.Encode("hex","utf-8")
' output: 54686520717569636B2062726F776E20666F78206A756D7073206F76657220746865206C617A7920646F67
outFile.WriteLine(sb.GetAsString())

success = sb.Decode("hex","utf-8")
' URL encode
success = sb.Encode("url","utf-8")
outFile.WriteLine(sb.GetAsString())

success = sb.Decode("url","utf-8")
' base64url
success = sb.Encode("base64url","utf-8")
outFile.WriteLine(sb.GetAsString())

' other possible encodings include modbase64, base32, base58, quoted-printable, url_rfc1738, url_rfc2396, url_rfc3986, and fingerprint

outFile.Close