Copy ARRAY filtered by column

[Otto]

Dear friends,

What is the most effective way to copy certain columns from an ARRAY to a new ARRAY:
eg ARRAY {"col1", "col2", "col3", "col4", "col5"}

new ARRAY {"col1", "col3", "col5"}

Best regards,
Otto

[Otto]

Hello friends,
the code is for FIVEWIN and modHarbour.

This is how to use in modHarbour.

Best regards.

Otto

Code: Select all | Expand

// Copy an array select cols and col sorting

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()
    local aOrg := { {"1col1","col2","col3","col4","1col5","col6","col7","1col8"     },;
                    {"2col1","col2","col3","col4","2col5","col6","col7","2col8"     },;
                    {"3col1","col2","col3","col4","3col5","col6","col7","3col8"     }}
    
    local aData := {}
    local I := 0
    local nIdx := 0
    local aCols := {}
    local aTmp := {}
    local nCol := 0
     
    local hxBrowse := {=>}

     hxBrowse["acol"] := {2,1}


   if  Empty(   HGet( hxBrowse, "acol") ) = .F.
      aCols := hxBrowse["acol"]
   endif


    //aCols empty - all cols copied
       
    //ROW
    FOR I := 1 to len( aOrg )
        if empty(aCols) = .f.
            //cols sorting and selecting
            
            aTmp := {}
            FOR nIdx := 1 to len( aCols )
                nCol := aCols[ nIdx ]
                
                AADD( aTmp, aOrg[ I ][ nCol ] )
            NEXT
            AADD( aData,  EVAL( ArrayGetBlock( aTmp , 1,"test")  ) )
        else
            AADD( aData,  EVAL( ArrayGetBlock( aOrg[ I ], 1,"test" )  ) )
        endif
        
    NEXT
    
    xbrowse( aData )
    
return nil
//----------------------------------------------------------------------------//

function ArrayGetBlock( aGets, i, cText )
local aTmp := ACLONE( aGets )
return { | u | aTmp  }

 

[nageswaragunupudi]

1) Using FWH function ArrayTransposeQ()

Code: Select all | Expand

aData := .... your array
aNew  := ArrTransposeQ( aData )
HB_ADel( aNew, 4, .t. )
HB_ADel( aNew, 2, .t. )
aNew  := ArrTranposeQ( aNew )
 

a) This is not efficient
b) You do not use FWH functions in modHarbour.

2) AEval

Code: Select all | Expand

aNew := {}
AEval( aOriginal, { |a| AAdd( aNew, { a[ 1 ], a[ 3 ], a[ 5 ] } ) } )