رفتن به مطلب

تبدیل Unicode به String


porya

ارسال‌های توصیه شده

سلام

برای تبدیل کاراکترهای 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))

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

سلام 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...