invertir cadena de caracteres

Exelente ejemplo como ejercicio.

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


"Ricardo Passians" wrote in
message 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
>

Que bonita esa solucion

"Ricardo Passians" wrote in
message 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
>

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

ja ja ja

Bonito de verdad a pesar del límite de funciones anidadas.

Saludos,
A.G.P.


"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
>

:-)))
Cómo ya te comente en privado, me llamo la atención lo parecido de ambas
funciones, y que fueron casi simultaneas.
¿será este el comentado efecto PortalFox? jajajaja

Ya están programadas para su publicación en PortalFox conjuntamente con la
función de Ricardo.

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


"Esparta Palma" wrote in message
news:O$

Pero chéeeee, esta función es casi igual que la mía, por el momento no
sé si alegrarme o preocuparme, me estaré volviendo Argentino?? :-D

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


Luis María Guayán wrote:
> 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
>
>