刚刚找出来的相对准确的查找HTML的正则表达式

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正则
<img/s('[^']*'|""[^""]*""|[^'"">])*?>