Hi!
Ich wollte einen "Ersetzer" für mehrere Dateien schreiben und habe es dann versucht, die Dateien einzeln in eine TStringList einzulesen und mit StringReplace zu ersetzen.
Aber er ersetzt nicht...
Hoffe um Hilfe hier mein Code:
Delphi-Quellcode:
EDatei := TStringList.Create;
For i := 0 to ListFilesPath.Count-1 do
begin
EDatei.LoadFromFile(ListFilesPath.Strings[i]);
If EDatei.Count >= 1 then
begin
For i2 := 0 to EDatei.Count-1 do EDatei.Strings[i2] := StringReplace(EDatei.Strings[i2], Suchen, Ersetzen, [rfReplaceAll, rfIgnoreCase]);
end;
EDatei.SaveToFile(ListFilesPath.Strings[i]);
ShowMessage('Datei1("'+ListFiles.Items.Strings[i]+'") Ersetzt.');
end;
EDatei.Free;
ListFiles ist die ListBox die angezeigt wird mit den Dateinamen und ListFilesPath ist eine TStringList mit den in gleicher Reihenfolge angeordneten Pfaden.
Ist daran etwas Falsch?
Danke!