Dim F As Integer
Dim N As Integer
Dim nCount As Integer
Dim i As Long
Dim sOutput As String
 
' Textdatei mit HEX-Werten einelsen
F = FreeFile
Open "DateieHexDatei" For Binary As #F
 
' CSV-Datei
N = FreeFile
Open "CSVDatei" For Output As #N
 
' Anzahl Datensätze
sTemp = Space$(2)
Get #F, 2, sTemp
nCount = CLng("&H" & sTemp)
 
' alle Datensätze auslesen (je 13 Bytes)
For i = 1 To nCount
  sTemp = Space$(13)
  Get #F, , sTemp
 
  ' Datensatz aufsplitten
  sOutput = CLng("&H" & Mid$(sTemp, 1 1)) & ";" & _
    CLng("&H" & Mid$(sTemp, 2, 1)) & ";" & _
    CLng("&H" & Mid$(sTemp, 3, 1)) & ";" & _
    CLng("&H" & Mid$(sTemp, 4, 1)) & ";" & _
    CLng("&H" & Mid$(sTemp, 5, 2)) & ";" & _
    CLng("&H" & Mid$(sTemp, 7, 2)) & ";" & _
    CLng("&H" & Mid$(sTemp, 9, 2)) & ";" & _
    CLng("&H" & Mid$(sTemp, 11, 1)) & ";" & _
    CLng("&H" & Mid$(sTemp, 12, 1)) & ";" & _
    CLng("&H" & Mid$(sTemp, 13, 1)) & ";" & _
 
  ' Datensatz speichern
  Print #F, sOutput
Next i
 
' Dateien schließen
Close #F
Close #N

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de