Textdatei auf Hexwerte prüfen

[gabrielgsell]

Hallo zusammen,

Wie kann ich eine Textdatei auf Hexwerte prüfen. Ich hab eine grosse Textdatei, diese sollte ich Zeilenweise auslesen und immer wenn der Hexwert "89" kommt, ein neues File schreiben. Hat hier jemand eine Lösung?

Vielen Dank und Grüsse

 

[DrSoong]

Das mit dem Textdatei auslesen hatten wir beide ja schon mal hier, für das Suchen in der jeweiligen Zeile verwendest du am besten die InStr()-Funktion:

If InStr(Zeile, "89") > 0 Then
 'Wert gefunden, Annahme, du suchst die Zeichenfolge "89"
End If

bzw.

If InStr(Zeile, Chr(137)) > 0 Then
 'Wert gefunden, Annahme, du suchst den Wert &89 (= Asc 137) als Byte
End If

Der Doc!

 

[gabrielgsell]

Ciao,
Ich sollte den HexWert heraussuchen (Beispiel siehe Bild).

Wenn ich aber

If InStr(INhalt, "89") > 0 Then

benütze, sucht er nur nach ASCII Zeichen.

Wie kann ich in einer Textdatei nach einem Hexwert suchen?

Grüsse

 

[Shakie]

Sind die Hexwerte in der Datei jeweils mit einem Leerzeichen getrennt, so wie auf dem Bild?

 

[gabrielgsell]

Ciao,
wenn man die Datei in z.B. im Notepad anschaut, dann sieht man die Zahlen(also die ASCII-Zeichen). Die Hexwerte sieht man mit einem "normalen" Editor nicht. Schau dir das doch mal an:

Grüsse

 

[DrSoong]

Schau dir mal meinen obrigen Post an, der zweite Code. Da ist das genau so, wie du es brauchst (es such ein Zeichen, das den HEX-Wert &89 hat - also Dezimal 137).


Der Doc!