利用lotus script 替换文本中的html标记

Function removeHTMLTags(sHTML)
        Dim  oRegExp, sNoTags
       
        sNoTags = sHTML
        'oRegExp initialization
        Set oRegExp = CreateObject ("VBScript.RegExp")
                'Creates a regular expression object                
        oRegExp.IgnoreCase = True
                'Don't care about case sensitivity
        oRegExp.Global = True
                'Global applicability
        oRegExp.Pattern = "<[^>]*>"
                        'This pattern matches any html tag
        sNoTags= oRegExp.Replace(sNoTags, "")
                        'All html tags are stripped
        Set oRegExp = Nothing
        'Destroys the regExp object
       
        removeHTMLTags = sNoTags
                'Results are returned
       
       
End Function