Dim objReg,objMatches,objMatch
Set objReg=new RegExp
objReg.Global=True
objReg.IgnoreCase=True
objReg.Pattern="<('[^']*'|""[^""]*""|[^'"">])*?>"
Set objMatches=objReg.Execute(字符串)
For Each objMatch In objMatches
找到的HTML ：objMatch.value
Next
Set objMatches=Nothing
Set objReg=Nothing
由于今天查找
<img onclick='if(this.width>100) tihs.width=100' src="/xxx.jpg" />
时发现<[^>]+>的严重不足
但是网上找不到任何准确点的，特写一个，以备以后可能需要。
查找img正则
<([^\s]+)\s('[^']*'|""[^""]*""|[^'"">])*?>
