本文整理自网络，侵删。
仅作记录，方便复用。适合以下格式的类型处理
“
aaaa dfaafa@qq.com sfsfs
afalfjaf afdaf@sina.com.cn afaf 阿发
”
一行一个 email 有明显的分割符号。一行多个email 还要改一下。
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
windows,
perlregex;
var
txt,savetxt:TextFile;
str:string;
reg:TPerlRegEx;
i:int64;
begin
try
reg := TPerlRegEx.Create;
AssignFile(txt,'xxx.com.sql');
AssignFile(savetxt,'saved.txt');
Reset(txt);
Rewrite(savetxt);
reg.RegEx := '([A-Za-z0-9-_.+%]+@[A-Za-z0-9-.]+\.[A-Za-z]{2,4})';
i:=0;
while not Eof(txt) do
begin
Readln(txt,str);
reg.Subject := str;
if reg.Match then
begin
Writeln(savetxt,reg.Groups[1]);
end;
Inc(i);
write(#13);
write(IntToStr(i));
end;
CloseFile(txt);
CloseFile(savetxt);
reg.Free;
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
相关阅读 >>
Delphi 随便找个网站获取格林威治时间, 并转换到北京时间
Delphi tdragimage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果
Delphi 如何编写使stringgrid中的一列具有check功能，和checkbox效果一样
更多相关阅读请进入《Delphi》频道 >>
