HOW TO: sequential variable = array

[MrCheese]

HI All,

Thanks in advance for your help!

If I'm reading and collecting unique values out of x arrays, how do I sequentially name "$aColUnique&$i" in the following example:

 

$rSort1 = "X:X" ; first  sort
$rSort2 = "A:A" ; second sort

Local  $aRowSort [] = [$rSort1,$rSort2]
$iRow =UBound($aRowSort)

For $i = 0 To $iRow  - 1
    $aColCollect =  _Excel_RangeRead($oWorkbook,Default,$aRowSort[$i])
    $aColUnique&$i = _ArrayUnique($aColCollect, Default, Default, Default, $ARRAYUNIQUE_NOCOUNT)
    _ArrayDisplay($aColUnique&$i,"$aRowSort")
Next

 

An alternative would be to add the ColUnique data onto the $aRowSort as another column. I attempted to do this, but it wouldn't add to the end of the column. I can revisit it if this new idea is dumb.

Edited April 30, 2019 by MrCheese

[Subz]

You can use Assign however it would be easier to just use another array, i.e. Global $aColUnique[0], then use _ArrayAdd($aColUnique, _ArrayUnique(....)  You can then loop through the array to get the sub array info.

[MrCheese]

thanks Subz, when I do this, it adds the second / nth loop onto the bottom of the array and not into an adjacent column. How do I add to the adjacent column instead of down the row?

 

 

[Subz]

Actually I was referring to sub arrays example:

For $i = 0 To UBound($aRowSort) - 1
     $aColCollect =  _Excel_RangeRead($oWorkbook,Default,$aRowSort[$i])
    _ArrayAdd($aColUnique, _ArrayUnique($aColCollect, Default, Default, Default, $ARRAYUNIQUE_NOCOUNT), 0, "|", @CRLF, 1)
Next

For $i = 0 To UBound($aColUnique) - 1
    _ArrayDisplay($aColUnique[$i])
    $aTmpArray = $aColUnique[$i]
    For $j = 0 To UBound($aTmpArray) - 1
        ConsoleWrite($aTmpArray[$j] & @CRLF)
    Next
Next

 

[MrCheese]

I think I understand! I'll work on it.

[MrCheese]

i realised that I had to call it as a set array not attached to a looping variable as it the two $i values were referenced in different levels of a nested loop.

I'm sure there is a better way 

$aTmpArray0 = $aColUnique[0] ; setting temp0 arrays as the sub array0
$aTmpArray1 = $aColUnique[1] ;  setting temp1 array as the sub array1


For $u = 0 To UBound($aTmpArray0) - 1
    If $aTmpArray0[$u] = "" Then ContinueLoop
    $i = 0
    $rowval = $aRowSort[$i]
    $rowsort = $rowval & ":" & $rowval
    $nCol1 = _Excel_ColumnToNumber($rowval)
    _Excel_FilterSet($oWorkbook, Default, Default, $nCol1, $aTmpArray0[$u])
    $msg = "first filter: " & $aTmpArray0[$u]
    dbb()
    For $j = 0 To UBound($aTmpArray1) - 1
        If $aTmpArray1[$j] = "" Then ContinueLoop
        $i = 1
        $rowval = $aRowSort[$i]
        $rowsort = $rowval & ":" & $rowval
        $nCol1 = _Excel_ColumnToNumber($rowval)
        _Excel_FilterSet($oWorkbook, Default, Default, $nCol1, $aTmpArray1[$j])
        $msg = "first filter: " & $aTmpArray1[$j]
        dbb()
        Local $afilter = _Excel_FilterGet($oWorkbook)
        If $afilter[0][6] <= 1 Then ; location of filtered row count
            $msg = "skipping loop"
            dbb()
            ContinueLoop
        EndIf
        $sName = @ScriptDir & "\R1_" & $aTmpArray0[$u] & "_score_" & $aTmpArray1[$j] & ".xls"
        $msg = "saving"
        dbb()
        MakeCopy(1, $iRowT, $sName)
    Next
    _Excel_FilterSet($oWorkbook, Default, Default, 0)
Next