Zeile aus Datei in Textdatei schreiben

[chaosben]

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.