Ver Mensaje Individual
  #3  
Antiguo 12-11-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Thumbs up

Mas o menos coso que quiso decir que lo hagas asi:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
f:TStrings;
begin
   f:=TStringList.Create;
   try
     f.LoadFromFile('C:\MyArchivo.txt'); //leemos desde el archivo
     f.Text:=StringReplace(f.Text,'ñ','n',[rfReplaceAll,rfIgnoreCase]);//reemplazo las "ñ" por "n" de todo el archivo de un saque
     f.SaveToFile('C:\MyArchivo.txt');//guardamos al mismo archivo
     ShowMessage('Se ha modificado..');
   finally
   f.Free;//Liberamos el objeto f
   end;

end;
Aunque lo veo mas conveniente hacerlo asi:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
f:TStrings;
i:Integer;
begin
   f:=TStringList.Create;
   try
     f.LoadFromFile('C:\MyArchivo.txt'); //leemos desde el archivo
    for  i:=0  to f.Count-1  do
     f.Strings[i]:=StringReplace(f.Strings[i],'ñ','n',[rfReplaceAll,rfIgnoreCase]);//reemplazo las "ñ" por "n" linea a linea

     f.SaveToFile('C:\MyArchivo.txt');
     ShowMessage('Se ha modificado..');
   finally
   f.Free;//Liberamos el objeto f
   end;
Ya que puede ocurrir que nuestro archivo sea demasiado grande para hacerlo todo de un golpe.
Saludos...
end;
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita