Ver Mensaje Individual
  #1  
Antiguo 10-03-2010
broly7 broly7 is offline
Miembro
 
Registrado: jun 2008
Posts: 43
Reputación: 0
broly7 Va por buen camino
Wink Buscar cadena de texto y reemplazarla

Hola muy buenas.

Verán tengo el siguiente problema: Quiero abrir un archivo .txt y buscar una línea en la que ponga "set account 'Broly7'" y borrar el contenido entre comas.
El caso es que abro el archivo Assignfile...Reset...pero no se que función usar para que busque ese texto y después trabajar con el. Tengo algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
var F: textfile; 
begin 
if fileexists('config.wtf') then 
begin MessageDlg('Config.wtf found. Next', mtinformation, [mbOK],0); 
AssignFile( F, 'config.wtf'); 
Reset( F );  

[Aqui nose como posicionarme en la línea "set account"]  

Closefile( F ); 
end 
else 
MessageDlg('Config.wtf not found!', mtwarning, [mbOK],0); end;


Me ayudariais mucho. Gracias.
Responder Con Cita