eval encadenados...?

eval encadenados...?

Postby goosfancito » Sat Mar 20, 2021 1:16 am

Hola.

Tengo dos array:
Code: Select all  Expand view
a[1]:= "A"
a[2]:= "x"

b[1]:= "d"
b[2]:= "a"
b[3]:="x"
b[4]:= "A"

necesito saber en que posicion se encuentra cada item de "a" en "b"

Intente esto:
Code: Select all  Expand view
AEval( ::aListaUsuarios, { | a | IIf( AEval( ::oGets[ 10 ]:aselections(), { | b | b == a[ 2 ] } ) != 0, MsgInfo( a[ 2 ] ) , ) } )


pero... esta mal, me dice que la variable "a" esta fuera del alcance en el segundo bloque.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: eval encadenados...?

Postby nageswaragunupudi » Sat Mar 20, 2021 4:57 am

Code: Select all  Expand view
aresult := { 0, 0 }
AEval( a, { |c,i| aResult[ i ] := AScan( b, c ) } )
? aresult // --> {4,3}
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10306
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests