S&R Replace in selber Datei ?

[neus]

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;

[DeddyH]

Hallo, ich würde die "alten" I/O-Routinen in die Wüste schicken und eine StringListe verwenden. Dann kannst Du die Datei im RAM bearbeiten und anschließend wieder abspeichern. Pseudocode:

Delphi-Quellcode:

MyList := TStringList.Create;
try
  MyList.LoadFromFile(Originaldatei);
  for i := 0 to MyList.Count - 1 do
    begin
      StringReplace1;
      StringReplace2;
      StringReplace3;
    end;
  MyList.SaveToFile(Neuer_Dateiname);
finally
  MyList.Free;
end;