Remplazar texto en fichero

[manujimenez]

Disculpar de nuevo, me complila pero no consigo hacer. Tengo un fichero archivo.txt con varias cifras entre las que se hayan 22.150 y quiero sustituirlas por 28.250 (o lo que sea cualquier cosa...) y guardarlo como archivo2.txt.
Este código me compila y me genera el fichero archivo2.txt pero no me guarda el cambio.

Gracias de antemano y disculpar las molestias.

M

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
I: integer;
ss : TStringList;

begin

ss := TStringList.Create;
ss.LoadFromFile('c:\xxx\archivo.txt');

for I := 0 to (ss.count -1) do
ss.Text := StringReplace(ss.text,'22.150','28.250''',[rfReplaceAll]);

ss.SaveToFile('c:\xxx\archivo2.txt');
end;

end.

[ecfisa]

Hola manujimenez.

Por favor cuando incluyas código en tus mensajes usa los TAG's. La imágen muestra como hacerlo:



Tu consulta:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  ss : TStrings;
begin
  ss := TStringList.Create;
  try
    ss.LoadFromFile('c:\archivo.txt');
    ss.Text := StringReplace(ss.Text, '22.150', '28.250', [rfReplaceAll]);
    ss.SaveToFile('c:\archivo2.txt')
  finally
    ss.Free
  end
end;

Saludos.

[Neftali [Germán.Estévez]]

Antes de nada comentar que cuando utilices código, es mejor que añadas TAG's.

Por lo demás,no vas mal encaminado, aunque hay alguna cosa que no te acaba de quedar clara.

(1) Si usas ss.Text, estás accediendo a todo el texto del TStringList, por tanto no hace falta que utilices un for.
(2) Si quieres usar for y hacer el recorrido por todas las líneas, debes hacerlo con:

Código Delphi [-]
  ss[i] := StringReplace(ss[i],'22.150','28.250',[rfReplaceAll]);

De esta forma haces el recorrido línea a línea.

Por último te falta liberar el elemento que has creado (ss).

AÑADO: Veo que ecfisa ha sido más rápido.

[manujimenez]

Bueno, muchas gracias una vez más.
Efectivamente he añadido esta línea de código y ya funciona perfectamente.

Muchas muchas gracias