
05/07/2005, 18:09
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
Trata con la siguiente funcion:
Código:
Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"
'Replace </p>, <br>,
strHTML = Replace(strHTML,"<br>",vbCrLf)
strHTML = Replace(strHTML,"<br/>",vbCrLf)
strHTML = Replace(strHTML,"<br />",vbCrLf)
strHTML = Replace(strHTML,"</p>",vbCrLf&vbCrLf)
strHTML = Replace(strHTML," "," ")
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
stripHTML = strOutput
Set objRegExp = Nothing
End Function
Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |