الفكرة سهلة :-
PHP كود :
'41 in unicode = A'
Dim hexNumber As Integer = &H41
Dim c As Char = CChar(hexNumber)
MsgBox(c)
الان بس عليك تقسم النص الي ارفقته وعمل حلقة foreach وكل سنة وانت طيب
[b]مثال :-[/b]
PHP كود :
Dim strHex As String = "4D 6F 68 61 6D 6D 65 64" 'Hex value for Mohammed'
Dim strSpilted As String() = strHex.Split(" "C)
Dim text As New StringBuilder()
For Each hexSegment As String In strSpilted
Dim hex As Integer =Integer.Parse _
(hexSegment,System.Globalization.NumberStyles.AllowHexSpecifier)
Dim c As Char = CChar(hex)
text.Append(c)
Next
MessageBox.Show(text.ToString())
مشكور اخي جزاك الله خير سيتم التجربه بعد صلاه العشاﺀ
للاسف اخي الكريم لم يتم عمل المطلوب
فتحت مشروع جديد واضفت فيه 2. text ووضعت الكود السابق داخل الاول وقمت بتشغيل المشروع
ولكن لم يتم العمل
ارجو منكم ارفاق مشروع كما سبق
في كود الأخ الشاكي لله
استبدل CChar بـ ChrW
تم بالفعل ولكن الخطأ فى تحويل
05
06
04
المفترض أن 05 = ENQ
و 06 = ACK
و 04 = EOT
فكيف يمكن تحويل الارقام 05و06و04 إلى الحروف السابقة حيث انها ثابتة لا تتغير
تلك الحروف غير مطبوعة حتى في الموقع الذي ذكرته أنت
الارقام تترجم حسب جدول الUnicode
مثلا A في اليونيكود يساوي 41
مشكور أخى الكريم ولكن هل يمكن إضافه هذة الحروف فى حاله ظهورها داخل ال HEX ليتم ترجمتها داخل النص ؟؟
مافهمت !!
انا امبي اعرف المشكلة في كودي
تحويلة كوددي مثل تحويلة الموقع
وين مشكلتك الحين
--
وللتأكد اكثر اكتب 41 وشوف ويش بيطلع لك
اذا طلع لك A يعني صح
ولين ماطلع لك يعني في خطا في الكود لان الكود اصلا مكتوب بالسي شارب