Delphi 提取TXT中的Email 数据

页面导航:首页 > 软件编程 > Delphi > Delphi 提取TXT中的Email 数据

Delphi 提取TXT中的Email 数据

来源: 作者: 时间:2016-01-18 15:41 【

仅作记录,方便复用。适合以下 26684;式的类型处理aaaa [email protected] com sfsfsafalfjaf [email protected] com cn afaf 阿发一行一个 email 有明显的分割符号。一行多个email 还要改一下。program Pr

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

aaaa sfsfs

afalfjaf afaf 阿发

一行一个 email 有明显的分割符号。一行多个email 还要改一下。

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ,
  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.



Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<