Liebe Community,
ich bin gerade dabei einen Testfile über VBA einzulesen und habe mir dabei die Do While Not EOF schleife zu hilfe genommen. Leider wird EOF jedoch zu früh auf True gesetzt wobei das Dateiende noch lange nicht erreicht wurde.
Die meisten Einträge der txt Datei folgen diesem Aufbau: 80218;193322;0.00;1;0.00;0.00;0.00;0.00;0.00;0.00;
Jedoch kommen auch fehlerhafte Zeilen vor: 9380XbqKç93<d_YÃ܈;190-!Àt;00(3sÁ(¦û¶00;0i°K?º00º
ŸAO‡!;13QÛ Ú00;q°×¢ñÂ$0.00¸ðæî–g0.ˆ Open "C:\Messwerte\log.txt" For Input As #1
Genau bei dieser wird EOF auf True gesetzt und das Ende der Datei vorrausgesagt obwohl wir da noch lange nicht angekommen sind.
Ist es möglich EOF irgendwie wieder auf False zu setzen oder Zeilen der txt Datei beim Einlesen zu überspringen?
Oder hat vielleicht jemand noch eine bessere Idee?
Do While Not EOF(1)
Line Input #1, temp
Sheets(1).Cells(Z, 1) = temp
Z = Z + 1
Loop
Close #1
Viele Dank schonmal im vorraus
|