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
¡Genial! Excelente solución. Gracias
ResponderBorrar