Forum: Visual Basic |
Thema:
Re: vb aus textdatei schrittweise auslesen |
Von:
Timo Ulrich (
23.05.2005 21:53) |
dim intfilenummer as integer
dim strpuffer as string
intfilenummer = FreeFile 'Zuweisung einer freien Dateinummer an "intfilenummer"
Open "C:\Config.sys" For Input As #intfilenummer 'Öffnen der ausgewählten Datei für "Textschreiben" unter der Bezeichnung "intfilenummer"
While Not EOF(intfilenummer) 'Solange nicht das Ende der Datei mit der Objektbezeichnung "intfilenummer" erreicht ist, wiederhole ...
Line Input #1, strpuffer 'Schreibe eine Zeile der geöffneten Datei in die Textvariable "strpuffer"
Text2.Text = Text2.Text & strpuffer & vbCrLf 'Schreibe in die Textbox2 den vorhergehenden Text, den Inhalt der Variable "strpuffer" und einen Zeilenumbruch
Wend 'Schleifenende
Close #intfilenummer
Die Textbox muss auf Multiline umgestellt sein.
He likes to topple those who have the farthest to fall.
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!