paxScript Demo. Regular expressions.


paxBasic

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

paxC

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;
   }
}

paxPascal

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;


Copyright © 1999-2006 VIRT Laboratory. All rights reserved.