PC Toledo

Olá amigos,

Alguém tem alguma rotina que substitui por exemplo o ç por c, o Ç por C, o ã por a, enfim caracteres que atrapalham a ordenação/impressão. Algo que verifique a presença de tais caracteres e o substituia por um 'correspondente' sem o sinal gráfico para que o dado seja gravado de forma 'limpa' no DBF?

Obrigado pela atenção,

Antonio Carlos

Código: Selecionar todos

FUNCTION TiraAcentos(nnome)
*-----------------------*
// se quiser bloquear s¢ acentos e cedilha

nnome=alltrim(nnome)

letras_ok ="AOAAEEIOOOUUAAOECAOUEIOOUAAAOECOOA"
letras_bad="ÇåµŽÔ

Valeu, amigo!

Vou testar.

[]s

Antonio Carlos

PC Toledo

Acentuação e outros caracteres. Como eliminá-nos?

Acentuação e outros caracteres. Como eliminá-nos?