MOD
Fleißiger Referenzredakteur
Anmeldungsdatum: 10.09.2007
Beiträge: 1003
|
 Verfasst am: 22.07.2011, 01:43 Titel: |
 |
|
Line Input liest immer bis zum Zeilenende, daran führt kein Weg vorbei, alternativ lässt sich Input verwenden, was immer bis zum nächsten Komma liest. Willst du andere Zeichen abfragen, dann wirst du selbst basteln müssen. Da wirst du dann Stringfunktionen brauchen.
Wenn du sämtliche Zeilen in einer Variable speichern willst, kannst du immer in eine temporäre Variable speichern und den Inhalt dann an die Hauptvariable anhängen, willst du für jede Zeile eine eigene Variable, dann wirst du ein dynamisches Array brauchen (oder ermittelst die Zeilenanzahl in einem vorrangestellten zusätzlichen Durchlauf).
Dazu angepasste Beispiele des Line Input Beispiels:
| Code: | 'Alles in eine Variable
Dim zeile As String
Dim temp As String
Dim f As Integer = FreeFile
Open "Datei.txt" For Input As #f
Do
Line Input #f, temp
zeile = zeile & temp & !"\n" 'Zeilenumbruch anfügen
Print zeile
Loop Until Eof(f)
Close #f
Sleep |
| Code: | Dim zeile() As String
Dim count As Integer
Dim f As Integer = FreeFile
Open "Datei.txt" For Input As #f
Do
ReDim Preserve zeile(count)
Line Input #f, zeile(count)
Print zeile(count)
count = count + 1
Loop Until Eof(f)
Close #f
Sleep |
| Code: | Dim count As Integer
Dim temp As String
Dim f As Integer = FreeFile
Open "Datei.txt" For Input As #f
Do
Line Input #f, temp
count = count + 1
Loop Until Eof(f)
Close #f
Dim zeile(count) As String
Dim i As Integer
f = FreeFile
Open "Datei.txt" For Input As #f
Do
Line Input #f, zeile(i)
Print zeile(i)
i = i + 1
Loop Until Eof(f)
Close #f
Sleep |
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
