Ver Mensaje Individual
  #5  
Antiguo 22-01-2009
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
Cita:
Empezado por agustibaldo Ver Mensaje
..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');
    //ss.Text := StringReplace(ss.text,'22.150 ','22.250 ',[rfReplaceAll]);
    
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.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita