[RESOLVIDO] Retirar acentos e ç?

Bom dia pessoal,


Alguem conhece alguma função para retirar acentos(Todos) ou o ç de alguma palavra?





Jomar.

Procura no fórum.

Penso que foi disponibilizado um programa para fazer essa função.

Amigo,
Desculpa, mas tambem procurei aqui no forum e nao achei nada....vc cnsegue me ajudar...tenho o mesmo problema


Abracos

I-FREEAC.I
Objetivo
Converter strings acentuadas e caracteres especiais para strings não acentuadas e caracteres simples.
Utilização
• nos Templates de Relatório, Importação, Exportação e em pontos específicos que necessitem que a saída de dados (impressora/arquivo/tela) seja feita sem acentuação;
Formato
{include/i-freeac.i}
assign <variável> = fn-free-accent("<string>").
display fn-free-accent("<string>").
Onde:
<variável>: variável que irá armazenar o valor do retorno da função fn-free-accent
<string>: string acentuada a ser convertida.
Exemplo
{include/i-freeac.i}
define var c-texto as char no-undo.
assign c-texto = fn-free-accent ("ÁÀÃÂÄ-ÉÈÊË-ÍÌÎÏ-ÓÒÔÕÖ-ÚÙÛÜ-ÝŸ-Ç-Ñ").
message fn-free-accent("áàãâä-éèêë-~íìîï-óòõôö-úùûü-y´¨y-ç-ñ") chr(10) c-texto view-as alert-box.

Boa tarde,

no caso da "ç" tem a função REPLACE, ela troca strings por uma outra que voce fornece, nesse caso troca por "c".

sintaxe : REPLACE ( source-string , from-string , to-string ).

é melhor digitar REPLACE e depois apertar F1 (ajuda).


e para retirar acentos acho que vc pode usar a função TRIM.

Aperte F1 tambem para AJUDA, pois não costumo usar essa funções.


vlw
espero ter ajudado.