Dim r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g Dim s = "My e-mails are ab@cable.netlux.org and paxscript@gmail.com" Do If r.exec(s).length = 0 Then Exit Do Else println r[0] println r.MatchPos[0] println r.MatchLen[0] println r.LastIndex End If Loop Until False
var r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g; var s = 'My e-mails are ab@cable.netlux.org and paxscript@gmail.com'; while (true) { if (r.exec(s).length == 0) break; else { println r[0]; println r.matchPos[0]; println r.matchLen[0]; println r.lastIndex; } }
var r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g; s = 'My e-mails are ab@cable.netlux.org and paxscript@gmail.com'; 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;