(DataFlex) JSON Escape and Unescape a String

The encoding mode keyword "json" was added in Chilkat v9.5.0.66 to provide the ability to escape and unescape JSON strings. See Chilkat Encodings for the full list of encoding keywords, such as "base64", "hex", "url", etc.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSb
    Boolean iSuccess
    String sTemp1

    // Note: This example requires Chilkat version 9.5.0.66 or greater.

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End

    Get ComAppend Of hoSb "backslash: \\, A: \u0041" To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1

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

    // Starting in Chilkat v9.5.0.66, 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.
    Get ComDecode Of hoSb "json" "utf-8" To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1

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

    // Now JSON escape the string.
    Get ComEncode Of hoSb "json" "utf-8" To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1

    // 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.


End_Procedure