清除HTML标签

'===============================================================
'函数名：RemoveHTML
'作  用：清除HTML标签
'参  数：strHTML 内容
'返回值：过滤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

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 清除清除
相关日志: