extraer datos html

[Adler]

Hola

Aquí tienes un tres en uno . Remplaza las vocales acentuadas, los tags html y corta por la izquierda la cadena

Código asp:

Function LimpiarTags(cadena, longitud)
cadena = replace(cadena,"ñ", "ñ")
cadena = replace(cadena,"Ñ", "Ñ")
cadena = replace(cadena,"á", "á")
cadena = replace(cadena,"Á", "Á")
cadena = replace(cadena,"é", "é")
cadena = replace(cadena,"É", "É")
cadena = replace(cadena,"í", "í")
cadena = replace(cadena,"Í", "Í")
cadena = replace(cadena,"ó", "ó")
cadena = replace(cadena,"Ó", "Ó")
cadena = replace(cadena,"ú", "ú")
cadena = replace(cadena,"Ú", "Ú")
Dim objRegExp, Largo
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]+>"
strlimpio = objRegExp.Replace(cadena, " ")
Set objRegExp = Nothing
If Len(strlimpio) => longitud then
Largo = Left(strlimpio, longitud)&".."
Else 
Largo = strlimpio
End If
LimpiarTags = Largo
End Function
 

Uso

LimpiarTags(campo, 200)

Suerte