Retirando aspas e acentuação das palavras

A função abaixo retira todas as aspas, acentuação e cedilhas das palavras.

<%
Function SemAcento(txt) 
	Dim xc, xs, saida, posicao, caract, X
		xc = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ'" 
		xs = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" 
		saida = "" 
		If txt <> "" then 
			For X = 1 To Len(txt) 
				caract = Mid(txt,X,1) 
				posicao = InStr(xc,caract) 
				If posicao > 0 Then 
					caract = mid(xs,posicao,1) 
				end if
				saida = saida & caract 
			Next 
			SemAcento = saida 
		End If 
	End Function 

response.write "Função para retirar acentuação, aspas e cedilhas das palavras...

"

'Como tilizar
palavras="Acentuação, epígrafo, átomo, avião, caminhões, d'agua, caminhando à toa"

response.write "Palavras com acentuação: " & palavras & "
"
response.write "Palavras sem acentuação: " & SemAcento(palavras) & "
"

 %>

Tags:

• ASP,
• String