Textdatei wird nicht komplett eingelesen Verfasst am: 07.09.2010, 11:11
Ich möchte eine Textdatei mit ca. 1100 Zeilen einlesen. Beim Einlesen wird aber immer bei der 270 Zeile abgebrochen.
Hoffe da kann mir jemand weiterhelfen, warum dies nicht funktioniert.
Ich verwende folenden VB Code:
Code:
Open datei For Input As #1
Do While Not EOF(1)
Line Input #1, Data
i = i + 1
Debug.Print i
If InStr(1, Data, "SerialNo") > 0 Then
serial = Mid(Data, InStr(1, Data, "SerialNo:") + 10)
Close #1
Exit Function
End If
Registrieren
Login
