Textzeile auslesen einer txt datei.

[youu]

Hi, habe wohl eher eine der einfacheren Fragen

ich möchte gern eine bestimmte Zeile einer Textdatei auslesen.

Kann mir wer da einen Tipp bzw ein kleines Codebeispiel geben, damit ich es verstehe?

MFG

[mkinzler]

Wie groß ist die Textdatei?
Wenn die Datei nicht all zug roß ist könntest du sie in eine Stringliste laden. Sonst halt klassisch Zeile für Zeile

[Pfoto]

Hallo und willkommen youu!

Es gibt mehrere Arte, ich bevorzuge die
Erstellung einer Instanz von TStringList,
die kann auch laden und speichern.


Also so:

Delphi-Quellcode:

var
  Liste: TStringList;

[...]

Liste:= TStringList.Create;
try
  Liste.LoadFromFile('Dateiname.txt');
  { Hier was mit dem geladenen Text machen }
  ShowMessage(Liste.Text);
finally
  Liste.Free;
end;

Du kannst die einzelnen Zeilen auch mit
Liste.Items[10]:= 'blabla'; einzeln ansprechen.


Gruß
Pfoto

[youu]

Die Textdatei an sich ist sehr klein maximal 10 Zeilen.

funktioniert das mit der TStringlist auch wenn ich z.B 100-200 Textdateien durchsuchen möchte nach bestimmten Wörtern in bestimmten Zeilen?

Denn ich Glaube da wäre der die Ladezeit extrem lange oder?

[mkinzler]

Auch 200 Zeilen stellen keine Hindernis dar.

[Corpsman]

diese Procedure müste das auch machen.

Delphi-Quellcode:

Procedure GetXLine(Filename:String;Line:integer);
var f:Textfile;
    i:Integer;
    s:String;
begin
  result := '';
  assignfile(f,filename);
  reset(f);
  i := 0;
  while(not eof(f)) and (i<=Line) do begin
  inc(i);
  readln(f,s);
  if i = Line then 
    result := s;
  end;
  closefile(f);
end;

[Klaus01]

Zitat von Corpsman:

diese Procedure müste das auch machen.

Delphi-Quellcode:

Procedure GetXLine(Filename:String;Line:integer);
var f:Textfile;
    i:Integer;
    s:String;
begin
  result := '';
  assignfile(f,filename);
  reset(f);
  i := 0;
  while(not eof(f)) and (i<=Line) do begin
  inc(i);
  readln(f,s);
  if i = Line then 
    result := s;
  end;
  closefile(f);
end;

wobei ein Funktion besser wäre, wenn man schon mit Result einen Wert zurückgeben möchte.
Der Kopf würde dann so aussehen.
function GetXLine(FileName:String;Line:integer):String; Aber Du wolltest doch die Datei nach einer Zeile durchsuchen, oder?

Delphi-Quellcode:

function isLineAvailable(Filename:String;Line:String):Boolean;
var f:Textfile;
    s:String;
begin
  assignfile(f,filename);
  reset(f);
  result := false;
  while(not eof(f)) and (not result) do begin
    readln(f,s);
    result :=  s = Line;
  end;
  closefile(f);
end;

Grüße
Klaus

[youu]

wollte nicht schauen ob eine Zeile existiert in einer Text Datei, sondern eine bestimmte Zeile komplett auslesen in einer Textdatei.

Ich danke werde mich gleich mal ran setzen und ausprobieren

[youu]

super gerade ausprobiert habs sogar verstanden

Hab es als Funktion dann genommen und alles hat geklappt.

Danke an alle für die schnellen Antworten.