Inverso Server.htmlencode

[felipefrancesco]

Pessoal,

Alguém sabe como inverter uma string q foi transformada com HTMLEncode??

[fertel]

Xi, não tenho certeza não, se eu estiver errado alguém me corrija, mas acho que é:

Server.URLEncode

[felipefrancesco]

Não fertel, a função urlEncode serve para transformar uma string em uma q contenha os caracteres para URL, sacou??

Mas eu já resolvi o problema valeu, pra quem quiser achei essa função:

Private Function HTMLDecode(byVal encodedstring)
     Dim tmp, i
     tmp = encodedstring
     tmp = Replace( tmp, "%20", " " )
     tmp = Replace( tmp, "%22",""""  )
     tmp = Replace( tmp, """, chr(34) )
     tmp = Replace( tmp, "<"  , chr(60) )
     tmp = Replace( tmp, ">"  , chr(62) )
     tmp = Replace( tmp, "&" , chr(38) )
     tmp = Replace( tmp, " ", chr(32) )
     For i = 1 to 255
          tmp = Replace( tmp, "&#" & i & ";", chr( i ) )
     Next
     HTMLDecode = tmp
End Function

Chefes, podem fechar o tópico!!

[dark0]

felipe !!

Posta no Tópico de Funções essa função!

pode ser?

[felipefrancesco]

Tá feito!!

[dark0]

Beleza

Posso fechar o tópico?

[felipefrancesco]

Pode sim!!