ASP / Strings
Retirando aspas e acentuação das palavras
enviado por Wellington Marinheiro
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>
<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>
Versão impressa gerada em: quarta-feira, 25 de novembro de 2009
© Copyright 2006 - R&W Consulting.