Categorias

Removedor de Entities (caracteres especiais) do HTML

Na internet encontramos centenas de funções para remover entities numéricas mas nenhuma que remova os entities especiais do HTML.

Muitas vezes ao utilizarmos XML o texto retornado vem com caracteres como ã, À, Ã, Ç, etc… e não há nenhuma função em ASP que converta esses caracteres.

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

' para chamar utilize:
' Response.Write HTMLRemoveEntities("Chitãozinho e Xororó")