|
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & "Match " & I & " found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
'正则
regpatrn = "http(s)?://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"
MsgBox(RegExpTest(regpatrn, "afasfasfasfasfasdfasfasfd http://www.51testing.com afasfaf"))
看看上面这个例子,把输入输出改下就可用使了。
这些手册上都有,多看看手册 |
|