您的位置：首页 → 技术开发 → ASP技巧 → 用正则表达式写的HTML分离函数

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

时间：2004/11/7 4:11:00来源：本站整理作者：蓝点我要评论(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 &lt; and &gt;

  strOutput = Replace(strOutput, "<", "&lt;")

  strOutput = Replace(strOutput, ">", "&gt;")

  

  stripHTML = strOutput    'Return the value of strOutput



  Set objRegExp = Nothing

End Function





%>

  Enter an HTML String:


  <%=Request("txtHTML")%>

  

  

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

    

---

    View of string with no HTML stripping:


    

<br><BR> &nbsp;&nbsp;&nbsp;&nbsp;<%=Request("txtHTML")%><br><BR> &nbsp;&nbsp;&nbsp;&nbsp;

    View of string with HTML stripping:


    

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

     

<% End If %>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论