13/02/2006, 15:36
| ||||
| ||||
| Eliminar HTML en Select List Saludos Estoy armando un select list con valores que vienen de uan DB. El asunto es que la data del campo de la DB tiene etiquetas HTML Ej: <stron>1</stron> ; <font size=1>2</font> Al momento de armar el select list, esas etiquetas "dañan" el mismo. Cómo le quito esas etiqueta antes de mandar a armar el select list?? Gracias
__________________ José Molina La marginalidad no esta en la incapacidad de calmar el hambre de un estómago sino en la incapacidad de calmar el hambre de la mente. |
|
14/02/2006, 04:09
| |||
| |||
| Yo uso esta funcion para limpiar de codigo HTML las variables:
Código:
Espero que te sirva. Function cleanHTML(ByVal pStrHTML)
Dim lObjRegExp
If VarType(pStrHTML) = vbNull Then Exit Function
If pStrHTML = "" Then Exit Function
Set lObjRegExp = New RegExp
lObjRegExp.Global = True
lObjRegExp.IgnoreCase = True
lObjRegExp.Pattern = "<(/)?SCRIPT|META|STYLE([^>]*)>"
pStrHTML = lObjRegExp.Replace(pStrHTML, "")
lObjRegExp.Pattern = "<(/)?(LINK|IFRAME|FRAMESET|FRAME|APPLET|OBJECT)([^>]*)>"
pStrHTML = lObjRegExp.Replace(pStrHTML, "")
lObjRegExp.Pattern = "(<A[^>]+href\s?=\s?""?javascript:)[^""]*(""[^>]+>)"
pStrHTML = lObjRegExp.Replace(pStrHTML, "")
lObjRegExp.Pattern = "(<IMG[^>]+src\s?=\s?""?javascript:)[^""]*(""[^>]+>)"
pStrHTML = lObjRegExp.Replace(pStrHTML, "")
lObjRegExp.Pattern = "<([^>]*) on[^=\s]+\s?=\s?([^>]*)>"
pStrHTML = lObjRegExp.Replace(pStrHTML, "")
Set lObjRegExp = Nothing
cleanHTML = pStrHTML
End Function
Un saludo |
|
14/02/2006, 07:34
| ||||
| ||||
| Saludos tammander Efectivamente funciono tu código, pero tiene el detalle que hay que agregar las etiquetas html fantantes, y quien sabe que etiquetas vendrán de los campos de la DB. Pero momentaneamente la he utilizado. Gracias
__________________ José Molina La marginalidad no esta en la incapacidad de calmar el hambre de un estómago sino en la incapacidad de calmar el hambre de la mente. |
|
14/02/2006, 09:31
| ||||
| ||||
| porque guargas las etiquetas en la base de datos????? deverias de dejralas limpias y a la hora de mostrar poner las etiqueitas que necesitas saludos
__________________ JuanRa Pérez San Salvador, El Salvador |
|
14/02/2006, 10:20
| |||
| |||
| Me alegra que te sirva  Esa funcion es para limpiar codigo HTML. Para evitar sentencias SQL haz otra funcion con expresiones regulares acordes al tema (SELECT, UPDATE, etc). Un saludo |
|
17/02/2006, 15:18
| ||||
| ||||
| Bien, pues Juan, los usuarios pueden colocar el código que quieran, porque son titulares de noticias y si quieren que un titular tenga dos letras en negrita pueden hacerlo. Si quieren que un titulr sea un enlace pueden hacerlo si quieren que un titular tenga cada letra de un color en particular, pueden hacerlo. Es parte de los requerimientos que el cliente pidio. tammader, no quiero validar código maligno dentro del select, simplemente quitar las etiquetas HTML, como te digo, tu código funciona, pero si al usuario se le ocurre colocar cualquier etiqueta HTML que no este parametrizada en la función, todo se dañara. Pero ya consegui un código que piensa en eso. Aquí se los dejo:
Código:
Suerte Function RemoveHTML(strText)
Dim nPos1
Dim nPos2
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop
RemoveHTML = strText
End Function
__________________ José Molina La marginalidad no esta en la incapacidad de calmar el hambre de un estómago sino en la incapacidad de calmar el hambre de la mente. |
