Função Troca Acentuação

[marciolvs 1]

Boa tarde pessoal.

 

Criei uma função para trocar acentuação por letras sem acentos, porem não funca nem com bala.

 

 

function removeacento(str)
	removeacento = replace(str,"a","a")
	removeacento = replace(removeacento,"e","e")
	removeacento = replace(removeacento,"à","a") 
	removeacento = replace(removeacento,"á","a")
	removeacento = replace(removeacento,"â","a")
	removeacento = replace(removeacento,"ã","a")
	removeacento = replace(removeacento,"ä","a")
	removeacento = replace(removeacento,"è","e")
	removeacento = replace(removeacento,"é","e")
	removeacento = replace(removeacento,"ê","e")
	removeacento = replace(removeacento,"ë","e")
	removeacento = replace(removeacento,"ì","i")
	removeacento = replace(removeacento,"í","i")
	removeacento = replace(removeacento,"î","i")
	removeacento = replace(removeacento,"ï","i")
	removeacento = replace(removeacento,"ò","o")
	removeacento = replace(removeacento,"ó","o")
	removeacento = replace(removeacento,"ô","o")
	removeacento = replace(removeacento,"õ","o")
	removeacento = replace(removeacento,"ö","o")
	removeacento = replace(removeacento,"ù","u")
	removeacento = replace(removeacento,"ú","u")
	removeacento = replace(removeacento,"û","u")
	removeacento = replace(removeacento,"ü","u")
	removeacento = replace(removeacento,"À","A")
	removeacento = replace(removeacento,"Á","A")
	removeacento = replace(removeacento,"Â","A")
	removeacento = replace(removeacento,"Ã","A")
	removeacento = replace(removeacento,"Ä","A")
	removeacento = replace(removeacento,"È","E")
	removeacento = replace(removeacento,"É","E")
	removeacento = replace(removeacento,"Ê","E")
	removeacento = replace(removeacento,"Ë","E")
	removeacento = replace(removeacento,"Ì","I")
	removeacento = replace(removeacento,"Í","I")
	removeacento = replace(removeacento,"Î","I")
	removeacento = replace(removeacento,"Ò","O")
	removeacento = replace(removeacento,"Ó","O")
	removeacento = replace(removeacento,"Ô","O")
	removeacento = replace(removeacento,"Õ","O")
	removeacento = replace(removeacento,"Ö","O")
	removeacento = replace(removeacento,"Ù","U")
	removeacento = replace(removeacento,"Ú","U")
	removeacento = replace(removeacento,"Û","U")
	removeacento = replace(removeacento,"Ü","U")
	removeacento = replace(removeacento,"ç","c")
	removeacento = replace(removeacento,"Ç","C")
	removeacento = replace(removeacento,"ñ","n")
	removeacento = replace(removeacento,"Ñ","N")
	
	'removeacento = removeacento
end function
arquivo = removeacento(NomeCampo) 

Alguém tem alguma dica

[xanburzum 169]

tenta usar essa

 

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