Eliminar HTML en Select List

[José Molina]

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:

    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

Suerte