Hola. A veces necesitamos hacer cosas un poco fuera de lo normal, pero resulta muy interesante. ::)
Imaginemos que necesitamos invertir una cadena... por ejemplo, para validar algun tipo de numero serial, o algo asi (crear un artificio). Si tenemos la cadena HOLA y queremos invertir las letras para que queden ALOH... la forma de proceder es asi:
LOCAL lcRetValue, lnCounter, lcCadena
**--En éste caso, la cadena es "HOLA"
lcCadena = "HOLA"
**--
lcRetValue = ""
**--Iniciamos bucle
FOR lnCounter = LEN(lcCadena) TO 1 STEP -1
lcRetValue = lcRetValue + SUBSTR(lcCadena, lnCounter, 1)
ENDFOR
**--//
**--Mostramos datos
MESSAGEBOX(lcRetValue)
Prueben. Cualquier duda o sugerencia para mejorar... es siempre bienvenida.
Un abrazo a todos.
Ravenn!
Desde Managua, Nicaragua!
No hay comentarios:
Publicar un comentario