Visual FoxPro

Unicode Escape

Convert a string to Unicode escaped values. Visual FoxPro

LOCAL lnSuccess
LOCAL loSb
LOCAL lcStr
LOCAL lcCharset

lnSuccess = 0

loSb = CreateObject('Chilkat.StringBuilder')

lcStr = "bôn"
lcCharset = "not_used"

* Unicode escape all chars using \uHHHH
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-all",lcCharset)
? loSb.GetAsString()
* Output is \u0062\u00f4\u006e

* Unicode escape only 8bit chars using \uHHHH
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-8bit",lcCharset)
? loSb.GetAsString()
* Output is b\u00f4n

* To use uppercase hex chars (A-F), add "-upper" to the encoding name
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-all-upper",lcCharset)
? loSb.GetAsString()
* Output is \u0062\u00F4\u006E

* Unicode escape all chars using \u{HHHH}
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-all-curly-upper",lcCharset)
? loSb.GetAsString()
* Output is \u{0062}\u{00F4}\u{006E}

* Unicode escape 8bit chars using HTML hex &#xH;
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-8bit-html-hex",lcCharset)
? loSb.GetAsString()
* Output is bôn

* Unicode escape all chars using HTML decimal &#D;
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-all-html-dec",lcCharset)
? loSb.GetAsString()
* Output is bôn

* Unicode escape all chars using u+HHHH
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-all-plus",lcCharset)
? loSb.GetAsString()
* Output is u+0062u+00f4u+006e

* Unicode escape 8bit chars using angled brackets <HHHH>
lnSuccess = loSb.SetString(lcStr)
loSb.Encode("unicode-escape-8bit-angle-upper",lcCharset)
? loSb.GetAsString()
* Output is b<00F4>n

RELEASE loSb