Texte in Dateien umbenennen

[Andreas L.]

Kannst du dir doch schnell selber bauen.

Delphi-Quellcode:

var
  Files, CurrFile: TStrings;
  iFile: Integer;
begin
  Files := TStringList.Create;
  FindAllFiles(Files, 'C:\', ...);  //genaue Parameter hab ich jetzt nicht im Kopf, einfach mal in der CodeLib nach FindAllFiles suchen
  for iFile := 0 to Files.Count -1 do
  begin
    CurrFile := TStringList.Create;
    CurrFile.LoadFromFile(Files[iFile];
    CurrFile.Text := StringReplace(CurrFile.Text, 'Suchstring', 'Ersetzstring', [rfReplaceAll]);
    CurrFile.SaveToFile(Files[iFile]);
    CurrFile.Free;
  end;
end;