Tratamento de caracteres

[DragonBR 0]

Eu utilizo essa função:

 

Function HTMLRemoveEntities(ByVal encodedstring)
	HTMLRemoveEntities= encodedstring
	dim strEntities, Entitie, n, charEntitie, entitieSymbol
	strEntities = """" && ÁÁ áá ´´ ÀÀ àà ÃÃ ãã ÇÇ çç ÉÉ éé ÊÊ êê ÍÍ íí ÑÑ ññ ÓÓ óó ÔÔ ôô ÕÕ õõ ÚÚ úú ÜÜ üü"
	Entitie = split(strEntities, " ")
	
	for n = 0 to ubound(Entitie)
		entitieSymbol = left(Entitie(n), len(Entitie(n)) - 1)
		charEntitie = right(Entitie(n), 1)
		
		HTMLRemoveEntities = replace(HTMLRemoveEntities, entitieSymbol, charEntitie, 1, -1, 0)
	Next
	
End function

 

Obs: Não é de minha autoria, mas estou postando pois é muito util

Dei uma pesquisada achei o autor Peter Jordan

[Mário Monteiro 179]

Muito util

 

Parabens por compartilhar

 

Acho que ja existe outra no laboratorio

[hargon 64]

Boa contribuição.

 

Acho que seria interessante usar essa função ao contrário. Pois só com editor é possível escrever com esses códigos aí, lembrar de cabeça é complicado... hehe

[-_KIKO_- 0]

Contribuindo então ;)

minha autoria...

 

CODE

function tratacarac(character)

tratacarac = character

tratacarac = replace(tratacarac,"á","á")

tratacarac = replace(tratacarac,"Á","Á")

tratacarac = replace(tratacarac,"é","é")

tratacarac = replace(tratacarac,"É","É")

tratacarac = replace(tratacarac,"í","í")

tratacarac = replace(tratacarac,"Í","Í")

tratacarac = replace(tratacarac,"ó","ó")

tratacarac = replace(tratacarac,"Ó","Ó")

tratacarac = replace(tratacarac,"ú","ú")

tratacarac = replace(tratacarac,"Ú","Ú")

tratacarac = replace(tratacarac,"À","À")

tratacarac = replace(tratacarac,"à","à")

tratacarac = replace(tratacarac,"È","È")

tratacarac = replace(tratacarac,"è","è")

tratacarac = replace(tratacarac,"ò","ò")

tratacarac = replace(tratacarac,"Ò","Ò")

tratacarac = replace(tratacarac,"ì","ì")

tratacarac = replace(tratacarac,"Ì","ì")

tratacarac = replace(tratacarac,"ù","ù")

tratacarac = replace(tratacarac,"Ù","Ù")

tratacarac = replace(tratacarac,"Â","Â")

tratacarac = replace(tratacarac,"â","â")

tratacarac = replace(tratacarac,"ê","ê")

tratacarac = replace(tratacarac,"Ê","Ê")

tratacarac = replace(tratacarac,"î","î")

tratacarac = replace(tratacarac,"Î","Î")

tratacarac = replace(tratacarac,"ô","ô")

tratacarac = replace(tratacarac,"Ô","Ô")

tratacarac = replace(tratacarac,"û","û")

tratacarac = replace(tratacarac,"Û","Û")

tratacarac = replace(tratacarac,"â","â")

tratacarac = replace(tratacarac,"ç","ç")

tratacarac = replace(tratacarac,"Ç","Ç")

tratacarac = replace(tratacarac,"ã","ã")

tratacarac = replace(tratacarac,"Ã","Ã")

tratacarac = replace(tratacarac,"õ","õ")

tratacarac = replace(tratacarac,"Õ","Õ")

 

end function

 

para chamar

response.write tratacarac("É assim!")