تبدیل Unicode به String

[porya 959]

سلام

برای تبدیل کاراکترهای unicode به String میتونید از تابع زیر استفاده کنید.

Sub UnescapeUnicode(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)
      If c = "\" And i < s.Length - 1 And s.CharAt(i + 1) = "u" Then
         Dim unicode As StringBuilder
         unicode.Initialize
         i = i + 2
         Do While i < s.Length
            Dim cc As String = s.CharAt(i)
            Dim n As Int = Asc(cc.ToLowerCase)
            If (n >= Asc("0") And n <= Asc("9")) Or (n >= Asc("a") And n <= Asc("z")) Then
               unicode.Append(s.CharAt(i))
            Else
               i = i - 1
               Exit
            End If
            i = i + 1
         Loop
         sb.Append(Chr(Bit.ParseInt(unicode.ToString, 16)))
      Else
         sb.Append(c)
      End If
      i = i + 1
   Loop
   Return sb.ToString
End Sub

مثال

	Dim str As String = "\u062a\u0633\u062a"
	Log(UnescapeUnicode(str))

 

[مجتبی قاسمی 53]

سلام 

میشه یه توضیح بیشتر بدین درمورد این تابع 

[porya 959]

در 18 دقیقه قبل، mojtabaf5 گفته است :

سلام 

میشه یه توضیح بیشتر بدین درمورد این تابع 

https://www.b4x.com/android/forum/threads/help-to-convert-from-unicode.32402/