تبدیل به string

[amir00700 66]

من این متن(\u062a\u0633\u062a) که نمیدونم چه نوعی هم هست رو میخوام به string قابل فهم تبدیل کنم

میدونم الان این "تست" هستش

ولی توی بیسیک چطور بنویسم تبدیل شه

[porya 959]

در 23 دقیقه قبل، amir00700 گفته است :

کار نکرد متاسفانه

 

چرا بنده تست کردم که جواب داد...

اصلا اونو بیخیال شو بیا از این تابع استفاده کن.

Sub Activity_Create(FirstTime As Boolean)

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

End Sub

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

 

[porya 959]

سلام

به این متن ها اگه اشتباه نکنم کارکترهای unicode میگن برای تبدیل اونها به string از کد زیر استفاده کن فقط کتابخونه JavaObject رو تیک بزن.

	Dim jo As JavaObject
	jo.InitializeContext
	Dim s As String = "\u062a\u0633\u062a"
	Log(jo.RunMethod("convertToString",Array As Object(s)))

#if java
    public String convertToString(String Str){
    	String str1 = Str.split(" ")[0];
    	str1 = str1.replace("\\","");
    	String[] arr = str1.split("u");
    	String text = "";
    	for(int i = 1; i < arr.length; i++){
    	    int hexVal = Integer.parseInt(arr[i], 16);
    	    text += (char)hexVal;
    	}
		return text;
    }
#end if

 

[amir00700 66]

در 8 دقیقه قبل، porya گفته است :

سلام

به این متن ها اگه اشتباه نکنم کارکترهای unicode میگن برای تبدیل اونها به string از کد زیر استفاده کن فقط کتابخونه JavaObject رو تیک بزن.

	Dim jo As JavaObject
	jo.InitializeContext
	Dim s As String = "\u062a\u0633\u062a"
	Log(jo.RunMethod("convertToString",Array As Object(s)))

#if java
    public String convertToString(String Str){
    	String str1 = Str.split(" ")[0];
    	str1 = str1.replace("\\","");
    	String[] arr = str1.split("u");
    	String text = "";
    	for(int i = 1; i < arr.length; i++){
    	    int hexVal = Integer.parseInt(arr[i], 16);
    	    text += (char)hexVal;
    	}
		return text;
    }
#end if

 

کار نکرد متاسفانه

 

[amir00700 66]

عالی بود

دکمه تشکر کافی نبود واقعا

ممنون ازتون عزیز