Suche "Search&Replace"-Komponente

[mrs]

Hallo Leute,

ich suche eine Freeware-Komponente, mit der man in Dateien Texte suchen und ersetzen kann.

Kennt jemand eine Quelle?

Gruß
MRS

[T K]

Eine Komponente wäre ein wenig übertrieben, vielleicht genügt auch einfach das hier:

<pre>

uses sysutils;

// ...

// ReplaceInFile
// Ersetzt in einem File "pattern" durch "replacement"
procedure ReplaceInFile(filename,pattern,replacement: string);
var t: TStringlist;
begin

// Stringliste instanzieren
t:=TStringList.Create;

// Datei laden
t.LoadFromFile(filename);

// in der Text-Darstellung der Stringlist alles ersetzen
t.text:=StringReplace(t.Text,pattern,replacement,[]);

// Zurück in die Datei damit
t.SaveToFile(filename);

// Aufräumen, fertig.
t.Free;
end;
</pre>

Nicht immer in Komponenten denken ;-) Ein Blick in sysutils in einer ruhigen Stunde ist ganz lehrreich.

cu
Tim