频道栏目
首页 > 程序开发 > 软件开发 > Delphi > 正文
Delphi 提取TXT中的Email 数据
2014-12-03 11:20:53      个评论      
收藏   我要投稿

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

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.



点击复制链接 与好友分享!回本站首页
相关TAG标签 数据
上一篇:delphi.数据结构.链表
下一篇:Delphi速选组件
相关文章
图文推荐

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训

版权所有: 红黑联盟--致力于做实用的IT技术学习网站