用正则过滤掉所有的HTML标签 中间的内容不过滤
dim
re
set
re
=
new
RegExp
re.IgnoreCase
=
True
re.Global
=
True
re.Pattern
=
(
"
<[^>]+>
"
)
s
=
re.replace(rs1(
"
news_content
"
),
""
)
s
=
left
(s,
600
)
&
"
......
"
set
re
=
nothing
response.write s
本文介绍了一段使用VBA编程去除文本中所有HTML标签的实用代码。该方法通过正则表达式匹配并替换所有形如<[^>]+>的HTML标签,确保了文本内容的纯净,适用于需要清理HTML标签的应用场景。

1186

被折叠的 条评论
为什么被折叠?



