+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تحويل من hex الى string (/showthread.php?tid=21959)
تحويل من hex الى string - wolf1120 - 01-10-17
عندى قيمة بالهيكس اريد تحويلها الى text
اريد تحويل القيمة هذي : 3330334C3930363032334D53
الى
303L906023MS
استعملت
Dim HexValue As String
Dim Value As Integer
HexValue = Text2
Value = Val("&H" & HexValue)
Value = Text1
ممكن تعديل علا الدالة
RE: تحويل من hex الى string - wolf1120 - 02-10-17
ليس في VB NET اريد الكود في فيجول بسيك 6
استعملت TEXT1
TEXT2
COMMAND1
RE: تحويل من hex الى string - a.ahmed - 02-10-17
PHP كود :
Private Sub Command1_Click()
Text2.Text = HexToString(Text1.Text)
End Sub
PHP كود :
Function HexToString(ByVal v As String) As String
Dim r As String, i As Integer, c As String
For i = 1 To Len(v) - 1 Step 2
c = ChrW(Val("&h" & (Mid$(v, i, 2))))
r = r & c
Next
HexToString = r
End Function
PHP كود :
Function StringToHex(ByVal v As String) As String
Dim r As String, i As Integer, h As String
For i = 1 To Len(v)
h = hex(AscW((Mid$(v, i, 1))))
r = r & IIf(Len(h) = 1, "0", "") & h
Next
StringToHex = r
End Function
RE: تحويل من hex الى string - wolf1120 - 02-10-17
Thank you Ahmed