Delphi 提取TXT中的Email 数据

仅作记录，方便复用。适合以下格式的类型处理

“

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.