wort in *.txt datei suchen

[herrentor]

hallo

wie kann ich herausfinden, ob es ein wort in einer *.txt datei schon gibt?

[Neutral General]

Textdatei in Stringlist laden und mit pos nach dem Wort suchen

[herrentor]

hört sich gut an, kann aber aber leider nicht viel mit anfangen, hast du vielleicht irgendwelche befehle für text datei in stringlist laden?

[Binärbaum]

LoadFromFile

[herrentor]

komm ich nicht mit klar.

Delphi-Quellcode:

loadfromfile(text_datei);
pos(text_datei;'['+StatusBar1.Panels.Items[1].Text+']');

er soll in der text datei gucken, ob da schon das aktuelle datum, welches in statusbar1.panels.items[1] mitläuft, steht.

[jfheins]

Zitat von herrentor:

befehle für text datei in stringlist laden?

+

Zitat:

LoadFromFile

=

TStringList.LoadFromFile

[Rastaman]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('c:\favoriten.txt');
    if pos('suchtext', sl.Text)=0 then begin
      sl.Add('suchtext');
      sl.SaveToFile('c:\favoriten.txt');
    end
    else
      ShowMessage('suchtext ist schon vorhanden.');
  finally
    sl.Free;
  end;
end;

Von www.Delphi-Source.de

[edit]Mir fällt grad auf dass der post total überflüssig ist [/edit]

[SilverMoonGirl]

Zitat von herrentor:

komm ich nicht mit klar.

Delphi-Quellcode:

loadfromfile(text_datei);
pos(text_datei;'['+StatusBar1.Panels.Items[1].Text+']');

er soll in der text datei gucken, ob da schon das aktuelle datum, welches in statusbar1.panels.items[1] mitläuft, steht.

könnte es auch daran liegen, das du hier ein Semikolon statt dem komma

pos(text_datei;'['+StatusBar1.Panels.Items[1].Text+']'); also so
pos(text_datei,'['+StatusBar1.Panels.Items[1].Text+']');

[Binärbaum]

Dann mach ich doch mal ein Beispiel:

Delphi-Quellcode:

function FindeWort(wort: string; Text_Datei: string): Integer;
var sl: TStringlist;
    i: Integer;
begin
 Result:= -1;
 sl:= TSrtingList.Create;
 sl.LoadFromFile(Text_Datei);//Textdatei laden
 for i:= 0 to sl.Count -1 do
  if pos(wort, sl.Strings[i])>0 then begin
   Result:= i;
   sl.Free;
   Exit;
  end;//if
 sl.Free;
end;

Die Funktion gibt, falls das Wort gefunden wird, die Zeile mit an (Zählung beginnt bei Null), ansonsten ist der Wert -1, wenn das Wort nicht gefunden wird.

MfG
Binärbaum

//Edit: Quelltext korrigiert

[herrentor]

danke, hab problem gelöst. der gleiche quell code von gerrit89 steht auch auf www.dsdt.info