nicht angemeldet
ReadAll kann ich übrigens nicht verwenden, da in der schlaufe noch die jeweilige zeile überprüft werden muss.
Hi Bjoern!
könntest du schon:
If not txtdatei.atEndOfStream THEN
komplett = txtdatei.readAll
zeilenArray = Split(komplett,vbNewLine)
anzahlZeilen = Ubound(zeilenarray) + 1
For a = 0 to Ubound(zeilenarray)
'da ist die einzelzeile :-)
Next
END IF
die Abfrage auf .atEndOfStream ist sicherer, weil ein Fehler produzzt wird, wenn die Datei leer ist
du splittest den gesamten TXT-Stream dann anhand des Auftretens von vbNewLine oder Chr(10) & Chr(13) (oder war das andersrum???) ich nehm immer vbNewLine
Nur so als Tip.
Gruß, Frank