lost in a For Loop Nest

[gcue 8]

I am trying to merge data between several CSV files.

I have an array of column header names as selected by the user (Name, Team, RBI, etc)

I'm trying to go through each of the CSV files to collect the data when a column in each of the sheets matches with the column(s) the user selected

Please see comments for more information.

Hope my explanation makes sense

expandcollapse popup

;Creates Columns Array from Users Selection
    $columns_selected = _GUICtrlListView_GetItemCount($selected_columns_listview)

    Local $results_array[1][$columns_selected]
    
    For $x = 0 To $columns_selected - 1
        $selected_item_name = _GUICtrlListView_GetItemText($selected_columns_listview, $x, 0)

        $results_array[0][$x] = $selected_item_name
    Next


        ;Merge Data
    $sheets_array = IniReadSection($INI, "SHEETS") ;has the names of the sheets

    For $w = 1 To $sheets_array - 1
        $file = @ScriptDir & "\" & $sheets_array[$w][0] & ".csv"

        $array = CreateArray($file) ;creates an array from the CSV file passed through it

        $rows = UBound($array) - 1
        $columns = UBound($array, 2)

        For $x = 0 To $columns - 1
            For $y = 0 To UBound($results_array, 2) - 1
                If $array[0][$x] = $results_array[0][$y] Then
                    $current_row = 1

                    For $z = 1 To $rows
                        $results_array[$current_row][$y] = $array[$z][$x]

                        $current_row += 1
                    Next
                EndIf
            Next
        Next
    Next



        ;Output
    $rows = UBound($results_array) - 1
    $columns = UBound($results_array, 2) - 1

    For $i = 0 To $rows
        $sLine = ""
        For $j = 0 To $columns
            $sLine &= $results_array[$i][$j] & ","
        Next
        FileWriteLine($output_file, StringTrimRight($sLine, 1))
    Next

    ShellExecute($output_file)

Edited April 25, 2011 by gcue

[PsaltyDS 30]

IniReadSection() returns a 2D array, so your iteration of the loop is wrong:

; wrong:  For $w = 1 To $sheets_array - 1

For $w = 1 To $sheets_array[0][0]

; -- or --

For $w = 1 To Ubound($sheets_array) - 1

[gcue 8]

ah nice catch psalty.. still getting an error here though:

$results_array[$current_row][$y] = $array[$z][$x]

"Array variable has incorrect number of subscripts or subscript dimension range exceeded."

[PsaltyDS 30]

Your CSV file probably has more rows than INI section.

[gcue 8]

hmm but doesnt it do the inner-most loop a different number of times than the outter-most loop?

[PsaltyDS 30]

Run it like this to get an idea where it went wrong:

; ...
                ConsoleWrite("Debug: $results_array[" & Ubound($results_array) & "][" & Ubound($results_array, 2) & "]" & _
                    "; $array[" & Ubound($array) & "][" & Ubound($array, 2) & "]" & @LF)
                For $z = 1 To $rows
                    Consolewrite(@TAB & "$results_array[" & $current_row & "][" & $y & "] = $array[" & $z & "][" & $x & "]" & @LF)
                    $results_array[$current_row][$y] = $array[$z][$x]
                    $current_row += 1
                Next

[gcue 8]

figured it out!

i needed to redim the values for rows and columns

$sheets_array = IniReadSection($INI, "SHEETS")

    For $w = 1 To UBound($sheets_array) - 1
        $file = @ScriptDir & "\" & $sheets_array[$w][0] & ".csv"

        $array = CreateArray($file)

        $rows = UBound($array) - 1
        $columns = UBound($array, 2)

        ReDim $results_array[$rows + 1][$columns]

        For $x = 0 To $columns - 1
            For $y = 0 To UBound($results_array, 2) - 1
                If $array[0][$x] = $results_array[0][$y] Then
                    $current_row = 1

                    For $z = 1 To $rows
                        ConsoleWrite($z & @CRLF)
                        $results_array[$current_row][$y] = $array[$z][$x]

                        $current_row += 1
                    Next
                EndIf
            Next
        Next
    Next

thanks for your help =)

Edited April 26, 2011 by gcue