(VBScript) JSON Escape and Unescape a String

Demonstrates how to JSON escape or unescape a string.

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)

set sb = CreateObject("Chilkat.StringBuilder")

success = sb.Append("backslash: \\, A: \u0041")
outFile.WriteLine(sb.GetAsString())

' The output is:
'    backslash: \\, A: \u0041

' The keyword "json" can be used
' to escape and unescape.  To escape is to encode.  To unescape is to decode.

' Unescape (decode) the string in sb.
success = sb.Decode("json","utf-8")
outFile.WriteLine(sb.GetAsString())

' After JSON unescaping:
'    backslash: \, A: A

' Now JSON escape the string.
success = sb.Encode("json","utf-8")
outFile.WriteLine(sb.GetAsString())

' After JSON escaping:
'    backslash: \\, A: A

' Note: The "A" is not escaped to "\u0041" because there is no need.
' The "\uXXXX" format would be produced for non-printable control chars.

outFile.Close