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 " & I & " found at position "
'RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
'RetStr = RetStr & Match.Value & "'." & vbCRLF
'RetStr=replace(strng,Match.Value,"")
RetStr=RetStr & Match.FirstIndex & ". Match Value is "+Match.Value+"<br>"
Next
RegExpTest = RetStr
End Function
'RegExpTest("is.", "IS1 is2 IS3 is4")
'RegExpTest("/d*/./d+"," ??? 0.0007")
'使用下面的匹配<IMG ....>中所有(含换行),但剔除符号>
<IMG([^>]*|(.|\n)*)>
'若单独使用
<IMG(.|\n)*> 将忽略>符号,匹配到了字符结束
<IMG[\\s\\S]*?> 将匹配不到