Einzelnen Beitrag anzeigen

Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Zeile aus Datei in Textdatei schreiben

  Alt 16. Dez 2005, 05:19
Ich würde mir die Datei in eine StringList laden und dann die einzelnen Zeilen durchgehen, bis du die Zeile gefunden hast.

Delphi-Quellcode:
procedure FindInFile(SrcFile : String; DestFile : String; TextToFind : String);
var
  sl_Src,
  sl_Dest : TStrings;
  idx : Word;
begin
  sl_Src:=TStringList.Create;
  sl_Dest:=TStringList.Create
  try
    sl_Src.LoadFromFile(SrcFile);
    //sl_Dest.LoadFromFile(DestFile) //Wenn an die alte Datei angehangen werden soll
    for idx:=0 to sl_Src.Count-1 do
    begin
      //Jetzt kommts drauf an, wie du suchen willst:
      if (AnsiContainsStr(sl_Src[idx],TextToFind)) then //case-sensitiv
      //if (AnsiContainsText(sl_Src[idx],TextToFind)) then //nicht case-sensitiv
        sl_Dest.Add(sl_Src[idx]);
    end;
  finally
    sl_Src.Free;
    sl_Dest.Free;
  end;
end;
Hier fehlt jetzt die Fehlerüberprüfung. Und außerdem ist das eine Resourcen/Rechenzeit-Verschwendung wenn du viele Sachen aus der Datei finden wills. Aber in etwa so, sollte es gehen.
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat