首页 相关文章 用正则表达式过滤html代码

用正则表达式过滤html代码

代码例子如下:
%
Option Explicit

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = ".+?"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all and with and
strOutput = Replace(strOutput, "", "")
strOutput = Replace(strOutput, "", "")

stripHTML = strOutput 'Return the value of strOut...[ 查看全文 ]

2016-02-19 标签:

用正则表达式过滤html代码的相关文章

手机页面
收藏网站 回到头部