HTML

USUARIO.EXCLUIDOS 19/06/2004 01:51:03
#30340
Aêêê... um texto em HTML usa-se %20 no lugar do espaço... e tem vários outros códigos...

Como posso transformar um texto todo codificado assim para o modo normal de visualização ?

Valews,
WEBMASTER 19/06/2004 05:57:42
#30346 Resposta escolhida
Eu tenho dois códigos:

Esse é de autoria de DAVIMEDRADE
Function H2T(strText As String)

Dim strReturn As String

strReturn = Replace(strText, "+", " ")

Dim N As Integer
Dim strHex As String
For N = 0 To 255

    If N <> Asc("%") Then
        strHex = Hex(N)
    
        If Len(strHex) < 2 Then
            strHex = "0" + strHex
        End If

        strReturn = Replace(strReturn, "%" + strHex, Chr(N))
    End If

Next N

strReturn = Replace(strReturn, "%25", "%")
H2T = strReturn

End Function


E esse é o meu:
Function H2Tx(dados As String) As String
Dim TempIn As Long
Dim TempHex As String
Dim TempAsc As Integer
Dim dados1 As String

dados1 = Replace(dados, "%25", "&{25}")
dados1 = Replace(dados1, "+", " ")

    While InStr(dados1, "%") > 0
        TempIn = InStr(dados1, "%")
        TempHex = Mid(dados1, TempIn + 1, 2)
        TempAsc = Val("&H" & TempHex)
        dados1 = Replace(dados1, "%" & TempHex, Chr(TempAsc))
    Wend

    H2Tx = Replace(dados1, "&{25}", "%")
End Function


Se as duas funcionam perfeitamente? não sei, mas quebra um galho na hora de decodificar UTF-8, que é usado para URI's de HTTP...

Boa Sorte!
Tópico encerrado , respostas não são mais permitidas
Voltar