invertir cadena de caracteres

Espero que esta función no la quieras utilizar para "encriptar"
passwords -- :-D :

?Reverse("Hola Mundo")
FUNCTION Reverse(tcString)
LOCAL lcRetValue,lnCounter
lcRetValue=""
FOR lnCounter=LEN(tcString) TO 1 STEP -1
lcRetValue=lcRetValue+SUBSTR(lcCadena,lnCounter,1)
ENDFOR
RETURN lcRetValue

Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


isabel correa wrote:

hola grupo.

hay alguna funcion que invierta el contenido de una
cadena de caracteres?
necesito que una cadena que contenga por ejemplo SMOPR
quede en RPOMS

muchas gracias si me pueden colaborar

Una función nativa en VFP no conozco, pero prueba con esta función:

? StrInv("PORTALFOX")

XOFLATROP

FUNCTION StrInv(tcCadena)
LOCAL ln, lc, lnI
ln = LEN(tcCadena)
lc = ""
FOR lnI = ln TO 1 STEP -1
lc = lc + SUBSTR(tcCadena,lnI,1)
ENDFOR
RETURN lc
ENDFUN


Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente


"isabel correa" wrote in message
news:076601c35c55$75917b70$

hola grupo.

hay alguna funcion que invierta el contenido de una
cadena de caracteres?
necesito que una cadena que contenga por ejemplo SMOPR
quede en RPOMS

muchas gracias si me pueden colaborar

muchas gracias a los dos. me sirvio de mucho. no es para
encriptar, es un ejercicio que me pidieron hacer.

Espero que esta función no la quieras utilizar

para "encriptar"

passwords -- :-D :

?Reverse("Hola Mundo")
FUNCTION Reverse(tcString)
LOCAL lcRetValue,lnCounter
lcRetValue=""
FOR lnCounter=LEN(tcString) TO 1 STEP -1
lcRetValue=lcRetValue+SUBSTR(lcCadena,lnCounter,1)
ENDFOR
RETURN lcRetValue

Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


isabel correa wrote:

hola grupo.

hay alguna funcion que invierta el contenido de una
cadena de caracteres?
necesito que una cadena que contenga por ejemplo SMOPR
quede en RPOMS

muchas gracias si me pueden colaborar

.

Ricardo, excelente ejemplo de recursividad

Esto tiene como límite el número máximo de llamadas DO anidadas, que es de
128. Es decir la cadena no podría tener mas de 128 caracteres.

Si estoy equivocado que alguien me corrija

Saludos

Germán Giraldo
_____________________________
"Apoya a FoxPro, legaliza tu copia."


"Ricardo Passians" escribió
en el mensaje news:OxV$

Bueno, si es como ejercicio, esta es otra opción:

FUNCTION Invierte(cCadena)
return iif(len(cCadena)>1,Invierte(subs(cCadena,2)),"")+left(cCadena,1)



"isabel correa" wrote in message
news:076601c35c55$75917b70$
> hola grupo.
>
> hay alguna funcion que invierta el contenido de una
> cadena de caracteres?
> necesito que una cadena que contenga por ejemplo SMOPR
> quede en RPOMS
>
> muchas gracias si me pueden colaborar
>

Claro que sí, ese es el límite, para el ejemplo debia ser 127. Pero mi
intencion, como era solo para un ejercicio, quise darle a ella ese ejemplo
ilustrativo con recursividad, para que viese una opción diferente.

Saludos.


"Germán Giraldo" <triplegARROBAtutopia.com> wrote in message
news:

Ricardo, excelente ejemplo de recursividad

Esto tiene como límite el número máximo de llamadas DO anidadas, que es de
128. Es decir la cadena no podría tener mas de 128 caracteres.

Si estoy equivocado que alguien me corrija

Saludos

Germán Giraldo
_____________________________
"Apoya a FoxPro, legaliza tu copia."


"Ricardo Passians"

escribió

en el mensaje news:OxV$
> Bueno, si es como ejercicio, esta es otra opción:
>
> FUNCTION Invierte(cCadena)
> return iif(len(cCadena)>1,Invierte(subs(cCadena,2)),"")+left(cCadena,1)
>
>
>
> "isabel correa" wrote in message
> news:076601c35c55$75917b70$
> > hola grupo.
> >
> > hay alguna funcion que invierta el contenido de una
> > cadena de caracteres?
> > necesito que una cadena que contenga por ejemplo SMOPR
> > quede en RPOMS
> >
> > muchas gracias si me pueden colaborar
> >
>
>