Nobody said it was easy, it's such a shame for us to paaaart....
'Eliminazione dei tag HTML
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<%(.|\\n)+?>"
'Replace Tutti i tag HTML con una stringa vuota
strOutput = objRegExp.Replace(strHTML, "")
'Replace tutti < e > con < e >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
strOutput = Replace(strOutput, "'", "''")
togliHTML = strOutput 'Valore che andrà in uscita
Set objRegExp = Nothing
End Function>
[Modificato da Super Lupo 25/12/2002 14.53]