طلب كود تحويل رموز ال Unicode الى نص باللغة العربي

الحل هو ان تتاكد من ال charchterset لصفحة الادخال "windows-1256"

اما اذا كنت تريد قراءة البيانات العربية التي تم ادخالها بالنسق الغربي فهناك عدة طرق حسب طبيعة المشكلة.انا واجهت مشكلة في قراءة بيانات عربية من الاوراكل تم حفظها بنسق غير عربي (western characterset),فاستخدمت الاتي:

myUnicodeString يحوي قيمة من قاعدة البيانات ,مثلا قيمة اسم الطالب في جدول الطلبة:

string myUnicodeString = "something in unicode";//change this to point to the string comming from DB
byte[] data = Encoding.Default.GetBytes(myUnicodeString);
string myArabicString = Encoding.GetEncoding("windows-1256").GetString(data, 0, data.Length);

الان ستجد ان myArabicString يحتوي البيانات العربية بشكلها الصحيح.

مشكور و ما قصرت هذا الكلام اللي انا ادور عليه

تفضل ... ممكن ينفعك هذا الكود

Public Function ASPURLEncode(ByVal StringToEncode As String) As String

Dim TempAns As New StringBuilder

Dim CurChr As Integer = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns.Append(Mid(StringToEncode, CurChr, 1))

Case 32

TempAns.Append("%" & Hex(32))

Case Else

TempAns.Append("%")

TempAns.Append(Hex(Asc(Mid(StringToEncode, CurChr, 1))))

End Select

CurChr = CurChr + 1

Loop

ASPURLEncode = TempAns.ToString

End Function