|奔日网技术学堂欢迎您 tech.8BR.NET|

有很多方式，但是这个在使用中最感觉最好，给大家分享。

定义：

Function RemoveHTML(strHTML)
  ON ERROR RESUME NEXT
  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, ">", "〉")
    RemoveHTML = strOutput  
    Set objRegExp = Nothing
 End Function

调用：

RemoveHTML(被调用的值)

如此简单，页面就整洁了。

声明：此页资源均由网友维护。资源信息、网友评论，不代表本站观点。如有侵权请告知，我们立刻删除。

『热点资讯』

『最新资讯』

『网友推荐』