Hallo,
ich möchte:
-> Eine Ursprungsdatei sichern und ablegen
-> In der Ursprungsdatei nach Werten suchen und diese in einer neuen Datei ablegen
Jetzt habe ich das Problem, dass ich mehrere Werte ändern möchte und meine While so nicht funktioniert, weil sie
immer auf die selbe Quelldatei zurückgreift.
Gibt es eine einfache möglichkeit eine lokale Datei mit mehreren Search&Replaceaufgaben zu verändern ?
Mein Beispiel:
Delphi-Quellcode:
Strreplacerule:=0;
while Strreplacerule<ListBox4.Items.Count do
begin
AssignFile(OldConfigFile,Edit5.Text+'\'+ListBox3.Items[i]+'_backup.cfg');
AssignFile(NewConfigFile,Edit5.Text+'\'+ListBox3.Items[i]+'.cfg');
Reset(OldConfigFile);
Rewrite(NewConfigFile);
while not eof (OldConfigFile) do
begin
ReadLn(OldConfigFile,NewConfigText);
NewConfigText:=StringReplace(NewConfigText,ListBox5.Items[Strreplacerule],ListBox6.Items[Strreplacerule],[rfReplaceAll]);
Write(NewConfigFile,NewConfigText+#10);
end;
CloseFile(OldConfigFile);
CloseFile(NewConfigFile);
Strreplacerule:=Strreplacerule+1;
end;