Sobre función en foxpro
Hola. Mi pregunta es la siguiente:
Me han encargado un programa bajo visual foxpro que convierta una cadena de texto en su revés... O sea, que si la palabra es "pescado", resulte en una caja de texto "odacsep", pescado invertido, ¿con qué función puedo lograrlo?, se que en visual basic se usa strReverse, pero en foxpro no se cual sea.
De antemano, Gracias ;)
Me han encargado un programa bajo visual foxpro que convierta una cadena de texto en su revés... O sea, que si la palabra es "pescado", resulte en una caja de texto "odacsep", pescado invertido, ¿con qué función puedo lograrlo?, se que en visual basic se usa strReverse, pero en foxpro no se cual sea.
De antemano, Gracias ;)
1 Respuesta
Respuesta de tango
1
Seria así:
xlen=LEN(ALLTRIM(thisform.txtCampo.Value))
FOR xn =1 TO xlen
thisform.edtTexto.Value = SUBSTR(UPPER(thisform.txtCampo.Value),xn,1) + thisform.edtTexto.Value
NEXT
De esta manera lo convierte al revés
xlen=LEN(ALLTRIM(thisform.txtCampo.Value))
FOR xn =1 TO xlen
thisform.edtTexto.Value = SUBSTR(UPPER(thisform.txtCampo.Value),xn,1) + thisform.edtTexto.Value
NEXT
De esta manera lo convierte al revés
