剔除HTML文档的HTML标记，转换为纯文本

将文章用文本格式保存，而不是直接使用HTML存储，这样的话会节约数据库空间．
于是写了这么个函数来将文本中的HTML标记剔除 
 
函数虽然简单，但是对处理HTML文档还是很有效的 
< % 
Function  RemoveHTML(strHTML) 
  Dim  objRegExp, Match, Matches    
  Set  objRegExp  =   New  Regexp 
  
 objRegExp.IgnoreCase  =   True  
 objRegExp.Global  =   True  
  ' 取闭合的<> 
 objRegExp.Pattern  =   " <.+?> "  
  ' 进行匹配 
  Set  Matches  =  objRegExp. Execute (strHTML) 
  
  '  遍历匹配集合，并替换掉匹配的项目 
  For   Each  Match in Matches    
     strHtml = Replace (strHTML,Match.Value, "" ) 
  Next  
 RemoveHTML = strHTML 
  Set  objRegExp  =   Nothing  
End Function  
 
% >