DataFlex

Unicode Escape

Convert a string to Unicode escaped values. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoSb
    String sStr
    String sCharset
    String sTemp1

    Move False To iSuccess

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

    Move "bôn" To sStr
    Move "not_used" To sCharset

    // Unicode escape all chars using \uHHHH
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-all" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is \u0062\u00f4\u006e

    // Unicode escape only 8bit chars using \uHHHH
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-8bit" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is b\u00f4n

    // To use uppercase hex chars (A-F), add "-upper" to the encoding name
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-all-upper" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is \u0062\u00F4\u006E

    // Unicode escape all chars using \u{HHHH}
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-all-curly-upper" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is \u{0062}\u{00F4}\u{006E}

    // Unicode escape 8bit chars using HTML hex &#xH;
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-8bit-html-hex" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is bôn

    // Unicode escape all chars using HTML decimal &#D;
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-all-html-dec" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is bôn

    // Unicode escape all chars using u+HHHH
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-all-plus" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is u+0062u+00f4u+006e

    // Unicode escape 8bit chars using angled brackets <HHHH>
    Get ComSetString Of hoSb sStr To iSuccess
    Get ComEncode Of hoSb "unicode-escape-8bit-angle-upper" sCharset To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1
    // Output is b<00F4>n


End_Procedure