ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 用正则表达式写的HTML分离函数(转)

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

原创 Linux操作系统 作者:jcszjswkzhou 时间:2019-05-02 07:36:06 0 删除 编辑
存成.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, ">", ">")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function


%>


Enter an HTML String:




<% if Len(Request("txtHTML")) > 0 then %>



View of string with no HTML stripping:

<br /><%=Request("txtHTML")%><br />


View of string with HTML stripping:


<%=StripHTML(Request("txtHTML"))%>

<% End If %>


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-124539/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2007-08-29

  • 博文量
    3488
  • 访问量
    2621617