منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندى قيمة بالهيكس اريد تحويلها الى text

اريد تحويل القيمة هذي : 3330334C3930363032334D53

الى

303L906023MS

استعملت
Dim HexValue As String
Dim Value As Integer

HexValue = Text2
Value = Val("&H" & HexValue)

Value = Text1

ممكن تعديل علا الدالة

ليس في VB NET اريد الكود في فيجول بسيك 6

استعملت TEXT1

TEXT2

COMMAND1

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 

Thank you Ahmed

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

wolf1120

wolf1120

a.ahmed

wolf1120