以后地位:首页 > 建站常识 > 列表

过滤一切HTML代码 和空格换行正则抒发式

点击: 次时候:2017/7/21关头词:上海网页设想 上海网站建造 正则抒发式
Function RemoveHTML(strHTML)Dim objRegExp, Match, MatchesSet objRegExp = New RegexpobjRegExp.IgnoreCase = TrueobjRegExp.Global =
过滤一切HTML代码 和空格换行正则抒发式

Function RemoveHTML(strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>"

'objRegExp.Pattern = "(\r|
|\r
| |\t| )"

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

strHtml=WordStr(strHTML,Match.Value,"")

Next

objRegExp.Pattern = "(\r|
|\r
| |\t| )"

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

strHtml=WordStr(strHTML,Match.Value,"")

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function

预定建站
收费供给网站优化
支付关头词