Array problem

[burger]

I'm attempting to re-use an array for reading multiple text files. The following code fails after the first time thru the loop. Is this because I am attempting to recreate an array already in memory? Is it possible to clear the array after each loop?

expandcollapse popup

Dim $aArray[18]

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $GS
            For $nsig = 1 to 6
                If $nsig = 1 Then
                    $sigfile = "C:\ft\sig\ruttrft.sig"
                    $sig = "RuttrFT"
                EndIf
                If $nsig = 2 Then
                    $sigfile = "C:\ft\sig\EEV4.sig"
                    $sig = "EEV4"
                EndIf
                If $nsig = 3 Then
                    $sigfile = "C:\ft\sig\ruttr17.sig"
                    $sig = "ruttr17"
                EndIf           
                If $nsig = 4 Then
                    $sigfile = "C:\ft\sig\bbmc.sig"
                    $sig = "bbmc"
                EndIf               
                If $nsig = 5 Then
                    $sigfile = "C:\ft\sig\ndxrsi51.sig"
                    $sig = "ndx51"
                EndIf               
                If $nsig = 6 Then
                    $sigfile = "C:\ft\sig\ndx5.sig"
                    $sig = "ndx5"
                EndIf
                _FileReadToArray($sigfile, $aArray)
                $sig1 = ($aArray[$aArray[0]-1])
                
                $Label1 = GUICtrlCreateListViewItem ( $sig & "|" & StringMid ($sig1, 3), 3 )
                If StringLeft ($sig1, 1) = "S" Then
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
                If StringLeft ($sig1, 1) = "B" Then
                    GUICtrlSetBkColor(-1, 0x00FF00)
                EndIf
            Next
        EndSelect
WEnd

[nitekram]

I'm attempting to re-use an array for reading multiple text files. The following code fails after the first time thru the loop. Is this because I am attempting to recreate an array already in memory? Is it possible to clear the array after each loop?

expandcollapse popup

Dim $aArray[18]

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $GS
            For $nsig = 1 to 6
                If $nsig = 1 Then
                    $sigfile = "C:\ft\sig\ruttrft.sig"
                    $sig = "RuttrFT"
                EndIf
                If $nsig = 2 Then
                    $sigfile = "C:\ft\sig\EEV4.sig"
                    $sig = "EEV4"
                EndIf
                If $nsig = 3 Then
                    $sigfile = "C:\ft\sig\ruttr17.sig"
                    $sig = "ruttr17"
                EndIf           
                If $nsig = 4 Then
                    $sigfile = "C:\ft\sig\bbmc.sig"
                    $sig = "bbmc"
                EndIf               
                If $nsig = 5 Then
                    $sigfile = "C:\ft\sig\ndxrsi51.sig"
                    $sig = "ndx51"
                EndIf               
                If $nsig = 6 Then
                    $sigfile = "C:\ft\sig\ndx5.sig"
                    $sig = "ndx5"
                EndIf
                _FileReadToArray($sigfile, $aArray)
                $sig1 = ($aArray[$aArray[0]-1])
                
                $Label1 = GUICtrlCreateListViewItem ( $sig & "|" & StringMid ($sig1, 3), 3 )
                If StringLeft ($sig1, 1) = "S" Then
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
                If StringLeft ($sig1, 1) = "B" Then
                    GUICtrlSetBkColor(-1, 0x00FF00)
                EndIf
            Next
        EndSelect
WEnd

Is it possible to clear the array after each loop? Yes you can either delete each index or you can set the array to ZERO, but you may have to recreate the variable as an array.

Your code shows $GS - is this a button or something? That might explain a little.