Xbase++

Unicode Escape

Convert a string to Unicode escaped values. Xbase++

LOCAL nSuccess
LOCAL oSb
LOCAL cStr
LOCAL cCharset

nSuccess := 0

oSb := CreateObject("Chilkat.StringBuilder")

cStr := "bôn"
cCharset := "not_used"

//  Unicode escape all chars using \uHHHH
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-all", cCharset)
? oSb:GetAsString()
//  Output is \u0062\u00f4\u006e

//  Unicode escape only 8bit chars using \uHHHH
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-8bit", cCharset)
? oSb:GetAsString()
//  Output is b\u00f4n

//  To use uppercase hex chars (A-F), add "-upper" to the encoding name
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-all-upper", cCharset)
? oSb:GetAsString()
//  Output is \u0062\u00F4\u006E

//  Unicode escape all chars using \u{HHHH}
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-all-curly-upper", cCharset)
? oSb:GetAsString()
//  Output is \u{0062}\u{00F4}\u{006E}

//  Unicode escape 8bit chars using HTML hex &#xH;
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-8bit-html-hex", cCharset)
? oSb:GetAsString()
//  Output is bôn

//  Unicode escape all chars using HTML decimal &#D;
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-all-html-dec", cCharset)
? oSb:GetAsString()
//  Output is bôn

//  Unicode escape all chars using u+HHHH
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-all-plus", cCharset)
? oSb:GetAsString()
//  Output is u+0062u+00f4u+006e

//  Unicode escape 8bit chars using angled brackets <HHHH>
nSuccess := oSb:SetString(cStr)
oSb:Encode("unicode-escape-8bit-angle-upper", cCharset)
? oSb:GetAsString()
//  Output is b<00F4>n

oSb:destroy()