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

发布时间:2014-10-22 13:39:32编辑: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个(路由器问题)知识要点

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款