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('[^']*'|""[^""]*""|[^'"">])*?>
HTML 5的新标记
设计者们需要完成的任务是要给HTML 5开发一个更丰富的和更有含义的语义，当然可以想象这种
新方案将会是很灵活和很高效的，同时与所有的现代互联网标准相适应。下面就是一些将要在
HTML 5里新加入的标记.
◆<article> 标记 定义一篇文章
◆<aside> 标记 定义页面内容部分的侧边栏
◆<a ......
