1 avaliação
COMENTAR
INDICAR
Tirando o acento das palavrasPostada em: 30/11/2004
\'Utilize para tirar o acento a função VerificaPalavra(atibuto)
Function TiraAcento(Palavra)
CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
Texto = ""
if Palavra <> "" then
For X = 1 to Len(Palavra)
Letra = mid(Palavra,X,1)
Pos_Acento = inStr(CAcento,Letra)
if Pos_Acento > 0 then
Letra = mid(SAcento,Pos_Acento,1)
end if
Texto = Texto & Letra
next
TiraAcento = Texto
end if
end function
Function VerificaPalavra(atributo)
Dim i
Dim id
Dim Auxiliar
Dim Resultado
Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare)
For i = LBound(Auxiliar) To Ubound(Auxiliar)
Resultado = Resultado & " " & TiraAcento(Auxiliar(i))
Next
VerificaPalavra = UCase(Trim(Resultado))
end function
Function TiraAcento(Palavra)
CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
Texto = ""
if Palavra <> "" then
For X = 1 to Len(Palavra)
Letra = mid(Palavra,X,1)
Pos_Acento = inStr(CAcento,Letra)
if Pos_Acento > 0 then
Letra = mid(SAcento,Pos_Acento,1)
end if
Texto = Texto & Letra
next
TiraAcento = Texto
end if
end function
Function VerificaPalavra(atributo)
Dim i
Dim id
Dim Auxiliar
Dim Resultado
Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare)
For i = LBound(Auxiliar) To Ubound(Auxiliar)
Resultado = Resultado & " " & TiraAcento(Auxiliar(i))
Next
VerificaPalavra = UCase(Trim(Resultado))
end function
Enviado por USUÁRIO REMOVIDO em 30 de novembro de 2006 Gostaria que tivesse mais colunos sobre banco de dados. Estou tendo dificuldades em criar um form com combobox que faz acesso ao banco e cadastra a opção escolhida...
Parabéns pela organização do site, muito bom mesmo.
Enviado por USUÁRIO REMOVIDO em 15 de julho de 2005 Não consigo fazer esta função funcionar...Você pode me ajudar? Eu inseri numa página de pesquisas, mas não acontece nada!
Enviado por USUÁRIO REMOVIDO em 25 de abril de 2005 Sandro Moraes Peixoto
cara basta vc faser um link com uma açao
ou usar um response.redirect no final do script de envio e manda ele ir pruma pagina que esta escrito isso ali
ou manda ele imprimir na mesma pagina com o response.write
Enviado por USUÁRIO REMOVIDO em 29 de março de 2005 boa noite,,,
estou com um problema...
fiz um formulario...
quando é clicado o botão Enviar...
queria que aparececesse uma messangem... "sua mensagem foi enviado com sucesso"
como faço?
existe algum script..?
por favor me ajuda...
sei que vcs
Enviado por USUÁRIO REMOVIDO em 18 de fevereiro de 2005 Será que você poderia me explicar melhor como utilizar esta função, eu preciso tirar os acentos de uma caixa de texto, pois quando vou postar e armazenar no banco ele dá erro no texto. Onde coloco o nome da minha caixa de texto ? Obrigado.
