Funzione per rimozione tag HTML da una stringa

Il titolo dice già tutto. La funzione qui di seguito restituisce una stringa ripulita da caratteri HTML. Questo il codice:

 

 

Function strRemoveHTMLTag(strHTMLString)


        Dim rexExpression, strOutput

     

        'creazione oggetto Regular Expression

        Set rexExpression = New Regexp

 

        rexExpression.IgnoreCase = True
        rexExpression.Global = True

        rexExpression.Pattern = "<(.)+?>"

 

        'lavorazione della stringa
        strOutput = rexExpression.Replace(strHTMLString, "")

        strOutput = Replace(strOutput, "<", "")
        strOutput = Replace(strOutput, ">", "")
        strOutput = Replace(strOutput, "&quot;", """")

      

        'ritorno del valore alla funzione 

        strRemoveHTMLTag = "'" & strOutput

       

        'distruzione oggetto RegExp

        Set rexExpression = Nothing

 

End Function

 

______________________________________________________________________

 

Pag: <<    <    >   >>