首页 相关文章 用正则表达式写的HTML分离函数

用正则表达式写的HTML分离函数

存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了

<%
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, ""...[ 查看全文 ]

2016-01-29 标签:

用正则表达式写的HTML分离函数的相关文章

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