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 :mrgreen: