3 replies to this topic

[Moskito]

Dae, preciso de um script que faça o seguinte:

o usuário digita num campo (form) de busca, quero um script que retire os acentos.. REPLACE acho que é a função, mas o script tem q substituir "á" por "a", "é" por "e" e assim por diante, pra depois disso buscar no banco de dados as palavras sem acento...

Se alguém puder postar um exemplo do replace buscando os dados enviados por um form.. agradeço

[Junka]

Veja se ajuda:

<%
Function RemoveAcentuacao(Pl)
Dim I
Dim LCA(47)
Dim LSA(47)

LCA(0) = "ç"
LCA(1) = "À"
LCA(2) = "Á"
LCA(3) = "Â"
LCA(4) = "Ã"
LCA(5) = "Ä"
LCA(6) = "Å"
LCA(7) = "à"
LCA(8) = "á"
LCA(9) = "â"
LCA(10) = "ã"
LCA(11) = "ä"
LCA(12) = "å"
LCA(13) = "È"
LCA(14) = "É"
LCA(15) = "Ê"
LCA(16) = "Ë"
LCA(17) = "è"
LCA(18) = "é"
LCA(19) = "ê"
LCA(20) = "ë"
LCA(21) = "Ò"
LCA(22) = "Ó"
LCA(23) = "Ô"
LCA(24) = "Õ"
LCA(25) = "Ö"
LCA(26) = "ò"
LCA(27) = "ó"
LCA(28) = "ô"
LCA(29) = "õ"
LCA(30) = "ö"
LCA(31) = "Ù"
LCA(32) = "Ú"
LCA(33) = "Û"
LCA(34) = "Ü"
LCA(35) = "ù"
LCA(36) = "ú"
LCA(37) = "û"
LCA(38) = "ü"
LCA(39) = "Ì"
LCA(40) = "Í"
LCA(41) = "Î"
LCA(42) = "Ï"
LCA(43) = "ì"
LCA(44) = "í"
LCA(45) = "î"
LCA(46) = "ï"
LCA(47) = "Ç"

LSA(0) = "c"
LSA(1) = "A"
LSA(2) = "A"
LSA(3) = "A"
LSA(4) = "A"
LSA(5) = "A"
LSA(6) = "A"
LSA(7) = "a"
LSA(8) = "a"
LSA(9) = "a"
LSA(10) = "a"
LSA(11) = "a"
LSA(12) = "a"
LSA(13) = "E"
LSA(14) = "E"
LSA(15) = "E"
LSA(16) = "E"
LSA(17) = "e"
LSA(18) = "e"
LSA(19) = "e"
LSA(20) = "e"
LSA(21) = "O"
LSA(22) = "O"
LSA(23) = "O"
LSA(24) = "O"
LSA(25) = "O"
LSA(26) = "o"
LSA(27) = "o"
LSA(28) = "o"
LSA(29) = "o"
LSA(30) = "o"
LSA(31) = "U"
LSA(32) = "U"
LSA(33) = "U"
LSA(34) = "U"
LSA(35) = "u"
LSA(36) = "u"
LSA(37) = "u"
LSA(38) = "u"
LSA(39) = "I"
LSA(40) = "I"
LSA(41) = "I"
LSA(42) = "I"
LSA(43) = "i"
LSA(44) = "i"
LSA(45) = "i"
LSA(46) = "i"
LSA(47) = "C"
For i= 0 to UBound(LCA)
    Resultado = Replace(Pl,LCA(i),LSA(i))
    If Pl <> Resultado Then
       Pl = ""
       Pl = Resultado
    End IF
Next
RemoveAcentuacao = Resultado
End Function
%>

Um abraço,
Eduardo

[otavio]

Se vc usar o comando LIKE no seu sql ele ignorará automaticamente os acentos e ainda por cima deixará sua consulta + rapida.

Ex.

Set rs = sua_conexao.execute("SELECT * FROM tabela WHERE campo LIKE '%" & & request.form("seu_campo") & "%';")

Onde se vc usar somente LIKE '" & request.form("seu_campo") & "' ele ira procurar exatamente a(s) palavra(s) escrita(s).

Onde se vc usar somente LIKE '%" & request.form("seu_campo") & "' ele ira procurar exatamente a(s) palavra(s) escrita(s) ou q començem com a palavra.

Onde se vc usar somente LIKE '" & request.form("seu_campo") & "%' ele ira procurar exatamente a(s) palavra(s) escrita(s) ou q terminem com a palavra.

Onde se vc usar somente LIKE '%" & request.form("seu_campo") & "%' ele ira procurar tudo..rsrsrs

Um abraço,
t+

[[webmaster]®]

dê uma procura no site http://www.superasp.com.br por: Buca inteligente.
tem um ótimo artigo lá.