如何过滤掉a标签,又保留<a href=“#”>保留文字 <a>

1，过滤所有html标签的正则表达式：]+>2，过滤所有html标签的属性的正则表达式：$html=preg_replace("/]*>/","",$html)3，过滤部分html标签的正则表达式的排除式（比如排除，即不过滤）：]+>4，过滤部分html标签的正则表达式的枚举式（比如需要过滤等）：]*>5，过滤部分html标签的属性的正则表达式的排除式（比如排除alt属性，即不过滤alt属性）：\s(?!alt)[a-zA-Z]+=[^\s]*

调用这个方法就可以了：

Function replaceWithoutP(ContentStr)

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = "(<(\/){0,1}[^<>p]*>)|(<(\/){0,1}[^<>]+p[^<>]*>)"

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")

replaceWithoutP = ClsTempLoseStr

Set regEx = Nothing

End Function

兄弟你可以试一下

其中(<(\/){0,1}[^<>p]*>)|(<(\/){0,1}[^<>]+p[^<>]*>)的意思是：以<或者</开头，内容不包含<和>和p,以>结尾；或者以<或者</开头内容包含p但是p前面有别的字符p后面为任意字符,以>结尾

把这些字符串都替换掉就得到你要的结果了

---