FoxPro/Visual FoxPro - Quitar tildes

   
Vista:

Quitar tildes

Publicado por Erick Naranjo (4 intervenciones) el 13/09/2013 04:19:26
pam3 = sintilde(pam3)


Procedure sintilde
parameter texto
resultado = strtran(strtran(strtran(strtran(strtran(texto,"á","a"),"é","e"),"í","i"),"ó","o"),"ú","u")
return resultado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Quitar tildes

Publicado por Fidel (558 intervenciones) el 13/09/2013 15:24:46
Este proc quita cualquier tilde y no necesita anidar Strtran.
1
2
3
4
5
6
****************************
PROCEDURE SinTildes(xcTexto)
****************************
RETURN CHRTRAN(xcTexto,"àÀèÈìÌòÒùÙáÁéÉíÍóÓúÚâÂêÊîÎôÔûÛ",;
	"aAeEiIoOuUaAeEiIoOuUaAeEiIoOuU")
ENDPROC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar