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

carlos_dornelas · Mensagem por **carlos_dornelas** » 25 Mai 2005 15:23

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

mvbrandao · Mensagem por **mvbrandao** » 25 Mai 2005 15:59

Código: Selecionar todos

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

nnome=alltrim(nnome)

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

carlos_dornelas · Mensagem por **carlos_dornelas** » 25 Mai 2005 22:17

Valeu, amigo!

Vou testar.

[]s

Antonio Carlos