从文本中提出EMAIL地址的函数

发布时间:2016-12-6 8:53:16 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"从文本中提出EMAIL地址的函数",主要涉及到从文本中提出EMAIL地址的函数方面的内容,对于从文本中提出EMAIL地址的函数感兴趣的同学可以参考一下。

function GetEmail(htmlText:String):String;var  I: Integer;  leftI,rightI:Integer;  atPos:Integer;  htmlTextLen:integer;  haveDot:Boolean;begin  leftI:=0;  rightI:=0;  haveDot:=False; http://www.prize8.com   htmlTextLen:=Length(htmlText);   atPos:=Pos('@',htmlText);   if atPos<=0 then  begin    Result:='';    Exit;  end;   for leftI:=atPos-1 Downto 1 do  begin    if not( htmlText[leftI] in ['A'..'Z','_','a'..'z','0'..'9','.'] )then      break;  end;   for rightI:=atPos+1 to htmlTextLen do  begin    if htmlText[rightI]='.' then      haveDot:=true;     if (not (htmlText[rightI]  in ['A'..'Z','_','a'..'z','0'..'9','.'])) and haveDot then    begin      Result:=Copy(htmlText,leftI+1,RightI-leftI);      break;    end    else    begin      Result:=Result+GetEmail(copy(htmlText,atPos+1,htmlTextLen-atPos));    end;  end;   Showmessage(Copy(htmlText,leftI+1,RightI-leftI));end; 

上一篇:一位年轻的董事长给大学生的18条好建议
下一篇:网络工程师应该掌握的44个(路由器问题)知识要点

相关文章

相关评论