下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
function strip_tags(strHTML,allowedTags)
dim objRegExp,strOutput
set objRegExp = new regexp
strOutput = strHTML
allowedTags = "," & lcase(replace(allowedTags," ","")) & ","
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.MultiLine = true
objRegExp.Pattern = ""
set matches = objRegExp.execute(strHTML)
objRegExp.Pattern = "]*>"
for each match in matches
tagName = objRegExp.Replace(match.value,"$2")
if instr(allowedTags,"," & lcase(tagName) & ",") = 0 then
strOutput = replace(strOutput,match.value,"")
end if
next
strip_tags = strOutput
set objRegExp = nothing
end function
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
总结
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
小编个人微信号 jb51ccc
喜欢与人分享编程技术与工作经验,欢迎加入编程之家官方交流群!