none
Encode de caracteres especificos RRS feed

  • Pergunta

  •  Ola amigos, preciso de uma ajuda...preciso fazer Enconde de caracteres  mas nao quero usar o comando Server.HMLEncode...pois quero Enconde de alguns especificos caracteres como:

        'sText = Replace(sText, "<", "&lt;")
        'sText = Replace(sText, ">", "&gt;")
        'sText = Replace(sText, "(", "&#40;")
        'sText = Replace(sText, ")", "&#41;")
        'sText = Replace(sText, "#", "&#35;")
        'sText = Replace(sText, "&", "&#38;")

    mas estou com dificuldades de fazer...poderia me dar uma ajuda ou me mostrar algum caminho...eu tenho esse codigo de exemplo...

    Function HTMLEncode(sText)
        Dim I
        sText = Replace(sText, "<", "&lt;")
        sText = Replace(sText, ">", "&gt;")
        sText = Replace(sText, "(", "&#40;")
        sText = Replace(sText, ")", "&#41;")
        sText = Replace(sText, "#", "&#35;")
        sText = Replace(sText, "&", "&#38;")

        For I = 1 to 255
            sText = Replace(sText, I , Chr(I))
        Next
        HTMLEncode = sText
    End Function

    mas nao funcionou...pq?

    quarta-feira, 9 de agosto de 2006 11:44

Todas as Respostas

  • Olá

    Neste caso você não precisa fazer isto porque já existe uma função ASP pronta:

    Ex:

    <%Response.Write Server.HTMLEncode("A tag de tabela <Table>")%>

    Resultado:

    A tag de tabela &lt;Table&gt;

     

    Abraço

    quarta-feira, 9 de agosto de 2006 20:55