ReadLn - Welche Zeile?

[StanY]

Mh, ich will ganz simpel eine bestimmte Zeiler einer Textdatei auslesen.

Allerdings habe ich das Problem, dass ich es, trotz Suchfunktion, nicht schaffe, herauszubekommen, woher Delphi die Zeile weiß, die ich auslesen will.

Mit Reset setze ich ja den Curson bzw. den Zeiger an den Anfang, aber wie setze ich ihn auf den Anfang der z.B. 2ten Zeile?

[ste_ett]

s. Delphi Hilfe :)

Zitat:

Beschreibung

In Delphi liest ReadLn eine Textzeile aus der angegebenen Datei und setzt den Dateizeiger in die nächste Zeile.

[StanY]

Joa, da kann ich 1 auslesen, dann 2, dann 3 etc.

Nur was, wenn ich NUR die zweite Zeile auslesen will? oO

[Dax]

Du kannst nicht einfach so einen Dateicursor versetzten, du musst schon Read oder ReadLn aufrufen. Diese Funktionen setzen dann den Dateicursor woanders hin.

[StanY]

Toll.

Und wie komme ich _nur_ an die zweite Zeile ran?

Von mir aus auch mit anderen Methoden als ReadLn... wenn das anscheind nicht geht \:

Das muss doch möglich sein.

edit: btw. wenn die Funktion den Cursor setzen kann, dann kann ich das ja auch irgendwie ^^

[Dax]

Zweite Zeile?

Delphi-Quellcode:

ReadLn(InFile);
ReadLn(Infile, Buffer);

[StanY]

Zweite Zeile war nur ein Beispiel. Was wenn ich an die 5326467423543 Zeile ran will.

Ist dann:

Delphi-Quellcode:

for i := 0 to 5326467423542 do begin
  ReadLn(F);
end;
ReadLn(F,BUffer);

auch noch möglich bzw resourcen sparend?

[Dax]

Da ReadLn in diesem Fall nichts einliest, sondern nur den Dateicursor verschiebt, geht das und verbraucht (ausser Prozessorzeit) kaum Resourcen.Die einzig andere Möglichkeit, dies Akzeptabel zu lösen wäre mit Streams.

[Alex_ITA01]

meiner Meinung nach geht das mit Seek()...
guck mal in die Delphi-Hilfe.Da steht alles drinne

Delphi-Hilfe-Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
   f: file of Byte;
   size: Longint;
   S: string;
   y: Integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    try
      size := FileSize(f);
      S := 'File size in bytes: ' + IntToStr(size);
      y := 10;
      Canvas.TextOut(5, y, S);
      y := y + Canvas.TextHeight(S) + 5;
      S := 'Seeking halfway into file...';
      Canvas.TextOut(5, y, S);

      y := y + Canvas.TextHeight(S) + 5;
      Seek(f, size div 2);
      S := 'Position is now ' + IntToStr(FilePos(f));
      Canvas.TextOut(5, y, S);
    finally
      CloseFile(f);
    end;
  end;
end;

MFg Alex

[Luckie]

Ich werfe mal die StringListe hier in die Runde. ;)

[StanY]

Aber Stringlist beinhaltet ja, dass ich die Datei in den RAM laden muss.
Da das Programm aber evtl. wenns fertig ist auf 'schlechteren' rechnern läuft und die .txt-Datei recht groß werden kann, will ich das eigentlich vermeiden.

Die Stream-Geschichte werde ich mir mal anschaun, darum habe ich bislang immer einern Bogen gemacht (;.

Und danke auf wg. Seek() auch das schau ich mir mal an, wenn ich wieder an meinem Rechner bin.

[Pseudemys Nelsoni]

seek ist schon das was du willst. ...wundert mich überhaupt das das hier erst am ende erwähnt wurde.

[himitsu]

Seek() ist zwar das richtige, aber dafür muß man dennoch erst den Anfang der Datei auslesen und für die 2. Zeile das Zeichen, nach dem 1. Zeilenumbruch suchen,

also ist der 1. Vorschlag vom Dax besser.

Delphi-Quellcode:

ReadLn(InFile);
ReadLn(Infile, Buffer);

[Pseudemys Nelsoni]

Zitat:

Seek() ist zwar das richtige, aber dafür muß man dennoch erst den Anfang der Datei auslesen

Seitwann das? ich benutze immer direkt Seek() ohne vorher readln benutzt zu haben und es ging immer.

Reset() setzt den zeiger an die erste position, also readln() brauch man nicht

[Strophi]

Hi,

wenn Du Text zufälligerweise selber generierst, oder er sich nicht oft ändert, erzeuge doch ein Index-File, indem Du das File einmal durchrödelst und Dir vor jedem readln die aktuelle Position im File merkst, und diese in ein Array oder woanders speicherst. Dann kannst Du dir aus dem Array die benötigte Position holen, diese seeken und auslesen.

mit freundlichen Grüßen

Strophi

[himitsu]

Ja und woher willst du die Position wissen, zu der du mit Seek springen mußt, damit du z.B. die 2. Zeile triffst?
@Pseudemys Nelsoni

[StanY]

Ich denke ich bleibe bei ReadLn und einer Schleife, da ich bei Seek und auch bei Streams anscheind das Problem ist, dass ich die Datei lediglich Byte- und nicht Zeilenweise auslesen kann.

Die Index-Datei wäre zwar eine nette Idee, allerdings lohnt es sich wohl nicht, da der Aufwand zu groß ist und es eigentlich kaum mehr bringt als ReadLn.

StringList scheidet ja schon wg. des Rams aus.

Fazit: Wie schon gesagt: ReadLn. Oder liege ich mit dem, was ich Verstanden habe irgendwie falsch? (Achtung, sobald die Antwort nein ist, ist dies eine rethorische Frage, um Spam zu vermeiden (; )

[roderich]

Seek geht nicht bei Text-Dateien.

Die StringList ist natürlich prinzipiell die erste Wahl, aber wie gesagt wenn die Datei zu groß ist.....

Die Idee mit den Streams hat was für sich: blockweise einlesen, eine Intelligenz einbauen, die nach Zeilenumbrüchen sucht/zählt. Aber wie gesagt, warum dann nicht gleich x ReadLn-Aufrufe ?!?

Roderich