Textdatei bis EOF einlesen

Bild

Betrifft: Textdatei bis EOF einlesen
von: alex
Geschrieben am: 11.10.2003 15:19:03

Wie kann man eine Textdatei bis zum ende einlesen (zeilenweise) und dann abbrechen,ohne das eine Feherlermeldung erscheint?

Meine Idee war ungefähr so...
dim i as integer
dim f,fs
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile

for i = 1 to 10 '(überspring die ersten 10 Zeilen)
f.skipline
next i

do until (f.readline = fehler(62)) 'genau hier happerts leider.
f.readline
i=(i+1)
loop


gruß alex

Bild


Betrifft: AW: Textdatei bis EOF einlesen
von: Ramses
Geschrieben am: 11.10.2003 15:46:21

Hallo

schau mal hier vorbei:

http://www.office.gmxhome.de/_excel_vba_externe_daten.htm#Sub%20Read_Extern_File()

Um die von dir geforderten ersten 10 Zeilen zu überspringen ändere einfach die Sequenz:

For i = 1 To TxtLines
Input #1, TextArr(i)
Next i

in

For i = 11 To TxtLines
Input #1, TextArr(i)
Next i

Wenn du Zeilen hast mit Komma drin, ändere zudem

Input #1, TextArr(i)

in

Line Input #1, TextArr(i)

Gruss Rainer


Bild


Betrifft: AW: Textdatei bis EOF einlesen
von: Alex
Geschrieben am: 11.10.2003 15:56:26

Alles klar. Merci


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Textdatei bis EOF einlesen "