Tomas, Es muy interesante... En principio lo pensé así...
LPARAMETERS cCadena LOCAL ARRAY laLista[1] LOCAL lcContador,lnPos,lcCadena,lcNewCad,lcResto,lcElemento,lnUltEle lcCadena=cCadena lnLargo=LEN(lcCadena) laLista[1]=lcCadena FOR lnContador=1 TO lnLargo lcElemento=substr(lcCadena,lnContador,1) lcResto=STUFF(lcCadena,lnContador,1,"") FOR lnPos=1 TO lnLargo lcNewCad=STUFF(lcResto,lnPos,0,lcElemento) IF ASCAN(laLista,lcNewCad)=0 lnUltEle=ALEN(laLista)+1 DIMENSION laLista[lnUltEle] laLista[lnUltEle]=lcNewCad ENDIF NEXT lnPos NEXT lnContador ? "Hay "+ALLTRIM(STR(ALEN(lalista)))+" Elementos" FOR EACH lcNewCad IN laLista ? lcNewCad NEXT lcNewCad *pero no lo logré...* Así que buscando otro tema encontré la solución en este link... usa un método recursivo y probe y por lo que veo lo logra siempre... http://blogs.msdn.com/b/calvin_hsia/archive/2005/01/18/355405.aspx Saludos, Pancho Córdoba El 14 de septiembre de 2011 21:15, Tomás Corrales Lemoine < [email protected]> escribió: > **BCAD
