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('[^']*'|""[^""]*""|[^'"">])*?>
1)贴图：<img src="图片地址">
2)加入连接：<a href="所要连接的相关地址">写上你想写的字</a>
3)在新窗口打开连接：<a href="相关地址" target="_blank">写上要写的字</a>
消除连接的下划线在新窗口打开连接：
<a href="相关地址" style="text-decoration:none" target="_blank"> ......
<select name="CluefromType" id="CluefromType" style="width: 182px" onchange="return CluefromOtherTypeSelected();">
<option value="市场走访">
市场走访
< ......
