代码例子如下:
%
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 strOut...[ 查看全文 ]