VBScript

Unicode Escape

Convert a string to Unicode escaped values. 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 sb = CreateObject("Chilkat.StringBuilder")

str = "bôn"
charset = "not_used"

' Unicode escape all chars using \uHHHH
success = sb.SetString(str)
success = sb.Encode("unicode-escape-all",charset)
outFile.WriteLine(sb.GetAsString())
' Output is \u0062\u00f4\u006e

' Unicode escape only 8bit chars using \uHHHH
success = sb.SetString(str)
success = sb.Encode("unicode-escape-8bit",charset)
outFile.WriteLine(sb.GetAsString())
' Output is b\u00f4n

' To use uppercase hex chars (A-F), add "-upper" to the encoding name
success = sb.SetString(str)
success = sb.Encode("unicode-escape-all-upper",charset)
outFile.WriteLine(sb.GetAsString())
' Output is \u0062\u00F4\u006E

' Unicode escape all chars using \u{HHHH}
success = sb.SetString(str)
success = sb.Encode("unicode-escape-all-curly-upper",charset)
outFile.WriteLine(sb.GetAsString())
' Output is \u{0062}\u{00F4}\u{006E}

' Unicode escape 8bit chars using HTML hex &#xH;
success = sb.SetString(str)
success = sb.Encode("unicode-escape-8bit-html-hex",charset)
outFile.WriteLine(sb.GetAsString())
' Output is bôn

' Unicode escape all chars using HTML decimal &#D;
success = sb.SetString(str)
success = sb.Encode("unicode-escape-all-html-dec",charset)
outFile.WriteLine(sb.GetAsString())
' Output is bôn

' Unicode escape all chars using u+HHHH
success = sb.SetString(str)
success = sb.Encode("unicode-escape-all-plus",charset)
outFile.WriteLine(sb.GetAsString())
' Output is u+0062u+00f4u+006e

' Unicode escape 8bit chars using angled brackets <HHHH>
success = sb.SetString(str)
success = sb.Encode("unicode-escape-8bit-angle-upper",charset)
outFile.WriteLine(sb.GetAsString())
' Output is b<00F4>n

outFile.Close