none
Agregar a un control WebBrowser solo texto (sin Tags HTML) RRS feed

  • Pregunta

  • Un saludo a todos.

    Tengo el siguiente problema.

     

    Tengo un control WebBrowser donde agrego texto con html para darle formato y color.

     

    Algo así

    Code Snippet

    Me.WebBrowser1.Document.Body.InnerHtml

     = "<span style='font-size: 9pt; font-family: Tahoma, Verdana, Arial; color: #000000;'>" & sTexto & "</span><br />"

     

     

    Pero si en la cadena sTexto introducen una llave ó tag HTML el control WebBrowser la lee y la muestra segun la llave, y yo quiero que el texto que venga en la cadena sTexto se muestre como tal y que no procese los comandos en HTML que pueda traer.

     

    Ya intente con la opción InnerText Pero me borra todo el formato (El style que le pongo en mensajes anteriores, el margen etc.)

     

    Alguien sabe como?

     

    Un saludo, Gracias

    lunes, 14 de abril de 2008 18:09

Respuestas

  • Termine por reemplazar los caracteres de código HTML por su equivalente a código:

     

    Code Snippet

    Private Function LimpiarTags(ByVal sCadena As String) As String

    'Los signos

    sCadena = Replace(sCadena, "&", "&amp;")

    sCadena = Replace(sCadena, "<", "&lt;")

    sCadena = Replace(sCadena, ">", "&gt;")

    sCadena = Replace(sCadena, "/", "&#47;")

    'Acentos en Mayusculas

    sCadena = Replace(sCadena, "Á", "&#193;")

    sCadena = Replace(sCadena, "É", "&#201;")

    sCadena = Replace(sCadena, "Í", "&#205;")

    sCadena = Replace(sCadena, "Ó", "&#211;")

    sCadena = Replace(sCadena, "Ú", "&#218;")

    'Acentos en Minusculas

    sCadena = Replace(sCadena, "á", "&#225;")

    sCadena = Replace(sCadena, "é", "&#233;")

    sCadena = Replace(sCadena, "í", "&#237;")

    sCadena = Replace(sCadena, "ó", "&#243;")

    sCadena = Replace(sCadena, "ú", "&#250;")

    Return sCadena

    End Function

     

     

     

    Saludos
    martes, 15 de abril de 2008 0:06