(Visual Basic 6.0) 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

' We have the following string with some us-ascii chars escaped like this:
Dim s As String
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..

Dim sb As New ChilkatStringBuilder

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

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

' Show the decoded string
Debug.Print sb.GetAsString()

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