Seite 1 von 3
String der 1, 2, 3, usw... auslesen
Verfasst: 21.04.2008 16:58
von Fox
Hey, ich weiss wie die ganzen strings einer datei auslesen kann, aber wie kann ich denn den 1, 2, 3, string auslesen? ich kenne nur das beispiel aus der hilfe, aber bei dem werden ja alle strings ausgelen...
Wie geht das mit enzelnen strings?
Danke euch um die Hilfe... (Die ich immer so oft brauche

)
Fox
Verfasst: 21.04.2008 17:01
von NicTheQuick
Wie sind die Strings denn getrennt?
Verfasst: 21.04.2008 17:08
von Fox
zeile 1, erste string
zeile 2, zweiter sting
usw...
Verfasst: 21.04.2008 17:10
von Andreas_S
Du willst Zeile für Zeile auslese?
Verfasst: 21.04.2008 17:12
von NicTheQuick
Na dann benutz doch einfach 'ReadString()'.
Verfasst: 21.04.2008 17:18
von Fox
ja... aber wenn ich mit dem code:
Code: Alles auswählen
If ReadFile(0, "bla.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
Debug ReadString(0) ; Zeile für Zeile im Debugger-Fenster anzeigen
CloseFile(0) ; schließen der zuvor geöffneten Datei
Else
MessageRequester("Fehler","Datei nicht gefunden")
EndIf
den string auslese, wird mir nur der string der 1 zeile angezeigt... wie kann ich mir zb den aus der zweiten zeile anzeigen lasse?
Verfasst: 21.04.2008 17:21
von Andreas_S
Code: Alles auswählen
If ReadFile(0, "bla.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
ReadString(0)
Debug ReadString(0) ; Zeile für Zeile im Debugger-Fenster anzeigen
CloseFile(0) ; schließen der zuvor geöffneten Datei
Else
MessageRequester("Fehler","Datei nicht gefunden")
EndIf
Verfasst: 21.04.2008 17:32
von ts-soft
RTFM
in der Hilfe ist es richtig:
Code: Alles auswählen
If ReadFile(0, "Text.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort...
While Eof(0) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
Debug ReadString(0) ; Zeile für Zeile im Debugger-Fenster anzeigen
Wend
CloseFile(0) ; schließen der zuvor geöffneten Datei
Else
MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf
Verfasst: 21.04.2008 17:36
von scholly
Er will ja nur den 2., 3., 4., oder n-ten string auslesen:
Code: Alles auswählen
n = 4 ; 4.string auslesen
If ReadFile(0, "bla.txt")
; Für den n-ten string:
For z = 1 To n-1
ReadString(0)
Next
Debug ReadString(0)
CloseFile(0)
Else
MessageRequester("Fehler","Datei nicht gefunden")
EndIf
Verfasst: 21.04.2008 17:39
von ts-soft
Er kann nur von vorne lesen, dann muß er die Bedingung verändern.
Aber um die vierte Zeile zu lesen, sind erst die 3 davor zu lesen
