Converter Asc() para Chr()

[Juliano Gomes 0]

caros colegas, na função abaixo eu consigo converter qualquer caracter para seu código ASC

Function Ansi(valor)For i = 1 To Len(Valor)	Str = Asc(Mid(Valor, i, 1))	If Len(Str) = 1 Then Str = Str	Response.Write StrNextEnd Function

se eu der um <%Response.Write(Ansi("A"))%> o resultado seria: 65

se eu der um <%Response.Write(Ansi("B"))%> o resultado seria: 66

se eu desse um <%Response.Write(Ansi("AB"))%> o resultado seria: 6566

 

para eu reverter isso nao bastaria trocar o

Str = Asc(Mid(Valor, i, 1)) por Str = Chr(Mid(Valor, i, 1)) ???

 

olhem a minha tentativa frustrada de reverter o codigo gerado na função Ansi :

 

Function Char(valor)For i = 1 To Len(Valor)	Str = Chr(Mid(Valor, i, 1))	If Len(Str) = 1 Then Str = Str	Response.Write StrNextEnd Function

o resultado que eu gostaria de obter num <%Response.Write(Char("65"))%> seria: A

porem obtenho o caracter:

 

alguem poderia me ajudar com isso?

 

um forte abraço!

[dimarcinho 0]

cara, existem alguns tipos de tabelas ANSInao eh uma unicaprocura saber sobre issojah tive alguns problemas tb, por isso nao posso ti explicar melhor :(

[klonder 14]

Olá novamente Juliano! Você gosta realmente de converter e reconverter valores, hein? hehehe... Mas tudo bem... também gosto de quebrar com convenções, principalmente se for para melhorar a segurança do site...

 

Bem testei o código:

 

<%Response.write Chr("65")%>

e ele retornou o caractere A normalmente...

 

Você digitou Char("65"), talvez seja isso...

 

Não entendi direito o que você pretende.... respondi sua pergunta?

 

 

-----------------------------------

ASP yes! PHP never!!!

[Juliano Gomes 0]

ola klonder, beleza pura!, char é o nome da função "Function Char(valor)" ali é onde tentei converter o valor