Remover acentuação?
Pessoal, aqui vou eu, mais uma vez, para variar, pedir ajuda de vcs, hehehe...
Antes de mais nada, eu nunca estudei sobre o assunto, por isso pode parecer estranho saber algumas coisas e não saber outras mais simples, foi na marra...
Então não estranhem http://forum.imasters.com.br/public/style_emoticons/default/blush.gif
Bom, é o seguinte:
Tenho uma página em ASP e um BD em Access, e implantei um sistema de busca nele. Porém, coloquei as palavras-chave sem acento. Se a pessoa fizer uma busca acentuada, não irá encontrar resultados. (médicos =! medicos, por exemplo).
Fucei aqui no fórum, então, por uma função que retirasse a acentuação da string de procura. Achei o seguinte bloco e o inseri:
<script>
function tira_acentos()
dim acentos,nvoltas,str,palavra
'######## String a ser modificada ####################################
'Pode usar dentro da função Lcase o objeto request para formulários
palavra=Lcase("aáàãâäeéèêëiíìîïoóòõôöuúùûü")
'######## Acentos a serem verificados#################################
'Caso queira adicionar, o Ç deve acrescentar a condição no select case
acentos="aáàãâäeéèêëiíìîïoóòõôöuúùûü"
nvoltas=len(acentos)
for voltas=1 to nvoltas step 1
select case voltas
case 1,2,3,4,5,6
str="a"
case 7,8,9,10,11
str="e"
case 12,13,14,15,16
str="i"
case 17,18,19,20,21,22
str="o"
case 23,24,25,26,27
str="u"
end select
palavra=replace(palavra,right(left(acentos,voltas),1),str)
next
tira_acentos=palavra
end function
</script>
A dúvida é como e quando esse bloco "entrará em ação". Tentei colocar um onBlur="tira_acentos()" no campo de procura, mas não dei certo. No botão de pesquisa, que é uma imagem (input name="image1" type="image" id="image14" src="bot_pesq2.gif" width="32" height="32">), também não deu certo. (onClick="tira_acentos()"). O nome da varável da string de procura é 'chave'. O que fazer? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif
Desde já agradeço! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif
Discussão (3)
Carregando comentários...