pascal_regexp.pp

来自「Delphi脚本控件」· PP 代码 · 共 15 行

var r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g;
    s = 'My e-mails are [e-mail] and [e-mail]';
repeat
 if r.exec(s).length = 0 then
   Break
 else
 begin
   writeln(r[0]);
   writeln(r.MatchPos[0]);
   writeln(r.MatchLen[0]);
   writeln(r.LastIndex);
 end;
until false;