Código Fonte - O melhor conteúdo para programadores

Autor

Wellington Marinheiro

membro deste maio de 2008

ASP

Compartilhe e guarde

Enquete

Qual é o melhor site de buscas da internet?

Home Código Fonte ASP Strings

Retirando aspas e acentuação das palavras

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

<HTML>
<HEAD>
<TITLE>.:: Sem acentuacao ::.</TITLE>
<META NAME="Author" CONTENT="Welington Marinheiro">
</HEAD>
<BODY>
<%
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 "<B>Função para retirar acentuação, aspas e cedilhas das palavras...</B><BR><BR>"

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

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

 %>

</BODY>
</HTML>

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco

Autor

Wellington Marinheiro

Tags

ASP

Compartilhe e guarde

Enquete

Qual é o melhor site de buscas da internet?

Retirando aspas e acentuação das palavras

Comente