B4X

Unicode Escape

Convert a string to Unicode escaped values. B4X

Dim success As Boolean = False

Dim sb As ChilkatStringBuilder
sb.Initialize

Dim str As String = "bôn"
Dim charset As String = "not_used"

'  Unicode escape all chars using \uHHHH
success = sb.SetString(str)
sb.Encode("unicode-escape-all", charset)
Log(sb.GetAsString)
'  Output is \u0062\u00f4\u006e

'  Unicode escape only 8bit chars using \uHHHH
success = sb.SetString(str)
sb.Encode("unicode-escape-8bit", charset)
Log(sb.GetAsString)
'  Output is b\u00f4n

'  To use uppercase hex chars (A-F), add "-upper" to the encoding name
success = sb.SetString(str)
sb.Encode("unicode-escape-all-upper", charset)
Log(sb.GetAsString)
'  Output is \u0062\u00F4\u006E

'  Unicode escape all chars using \u{HHHH}
success = sb.SetString(str)
sb.Encode("unicode-escape-all-curly-upper", charset)
Log(sb.GetAsString)
'  Output is \u{0062}\u{00F4}\u{006E}

'  Unicode escape 8bit chars using HTML hex &#xH;
success = sb.SetString(str)
sb.Encode("unicode-escape-8bit-html-hex", charset)
Log(sb.GetAsString)
'  Output is bôn

'  Unicode escape all chars using HTML decimal &#D;
success = sb.SetString(str)
sb.Encode("unicode-escape-all-html-dec", charset)
Log(sb.GetAsString)
'  Output is bôn

'  Unicode escape all chars using u+HHHH
success = sb.SetString(str)
sb.Encode("unicode-escape-all-plus", charset)
Log(sb.GetAsString)
'  Output is u+0062u+00f4u+006e

'  Unicode escape 8bit chars using angled brackets <HHHH>
success = sb.SetString(str)
sb.Encode("unicode-escape-8bit-angle-upper", charset)
Log(sb.GetAsString)
'  Output is b<00F4>n