Ver Mensaje Individual
  #2  
Antiguo 03-05-2012
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola.
Cambia la línea del COPY por lo que necesites.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
var   i,j: integer; 
begin   
  with TStringList.Create do   
  try     
    LoadFromFile('c:\visitasweb.txt');     
    i:= 0;     
    while i < Count do     
    begin       
      j:= Pos('EMAIL',Uppercase(Strings[i]));       
      if j > 0  then       
      begin         
        Strings[i]:= Memo1.Lines.Text;         
        inc(i);       
      end 
      else         
        Delete(i);     
    end;     
    SaveToFile('c:\resultado.txt');     
    showMessage ('Listo');   
  finally     
    Free;   
  end;
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita