aus textdatei auslesen teil II

[wincnc]

Hallo, so wie Du das prüfst muss "Unterschiedlich : 0" und "Bytes : 1" in einer Zeile stehen. Das ist wahrscheinlich nicht der Fall und deshalb bekommst Du ein falsches Ergebnis.

Versuch´s mal so:

Dim Text As String
Dim Nr As Integer

Nr = FreeFile

Open "D:\Test.txt" For Binary As #Nr
  Text = Space(LOF(Nr))
  Get #Nr, , Text
Close #Nr

If InStr(1, Text, "Unterschiedlich : 0") And InStr(1, Text, "Bytes : 1") Then
  MsgBox "Sicherung OK !", , "BOX"
Else
  MsgBox "Sicherung nicht OK", , "BOX"
End If

 

[schwendes]

Hi win,

danke für die schnelle Antwort. Hab mal das ganze auf deine Weise
angepasst, jedoch geht es leider immer nocht nicht. Das einzige
was er jetzt richtig macht ist das er die MSG Box "Sicherung nicht
ok" richtig ausgibt. Und du hast recht, die 2 Wörte stehen in der Textdatei
nicht in einer Zeile, sondern sind im Text verteilt.

Hoffe du hast vieleicht noch nen heißen Tip.

 

[schwendes]

Hi win,

hab den Fehler gefunden. Die beiden Wörter standen im Text in
der falschen Reihenfolge. Jetzt geht es.

Danke nochmals