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.