+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحويل من hexadecimal الى ASCII (/showthread.php?tid=50592)
تحويل من hexadecimal الى ASCII - aminesori - 07-11-24
السلام عليكم ممكن طريقة لي تحويل من hexadecimal الى ASCII
PHP كود :
004
100200065007300740020003A0020003
2003700330030002E003000300020004
4005A00440020002E000A00470054005
300200065007300740020003A0020003
10035003000310030002E00300030002
00044005A00440020002E000A004D004
F00420049004C0049005300200065007
300740020003A002000310035002E003
000300020
RE: تحويل من hexadecimal الى ASCII - Zuhare - 07-11-24
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim hexadecimal = String.Concat(TextBox1.Text.Split)
Dim ASCII As String = String.Empty
For i = 0 To hexadecimal.Length - 1 Step 2
Dim b = Convert.ToByte(hexadecimal.Substring(i, 2), 16)
If b > 0 Then ASCII &= Chr(b)
Next
TextBox2.Text = ASCII
End Sub
RE: تحويل من hexadecimal الى ASCII - aminesori - 07-11-24
تمام نجحت ولكن هل ممكن انه يتجاهل الاسطر الغير معنية لي انه يظهر لي خطأ اذا كان بهذا الشكل
كود :
+CMT: "w4@62696p69637","","24/
11/07,19:40:00+04"
FEFF0056006F
007400720065002000420061006C0061
006E00630065003A000A0050004F0053
0054004500200065007300740020003A
00200030002E0030003000200044005A
00440020002E000A0041005300530049
004C004F005500200065007300740020
003A00200030002E0030003000200044
005A00440020002E000A004400410054
+CMT: "w4@62696p69637","","24/
11/07,19:40:00+04"
004100200065
007300740020003A0020003200370033
0030002E0030003000200044005A0044
0020002E000A00470054005300200065
007300740020003A0020003100350030
00310030002E0030003000200044005A
00440020002E000A004D004F00420049
004C0049005300200065007300740020
003A002000310035002E003000300020
+CMT: "w4@62696p69637","","24/
11/07,19:40:00+04"
0044005A0044
0020002E