僅作記錄,方便複用。適合以下格式的類型處理
“
aaaa [email protected] sfsfs
afalfjaf [email protected] 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.