EOF zu früh durch Sonderzeichen
05.12.2012 10:01:36
Michael
Ich möchte eine Textdatei einlesen. Das mache ich über
'EINLESEN
Dim X As String
Dim Filenum As Integer
Filenum = FreeFile()
Open Dateiname For Input Access Read As #Filenum
Do While Not EOF(Filenum)
Line Input #Filenum, X
Cells(Zähler, 2) = X
Zähler = Zähler + 1
Loop
Close #Filenum
Nun kommt in einer Datei ein Sonderzeichen vor, welches im Texteditor wie ein Pfeil nach rechts aussieht. Dieses Zeichen bricht den weiteren Importvorgang ab und liefert ein EOF obwohl die Datei nicht zuende ist. Kann ich das irgendwie anfangen?
Danke für Eure Hilfe
Michael H