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 ' 遍历匹配集合。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
function getimg(str)
Set re = new RegExp
re.Pattern = "\<img(.+?)src\=([^\s]+?)(\s|\>)"
re.Global = True
re.IgnoreCase = false
re.MultiLine = false
Set rv = re.Execute(str)
For Each Match in rv ' 遍历匹配集合。
g=g+Match.SubMatches(1)+"|"
Next
getimg=g
end function
str="<img src=""dsafdsafasfd"" ...><img src=""dsafdsafasfd"" ...><img src=""dsafdsafasfd"" ...><img src=""dsafdsafasfd"" ...>"
msgbox getimg(str)
