Auslesen einer Textdatei

skee

skee

Mitglied
Hallo,
Ich hoffe, ihr könnt mir helfen:

Ich möchte eine txt-Datei auslesen, um den enthaltenen Text weiter zu verarbeiten.
Auslesen tue ich mit:

Private Sub cmd1_Click()


Open "c:\bot\geb.txt" For Input As #2
Input #2, werte
Text1.Text = werte
Close #2

End Sub

Leider werden nur die ersten 12 Stellen des Dateiinhalts angezeigt, der Rest wird einfach geschluckt.

Wer weiss warum?
Würde mir sehr helfen.

MfG
Skee
 
hallo skee,

versuch es mal mit diesem:

Open "c:\bot\geb.txt" For binary As #2
werte = space(LOF(2))
get #2,, werte
close #2
'werte weiterbearbeiten....

Damit hast du den gesamten Inhalt der Text-Datei in 'Werte' geladen.

oder zeilenweise einladen:

Open "c:\bot\geb.txt" For input As #2
Do While Not EOF(2)
line input #2, werte
'werte verarbeiten....
'deine Funktionen einarbeiten....
Loop

Close #2

Probier es mit beiden Varianten aus.

ANI
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück