Xbase++

JSON Escape and Unescape a String

Demonstrates how to JSON escape or unescape a string. Xbase++

LOCAL oSb

oSb := CreateObject("Chilkat.StringBuilder")

oSb:Append("backslash: \\, A: \u0041")
? oSb: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.
oSb:Decode("json", "utf-8")
? oSb:GetAsString()

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

//  Now JSON escape the string.
oSb:Encode("json", "utf-8")
? oSb: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.

oSb:destroy()