Tcl

Unicode Escape

Convert a string to Unicode escaped values. Tcl

load ./chilkat.dll

set success 0

set sb [new_CkStringBuilder]

set str "bôn"
set charset "not_used"

# Unicode escape all chars using \uHHHH
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-all" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is \u0062\u00f4\u006e

# Unicode escape only 8bit chars using \uHHHH
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-8bit" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is b\u00f4n

# To use uppercase hex chars (A-F), add "-upper" to the encoding name
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-all-upper" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is \u0062\u00F4\u006E

# Unicode escape all chars using \u{HHHH}
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-all-curly-upper" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is \u{0062}\u{00F4}\u{006E}

# Unicode escape 8bit chars using HTML hex &#xH;
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-8bit-html-hex" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is bôn

# Unicode escape all chars using HTML decimal &#D;
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-all-html-dec" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is bôn

# Unicode escape all chars using u+HHHH
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-all-plus" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is u+0062u+00f4u+006e

# Unicode escape 8bit chars using angled brackets <HHHH>
set success [CkStringBuilder_SetString $sb $str]
CkStringBuilder_Encode $sb "unicode-escape-8bit-angle-upper" $charset
puts [CkStringBuilder_getAsString $sb]
# Output is b<00F4>n

delete_CkStringBuilder $sb