Visual FoxPro

JSON Escape and Unescape a String

Demonstrates how to JSON escape or unescape a string. Visual FoxPro

LOCAL loSb

loSb = CreateObject('Chilkat.StringBuilder')

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

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

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

RELEASE loSb