应用场景：读取html页面或者读取数据库字段值中有 html代码，这是需要的去除的部分保留显示页面中的内容。

1、只保留img与br 的标签：

Function qcbq(str) '只保留img与br
dim a,re 
set re=new RegExp 
re.pattern="<(?!img|br).*?>"  
re.global=true 
a=str 
qcbq=re.replace(a,"") 
End Function

其中 <(?!img|br).*?> 的正则表达式，可以对应需求进行修改。