viernes, 9 de mayo de 2014

Invertir el orden de los caracteres en una cadena - HOLA = ALOH

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