Sub UnicodeEscape (s As String) As String
Dim sb As StringBuilder
sb.Initialize
For i = 0 To s.Length - 1
Dim u As String = Bit.ToHexString(Asc(s.CharAt(i)))
sb.Append("\u")
For i2 = 1 To 4 - u.Length
sb.Append("0")
Next
sb.Append(u)
Next
Return sb.ToString
End Sub
thanks i was somewhere close to it with my codes. was figuring on how to pad the extra zeros..
Sub EscapeUnicode(s As String) As String
Dim sb As StringBuilder
sb.Initialize
Dim i As Int
Do While i < s.Length
Dim c As Char = s.CharAt(i)
'need to change to unicode here
sb.Append("u\")
Dim codepoint As Int = Asc (c)
Log(Bit.ToHexString(codepoint))
Log(codepoint)
Dim str As String
str= Bit.ToHexString(codepoint)
sb.Append(str)
i = i + 1
Loop
Return sb.ToString
End Sub