去除HTML的正则表达式函数

去除HTML的正则表达式函数

Function RemoveHTML(strText)
       Dim RegEx      
       Set RegEx = New RegExp      
       RegEx.Pattern = "<[^>]*>"
       RegEx.Global = True      
       RemoveHTML = RegEx.Replace(strText, "")      
 End Function 

带空格和回车符号的HTML去除函数

function   GetInnerText(strHtml)   
        dim   regex   
        Set   regex   =   New   RegExp   
        regex.Pattern   =   "<\/?[^>]*>"   
        regex.Global   =   True   
        regex.IgnoreCase   =   True   
        GetInnerText   =   regex.Replace(strHtml,"")   
        regex.Pattern   =   "\n"   
        regex.Global   =   True   
        regex.IgnoreCase   =   True   
        GetInnerText   =   regex.Replace(GetInnerText   ,"")   
        Set   regex   =   Nothing   
  end   function