Android Question UNICODE

[billyrudi]

Hi Erel,
how i can convert a string in unicode?
tanks Paolo

 

[udg]

Hi Paolo,

try the following:

Sub UnicodeEscape (s AsString) As String
Dim sb AsStringBuilder
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

and don't forget to have a look at those nice entries for the mini-game competition!

udg

 

[billyrudi]

Hi,
tanks for your replay.
i will try it.