PUBLICIDADE

Autor

marinheiro

Wellington Marinheiro

membro deste maio de 2008

Tags

Compartilhe e guarde

  • Rec6
  • StumbleUpon
  • ueba
  • linkk
  • dihitt
  • linkloko
  • linkto
  • Technorati
  • Simpy
  • del.icio.us
  • Faves: Fave It!

PUBLICIDADE

Enquete

Você se preocupa em desenvolver usando Web Standards?

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>

Sim   Não   Este código foi útil para você?
NotaComentá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

     (ainda não tem cadastro? clique aqui!)

Máximo de 30 caracteres

Máximo de 255 caracteres
 

R&W Consulting - Soluções Web Hospedagem UOL HOST PagSeguro - solução para pagamentos online
© 2006-2009 R&W Informática Ltda. - Todos os direitos reservados.