basic_regexp.pb

来自「Delphi脚本控件」· PB 代码 · 共 13 行

Dim r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g
Dim s = "My e-mails are [e-mail] and [e-mail]"
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