正则表达式为什么没有过滤这代码??

arendt2001 arendt2001 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我用的是以下正则表达式

Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>" '代表<.......>
strOutput = objRegExp.Replace(strHTML, "")'是替换啊,把<.+?>替换为""不显示,你可以使用"*"看效果
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput
Set objRegExp = Nothing
End Function

但是我读数据库的值是还有有这样的标签,如下是我从数据库中用正则表达式读出的数据:
screen.width-333)this.width=screen.width-333" border=0>新款风扇 screen.width-333)this.width=screen.width-333" border=0>海尔的整体厨房 screen.width-333)this.width=screen.width-333" border=0>海尔的整体厨房 screen.width-333)this.width=screen.width-333" border=0>精美的电熨斗 screen.width-333)this.width=screen.width-333" border=0>各
...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
arendt2001
ASP 28,401 成员 356,940 内容