Delphi 提取TXT中的Email 數據

Delphi 提取TXT中的Email 數據

僅作記錄，方便復用。適合以下格式的類型處理

“

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.