String der 1, 2, 3, usw... auslesen

[scholly]

Mir ist das klar, aber er hofft anscheinend, er könnte direkt mit nur einem Aufruf an den n-ten String kommen

[Fox]

hi.. wow so viele antworten schon... ja ich wollte nen string direkt auslesen, so wie scholly es beschrieben hat... danke für die antworten, problem gelöst... danke euch

fox

[X0r]

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 Mr. Green

Falsch. Du kannst die Position des Dateizeigers auch ändern. Allerdings muss er dann wissen, wie lang die erste Zeile ist. Und wie das geht, weiß ich nicht(Ohne len(readstring(file)))

[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 Mr. Green

Falsch. Du kannst die Position des Dateizeigers auch ändern. Allerdings muss er dann wissen, wie lang die erste Zeile ist. Und wie das geht, weiß ich nicht(Ohne len(readstring(file)))

Das einzig richtige an deiner Aussage ist, das man mit FileSeek den
Dateizeiger verschieben kann, der Rest ist murks und es nützt sowieso
nichts.
Textdateien haben keine feste länge. Um die länge einer Zeile festzustellen
muß man diese einlesen, das macht mein Vorschlag, ignoriert aber die
länge, weils unwichtig ist

[Andreas_S]

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 Mr. Green

Falsch. Du kannst die Position des Dateizeigers auch ändern. Allerdings muss er dann wissen, wie lang die erste Zeile ist. Und wie das geht, weiß ich nicht(Ohne len(readstring(file)))

[X0r]

ja, was denn.
Ich hab ja nur gesagt, dass er nicht nur von vorne lesen kann...

natürlich ist der rest murks, denn physisch ist die Einteilung der Zeilen nicht vorhanden.

[Andreas_S]

jetzt laberst du schon wieder...

[Tombi]

Code: Alles auswählen

; Datei öffnen, laden ...

a.b = 2 ;Zeilennummer

For x = 1 To a
   ReadString()
Next

; Datei schließen ...

Natürlich fehlt hier noch die Abfrage, ob es sich schon am Ende der Datei befindet.

Oder wie meinste das? ^^

[hjbremer]

PB hilft in allen Lebenslagen, so auch hier

Code: Alles auswählen

dnr = 1
dat$ = "2007.txt" ;bei mir 1 MB groß

gesuchteZeile = 2068

flag = ReadFile(dnr, dat$)

If flag

    datlg = Lof(dnr)
    daten$ = Space(datlg)

    bytes = ReadData(dnr, @daten$, datlg)    
    
    erg$ = StringField(daten$, gesuchteZeile, #CRLF$)
       
    Debug Mid(erg$,2,9999)   ;der dritte Parameter soll ja bald optional sein, wurde mal versprochen
    
    daten$ = ""
    
Else
    MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf

[X0r]

Und da wieder der Beweis, ts-soft, Andreas_s, geht auch ohne Zeile für Zeile lesen.
Aber ich bin jetzt mal lieber ruhig, sonst platzt jemandem noch der Schädel.