存成.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分離函數的全部內容,更多內容請繼續關注錯新技術頻道網站!
?
新聞熱點
疑難解答