(VBScript) Decode 2-digit Hex Escaped

Demonstrates how to replace escaped us-ascii chars such as \x7b and \x22 with the chars.

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 following string with some us-ascii chars escaped like this:
s = "\x7b\x22responseContext\x22:\x7b\x22"

' Note: The above escaping does not conform to any standard format (as far as I know).
' Chilkat does not have anything to decode from the above.
' However, we can 1st transform into a standard format, and then decode..

' JSON escapes chars outside us-ascii like this:  "Hello, \ud83d\ude03!"
' We can transform the above to this:  "\u007b\u0022responseContext\u0022:\u007b\u0022"
' And then decode..

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

success = sb.Append(s)
numReplaced = sb.Replace("\x","\u00")

' Now decode from "json" escapes
success = sb.Decode("json","utf-8")

' Show the decoded string
outFile.WriteLine(sb.GetAsString())

' Here's the result: {"responseContext":{"

outFile.Close