Source Code



Extracting Email Addresses

  • anonymous
  • Dec 14' 13
  • Delphi
  • 206
  • 156
  • United States

is there a way to extract email addresses from HTML files, text documents

 

function IsEMail(EMail: String): Boolean; 
var 
  s: String; 
  ETpos: Integer; 
begin 
  ETpos:= pos("@", EMail); 
  if ETpos  1 then 
  begin 
    s:= copy(EMail,ETpos+1,Length(EMail)); 
    if (pos(".", s)  1) and (pos(".", s)       Result:= true else Result:= false; 
  end 
  else 
    Result:= false; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if isemail(Edit1.Text) then 
  begin 
    ShowMessage("eMail-Adresse!"); 
  end; 
end;
  • Tags : parse, html, email
comments powered by Disqus



Category

Tag Linked