Converting Hex ...

[springboknath]

Hi

I have a problem converting hex, the file that you have is a .dat file which contains hex code writing certain values at intervals of every 2 seconds.

I have used a hex editor to open the file, what I dont understand is how to convert each byte into something meaning like a number(integer) or a letter programatically.

Eg. the some hex is

4b 33 55 44 = ?? - this should equal K3UD but how do i convert in vb 6
07 d4 09 12 = ?? - 2004 i think ???

I hope I explained well enough!!

[_visual_basic_]

Private Sub Form_Load()
    a = CLng("&H" + "4b")
    MsgBox Chr$(a)
End Sub

[springboknath]

Thanks, that worked great for the K3ud part but how do i get 2004 out of
07 d4 09 12 ??

I see that the d4 has 0x00FF next to it on the legend paper any idea what thats about?

[_visual_basic_]

try this out:

Option Explicit
 
Public Enum TypeConstants
    TypeHex
    TypeChr
End Enum
 
Private Sub Form_Load()
    Call MsgBox("4b 33 55 44 = " & CHex("4b 33 55 44", TypeChr), vbInformation)
    Call MsgBox("K3UD = " & CHex("K3UD"), vbInformation)
End Sub
 
Public Function CHex(Text As String, Optional CTo As TypeConstants = TypeHex) As String
    'MADE BY _VISUAL_BASIC_
    'please dont remove this credit comment =)
    On Error GoTo ErrCatch:
    Dim I As Long: Let I = vbNull
    Dim L As Long: Let L = LenB(Text)
    
    Select Case CTo
        Case TypeChr
            Do Until I > L
                Let CHex = CHex & Chr$(CLng("&H" + Mid$(Text, I, 2)))
                
                Let I = I + 3
            Loop
            Exit Function
            
        Case TypeHex
            Do Until I > L
                Let CHex = CHex & Hex$(Asc(Mid(Text, I, 1)))
                If I <= L Then
                    Let CHex = CHex & " "
                End If
                
                Let I = I + 1
            Loop
            Exit Function
            
        Case Else
            Call Err.Raise(666, "Tpe As TypeConstants", "Type is Unknown")
            Exit Function
    End Select
    
ErrCatch:
End Function

[MartinLiss]

Nothing wrong with using Let I suppose but I haven't seen any do that in several years.