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('[^']*'|""[^""]*""|[^'"">])*?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Test Page</title>
</head>
<body>
<table border="1px">
......
随着Web2.0技术的不断发展，Web前端的优化受到越来越多的关注，特别是JavaScript和CSS优化的讨论一直是热点，工具也相对丰富，而对HTML优化则有所忽视，最近，来自百度泛用户体验团队的工程师Miller（chenminliang）撰文强调了HTML优化的重要性和相关技巧。
Miller首先举例说明了HTML优化稍显忽略的事实：
在Steve Souder ......
