怎么用正则表达式写的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 with
  strOutput = Replace(strOutput, "   strOutput = Replace(strOutput, ">", ">")

  stripHTML = strOutput    'Return the value of strOutput

  Set objRegExp = Nothing
End Function


%>
 

0 then %>
    

    View of string with no HTML stripping:

    

    View of string with HTML stripping:

    

    以上就是怎么用正则表达式写的HTML分离函数的全部内容，更多内容请继续关注错新技术频道网站！