c_regexp.pc

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

var r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g;
var s = 'My e-mails are [e-mail] and [e-mail]';

while (true) {
  if (r.exec(s).length == 0)
    break;
   else {
     println r[0];
     println r.matchPos[0];
     println r.matchLen[0];
     println r.lastIndex;
   }
}