[Resolvido] Função tirar acento não funciona

[fabiosc80 0]

Reabri este tópico pois estou tendo o mesmo problema da Viviane.

As palavras que vem com acentos do banco de dados(acsess) não tem os acentos removidos por nenhuma função informada neste tópico.

Não sei mais oque fazer ja que tentei todas as alternativas sugeridas aqui e em outros fóruns.

 

Alguem poderia me guiar para uma luz no fim deste túnel?

 

 

 

Tópico referência

[Patrique 0]

POste ae como esta tentando.

[fabiosc80 0]

eu tenho um valor quer vem do banco em uma pagina e é enviado para outra pagina via session.

 

strCliente = session("strCliente")
session("strCliente")=strCliente

 

E quando tem uma palavra do banco que esta com acento em nenhuma daquelas funções mostradas aqui os acentos sairam.

 

O cliente nao quer as palavrar que vao para o upload com o acento.

Estou dando um FSO mas antes tenho que pegar o valor de "strCliente" sem os acentos.

[Patrique 0]

Mais mostre-me como você esta chamando a função, pegue uma lá e faça a chamativa na variavel para a gente ver se esta chamando corretamente.

[fabiosc80 0]

strCliente = session("strCliente")

session("strCliente")=strCliente

 

 

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

 

 

TiraAcento(strCliente)

response.write strCliente

[Patrique 0]

veja assim

 

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

strCliente = session("strCliente")

response.write TiraAcento(strCliente)

[fabiosc80 0]

mesma coisa patrique.

 

olha o que vem por exemplo.

 

pãíónx

 

eu coloquei esses diretamente no banco de dados para testar. e não adianta.

[Patrique 0]

To sem asp aqui, mais teste assim e veja se vai

 

<%
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

response.write TiraAcento("é fod@")
%>

[fabiosc80 0]

Assim funciona.

 

mas coloquei assim:

 

"área" e me trouxe: aarea

 

eu tinha testado assim antes ja e assim ele muda, ele só nao muda o valor que vem do banco.

[Patrique 0]

que meleca hein rsrsrss

 

tenta direto assim

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


response.write TiraAcento(session("strCliente"))

[fabiosc80 0]

Adivinha só....

 

Deu na mesma...

 

Sem sucesso.

[Patrique 0]

kkkkkkkk

 

Mano testa assim, em uma pagina isolada so faça o teste e me fala se ta saindo sem o acento

 

<%
session("strCliente") = "é fod@"
meleca = session("strCliente")

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


response.write TiraAcento(meleca)
%>

[fabiosc80 0]

assim vai pq você jogou string na mao

[Patrique 0]

mano brow, posta se code completo ae para eu analisar

[fabiosc80 0]

o codigo é aquele que joguei la em cima.

só que antes vem componente de upload.

[Patrique 0]

Cara é estranho, no code anterior que eu postei, a session é criado na página e depois chamada nesta mesma pagina, não importa se eu coloquei na mão ou não, ta estranho isso rsrsrs, to achando que você tava testando com a session anterior, faça o seguinte, coloca Session.Abandon no começo do code, faça novamente os testes, faça um teste também com response.write para mostrar o que de fato esta sendo mostrado, num é possível rsrsrsr

[xanburzum 169]

Existem vários exemplos no lab. De script, até mesmo, você retirar os acentos direto na string SQL

[jrcardozo 4]

não seria apenas:

response.write TiraAcento(Cstr("" & session("strCliente")))

[xanburzum 169]

sempre uso esta e vai belezinha...

 

Function RemoveAcentos(ByVal Texto)
    Dim ComAcentos
    Dim SemAcentos
    Dim Resultado
	Dim Cont
    'Conjunto de Caracteres com acentos
    ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
    'Conjunto de Caracteres sem acentos
    SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
    Cont = 0
    Resultado = Texto
    Do While Cont < Len(ComAcentos)
	Cont = Cont + 1
	Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))
    Loop
    RemoveAcentos = Resultado
End Function

[fabiosc80 0]

Jonathan nao funcionou.

 

Não entendo pq nao troca os acentos.

 

 

não seria apenas:

response.write TiraAcento(Cstr("" & session("strCliente")))