FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour eval encadenados...?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
eval encadenados...?
Posted: Sat Mar 20, 2021 01:16 AM
Hola.

Tengo dos array:
Code (fw): Select all Collapse
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 (fw): Select all Collapse
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/
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: eval encadenados...?
Posted: Sat Mar 20, 2021 04:57 AM
Code (fw): Select all Collapse
aresult := { 0, 0 }
AEval( a, { |c,i| aResult[ i ] := AScan( b, c ) } )
? aresult // --> {4,3}
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion