AEVAL multidimentional array

[Marc Vanzegbroeck]

Hi,

Is is possible to aeval a multidimentional array, or do I have to make a combination of a loop and aeval.
I want to execute a function on all elements of a multidimentional array.

Thank you

[Antonio Linares]

Dear Marc,

How is your array ?

What do you need ?

[Marc Vanzegbroeck]

Antonio,

Here is an example of the array. The normal one is much bigger

Code: Select all | Expand

"E1345";"DI";"DIGACQA";"DI";"I_E1345"
"F1305";"GO";"DEVCTLA";"DI";"I_F1305GO
"F1305";"GT";"DEVCTLA";"DI";"I_F1305GT"

I want to perform a function on each element.
For example remove all " at the beginning and end of the element.

[Antonio Linares]

AEval( aLines, { | cLine, n | aLines[ n ] := SubStr( cLine, 2 ), aLines[ n ] := SubStr( aLines[ n ], 2, Len( aLines[ n ] ) - 1 ) } )

You can also manage each line as an array:
AEval( aLines, { | cLine, n | aLines[ n ] := hb_ATokens( cLine, ";" ) } )

[Marc Vanzegbroeck]

Antonio,

Sorry for the confusion,but the ';' between each element, is not a real ';' , but a separation between element

So the array is in fact

Code: Select all | Expand

{ { ' "E1345" '  , ' "DI" ' , ' "DIGACQA" ' , ' "DI" ' ,' "I_E1345" ' } , {' "F1305" ' , ' "GO" ' ,' "DEVCTLA" ' ,' "DI" ' ,' "I_F1305GO" '} , {' "F1305" ' ,' "GT" ' ,' "DEVCTLA" ' ,' "DI" ' ,' "I_F1305GT" '} }

[Antonio Linares]

Then it is simpler:

AEval( aLines, { | aLine, n | AEval( aLine, { | cElement, m | ... } ) } )

[Marc Vanzegbroeck]

Thank you Antonio.

[Marc Vanzegbroeck]

Antonio,

I still have a little problem.

I tested it with

Code: Select all | Expand

 AEval( aLines, { | aLine, n | AEval( aLine, { | cElement, m | cElement := mcsvremove(cElement)  } ) } )
 
 func mcsvremove(vveld)
   vveld = alltrim(vveld)
    msginfo(vveld) //field with "
   if substr(vveld,1,1) = '"'
      vveld = substr(vveld,2,len(vveld)-2)
   endif
   msginfo(vveld) //field without "
return vveld

 

It execute the mcsvremove() function, but the array is not updated.
If I add a message in mcsvremove(), the funcion removed the "

[Antonio Linares]

Marc,

Do it this way:

Code: Select all | Expand

 AEval( aLines, { | aLine, n | AEval( aLine, { | cElement, m | aLines[ n ][ m ] := mcsvremove(cElement)  } ) } )
 
 func mcsvremove(vveld)
   vveld = alltrim(vveld)
    msginfo(vveld) //field with "
   if substr(vveld,1,1) = '"'
      vveld = substr(vveld,2,len(vveld)-2)
   endif
   msginfo(vveld) //field without "
return vveld

 

[Marc Vanzegbroeck]

Antonio,

Then I get this compile-error.

Code: Select all | Expand

Error E0005  Outer codeblock variable is out of reach: 'N'

[JoséQuintas]

Try This

Code: Select all | Expand

FOR EACH aList2 IN aList
   FOR EACH xItem IN aList2
      callfunction( @xItem )
   NEXT
NEXT   

[Marc Vanzegbroeck]

José,

That's how I did it now, but I was wondering that with aeval it may be faster...

[Antonio Linares]

Marc,

AEval() should be faster, you may compare them:

local p

AEval( aLines, { | aLine, n | p := n, AEval( aLine, { | cItem, m | aLines[ p ][ m ] := YourFunction( cItem ) } ) } )

[Marc Vanzegbroeck]

Antonio,

Now it's working

I will try the speed-difference with a large array.

Thank you

[JoséQuintas]

Sometimes you need to think about fucture.
Source code is to you, not to the computer.
May be you need update the code for a long time, and may be next year you have work to remember what you do.
But sometimes speed is more important.

Last days I do this, using hb_AScan() inside hb_ASCan()
Once hb_AScan() process each element, may be could do a Eval() or AEval()

Code: Select all | Expand

   LOCAL aNoTestList := { ;
      { "no check", "demoall.prg", "testsamples.prg" }, ;
      { "MDI", "a.prg", "testmdi.prg", "testrtf.prg", "demomdi.prg" }, ;
      { "utility?", "buildpelles.prg", "dbview.prg" }, ;
      { "multithead", "demomenumt.prg" }, ;
      { "window", "demoonother.prg" }, ;
      { "postgress", "grid_2.prg", "grid_3.prg" }, ;
      { "console", "helloworld.prg" }, ;
      { "undefined", "propsh.prg", "tststconsapp.prg", "helpstatic.prg", ;
         "tstprdos.prg", "winprn.prg", "testalert.prg", "pseudocm.prg", ;
         "bincnts.prg", "bindbf.prg", "hexbincnt.prg" }, ;
      { "bug", "tstscrlbar.prg", "helpdemo.prg" } }

   aList := Directory( "*.prg" )      
   FOR EACH aFile IN aList
      IF hb_AScan( aNoTestList, { |a| hb_AScan( a, { |b| ;
         b == Lower( aFile[1] ) } ) != 0 } ) != 0
         LOOP
      ENDIF      
      ...
NEXT