Quitar los acentos

Con esta simple rutina podemos quitar y reemplazar todos los acentos de una cadena

Ejemplo:

? QuitarAcentos("José María SÁNCHEZ")

*-------------------------------------
* FUNCTION QuitarAcentos(tcCadena)
*-------------------------------------
* Quita los acentos de una cadena
* RETORNA: Caracter
* USO: QuitarAcentos("Mamá")
*-------------------------------------
FUNCTION QuitarAcentos(tcCadena)
 RETURN CHRTRAN(tcCadena, "áéíóúÁÉÍÓÚ","aeiouAEIOU")
ENDFUNC
*-------------------------------------

Utilizando la función CHRTRAN() también podemos crear otras rutinas para quitar y/o reemplazar caracteres especiales de una cadena de texto.

Luis María Guayán