Eliminar HTML

[Ascariz]

Buscando en los fondes de Internet la entrontre..

Aki la teneis.

Código:

'------------------------------------------
'
' Esta funcion recibe una cadena en HTML y retorna sin las etiquetas de HTML
'
'------------------------------------------

Function stripTags( strToStrip )
	Dim objRegExp
	strToStrip = Trim( strToStrip & "" )
	If Len( strToStrip ) > 0 Then
		Set objRegExp = New RegExp
		objRegExp.IgnoreCase = True
		objRegExp.Global = True
		objRegExp.Pattern = "<[^>]+>"
		strToStrip = objRegExp.Replace(strToStrip, "")
		Set objRegExp = Nothing
	End If
	stripTags = strToStrip
End Function