Cita:
Empezado por agustibaldo
..al realizarlo de la manera que planteas no estoy reemplazando todos las cadenas que comiencen con '22.150' en el total del texto? ...
|
Sí, Estas modificando cualquier cadena que empieze con 22.150.
Mejor utiliza una compinación de copy y StuffString
Código Delphi
[-]
var
ss : TStringList;
I: integer;
begin
ss := TStringList.Create;
ss.LoadFromFile('c:\archivo.txt');
for I := 0 to (ss.count -1) do
if sametext(copy(ss.strings[i], 117, length('21.250')), '21.250') then
ss.strings[i] := StuffString('21.250', 117, length('21.250'), '22.250');
ss.SaveToFile('c:\archivo.txt');
end;
Saludos.