如何提取文本文件里面的email地址

[ipbdq]

如何提取文本文件或者网页里面的email地址?

最好能够速度比较快的。

比如如下地址：

[e-mail]>, "闫立国" <[e-mail]>, "闫成至" <[e-mail]>, "闫超" <[e-mail]>, "佟志强" <[e-mail]>, "邹力新" <[e-mail]>, "紫怡书吧（转大明收）" <[e-mail]>, "庄小霞" <[e-mail]>, "祝毓敏" <[e-mail]>, "诸奇亮" <[e-mail]>, "朱月楼" <[e-mail]>, "朱耀庭" <[e-mail]>, "朱彦昭" <[e-mail]>, "朱新华" <[e-mail]>, "朱巍" <[e-mail]>, "朱清华" <[e-mail]>, "朱建路" <[e-mail]>,

[禹爸爸]

使用正则表达式，可以提取出有效的邮件地址字串。

[lextm]

最快也就是正则了，在别的语言里面都是首选。Delphi默认没有正则库，但是搜索一下可以找到的。

[ideation_shang]

这类问题正则是最好的了 RegExpr.pas 开源的delphi正则单元

[stherix]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
lg,lt:Integer;
List1,List2,List3:TStrings;
begin
List1:=TStringList.Create;
List2:=TStringList.Create;
List3:=TStringList.Create;
List2.LineBreak:=',';
List1.LoadFromFile('d:\2.txt');
for i := 0 to List1.Count - 1 do
begin
List2.Text:=List1[i];
for j := 0 to List2.Count - 1 do
begin
lt:=Pos('<',List2[j]);
lg:=Pos('>',List2[j]);
if (lt>=0)and(lg>=0) then
begin
List3.Add(Copy(List2[j],lt+1,lg-lt-1));
end;
end;
end;
List3.SaveToFile('d:\1.txt');
end;

[stherix]

..还要加上
List1.Free;
List2.Free;
List3.Free;

[ipbdq]

我说的是举个例子，若是不规则的，其他的代码，比如网页里面，怎么提出email

[liuhengwinner]

网页取源码进行分析，用IDhttp Get 就行

[ipbdq]

谢谢诸位大虾，已经搞定了。