Dynamic Variables from an Array

[JohnWilson]

Hello Everyone, 

I currently have a project that I am working on that takes each item from an array and then converts it to a checkbox that allows the user to install a program or programs depending on what boxes they have checked. So far the code displays the array, and shows the check boxes, but all of them are being given the same path to run. Below you will see an example script. 

expandcollapse popup

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>

Local $arr[6] ; Make room for three elements
 ;Assign some data
 $arr[0]="Notepad.exe"
 $arr[1]="Calculator.exe"
 $arr[2]="Notepad.exe"
 $arr[3]="Calculator.exe"
 $arr[4]="Notepad.exe"
 $arr[5]="Notepad.exe"

_ArrayDisplay ($arr)

GUICreate("Installs for Computers", 600, 300)
GUICtrlCreateLabel("Installs for Computers", 30, 10)

$coordsy = 0

For $item in $arr
    $parse = $item
    $checker = GUICtrlCreateCheckbox ($item, 10, $coordsy, 120, 20)
    $coordsy += 20

Next

$okbutton = GUICtrlCreateButton("OK", 70, 275, 60)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

Select
Case $msg = $okbutton
MsgBox(0, "GUI Event", "The Installs will now begin")


If GUICtrlRead($checker) = $GUI_CHECKED THEN <-- PART FIXED

     RunWait(@ComSpec & ' /c  start ' & $parse, '', @SW_HIDE)

Exit


Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
ExitLoop
EndSelect
WEnd

This is just a simple sample, the actual working code is on my work computer. You will see when you run the above script that the script will give all checkboxes the same executable path. So for instance, even the checkboxes marked for calculator.exe will still run notepad. I believe there must be a way for me to create dynamic variables from the array that can then be assigned properly, but I can not figure out how to do it. I have searched all over the place and seen some similar ideas, but nothing that I could get working. I would appreciate any help you guys could give. 

Thank you in advance!!!

[BrewManNH]

Try this modification of your script. It uses 2 arrays, one to hold the programs to run, the other holds the control IDs of the checkboxes created.

expandcollapse popup

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>

Local $arr[6] ; Make room for three elements
;Assign some data
$arr[0] = "Notepad.exe"
$arr[1] = "Calculator.exe"
$arr[2] = "Notepad.exe"
$arr[3] = "Calculator.exe"
$arr[4] = "Notepad.exe"
$arr[5] = "Notepad.exe"
Global $ControlIDs[UBound($arr)]
_ArrayDisplay($arr)

GUICreate("Installs for Computers", 600, 300)
GUICtrlCreateLabel("Installs for Computers", 30, 10)


For $item = 0 to UBound($arr) -1
    $ControlIDs[$Item] = GUICtrlCreateCheckbox($arr[$item], 10, $item * 20, 120, 20) ; create checkboxes and store their control IDs
Next

$okbutton = GUICtrlCreateButton("OK", 70, 275, 60)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $okbutton
            MsgBox(0, "GUI Event", "The Installs will now begin")

            For $Loop = 0 To UBound($arr) - 1 ; Loop through the checkboxes
                If GUICtrlRead($ControlIDs[$Loop]) = $GUI_CHECKED Then ; Find if it's checked

                    RunWait(@ComSpec & ' /c  start ' & $arr[$Loop], '', @SW_HIDE) ; run the program stored in the same position in the $arr array
                EndIf
            Next
            Exit
        Case $msg = $GUI_EVENT_CLOSE
            MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
            ExitLoop
    EndSelect
WEnd

[jdelaney]

Here you go.

expandcollapse popup

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>

Local $arr[6][2] ; Make room for three elements
 ;Assign some data
 $arr[0][0]="Notepad.exe"
 $arr[1][0]="Calculator.exe"
 $arr[2][0]="Notepad.exe"
 $arr[3][0]="Calculator.exe"
 $arr[4][0]="Notepad.exe"
 $arr[5][0]="Notepad.exe"

_ArrayDisplay ($arr)

GUICreate("Installs for Computers", 600, 300)
GUICtrlCreateLabel("Installs for Computers", 30, 10)

$coordsy = 10

For $i = 0 To UBound($arr)-1
    $arr[$i][1] = GUICtrlCreateCheckbox ($arr[$i][0], 10, $coordsy, 120, 20)
    $coordsy += 20
Next

$okbutton = GUICtrlCreateButton("OK", 70, 275, 60)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()

    Select


    Case $msg = $okbutton
    MsgBox(0, "GUI Event", "The Installs will now begin")

    For $i = 0 to UBound($arr)-1
        If GUICtrlRead($arr[$i][1]) = 4 THEN

            ConsoleWrite(@ComSpec & ' /c  start ' & $arr[$i][0] & @CRLF)
        EndIf
    Next

    Exit


    Case $msg = $GUI_EVENT_CLOSE
        MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
        ExitLoop
    EndSelect
WEnd

[BrewManNH]

Or you could do it that way.

[jdelaney]

You beat me to it

[JohnWilson]

Thank you, thank you, thank you! You guys are awesome, I appreciate your help. One question though, will there be any modifications I need to make if my array is dynamically created from search results? In the example I gave, I declared the number of elements, but in the working script, the elements will be added to the array when found in a file. If you need any more information, let me know. Thanks again!

[JohnWilson]

I realized I should give more details to really get this resolved. Here is my code.

expandcollapse popup

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>
#include <File.au3>
#include <InetConstants.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>

#RequireAdmin

Func Octet()

; Creates array called parsed ip, with each octet of the IP address as different items
Global $parsedip = StringSplit(@IPAddress1, ".")

; Creates variable called third which grabs only the third octet
Global $third = $parsedip[3]

EndFunc

Octet()

Local $sFileName = "C:\Testing\test.txt"
Local $searchStr = $third

$arr = _LineNumsOfSearchStr($sFileName, $searchStr, False)


Global $ControlIDs[UBound($arr)]
; _ArrayDisplay($arr)

GUICreate("Installs for Computers", 600, 300)
GUICtrlCreateLabel("Installs for Computers", 30, 10)


For $item = 0 to UBound($arr) -1
   $tester = FileReadLine ( $sFileName, $arr[$item] )
   $firstpart = StringSplit($tester, ",")
   $final = $firstpart[1]
   $ControlIDs[$Item] = GUICtrlCreateCheckbox($arr[$item], 10, $item * 20, 120, 20) ; create checkboxes and store their control IDs
Next

$okbutton = GUICtrlCreateButton("Start", 70, 275, 60)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $okbutton
            ; MsgBox(0, "GUI Event", "The Installs will now begin")

            For $Loop = 0 To UBound($arr) - 1 ; Loop through the checkboxes
                If GUICtrlRead($ControlIDs[$Loop]) = $GUI_CHECKED Then ; Find if it's checked
                    RunWait ('C:\Temp\' & $arr[$Loop] & '.exe', '', @SW_SHOWNORMAL ) ; run the program stored in the same position in the $arr array
                EndIf
            Next
            Exit
        Case $msg = $GUI_EVENT_CLOSE
            MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
            ExitLoop
    EndSelect
 WEnd


 Func _LineNumsOfSearchStr($sFileName, $searchString, $bDeleteLine = False)
    Local $location, $aCurrentLineNum, $iCurrentLineNum, $sFile, $iOccur = 1, $sRes = ""
    If FileExists($sFileName) = 0 Then Return 1
    Do
        $sFile = FileRead($sFileName)
        $location = StringInStr($sFile, $searchString, 0, $iOccur) ; Find the $iOccur occurrence of the "substring"

        If $location > 0 Then
            $aCurrentLineNum = StringRegExp(StringRegExpReplace($sFile, "(?s)(.{" & $location & "})(.*)$", "\1"), "(?s)(\v+)", 3) ;Find line number
            $iCurrentLineNum = UBound($aCurrentLineNum) + 1 ; Line number

            ;ConsoleWrite("CharPos: " &  $location & "   Ln: " & $iCurrentLineNum & @CRLF)
            $sRes &= $iCurrentLineNum & "|"
            If $bDeleteLine Then
                _FileWriteToLine($sFileName, $iCurrentLineNum, "", 1) ; Remove found line from file.
            Else
                $iOccur += 1
            EndIf
        Else
            ExitLoop
        EndIf
        Sleep(10)
    Until 0
    ;ShellExecute($sFileName)
    Return StringSplit(StringTrimRight($sRes, 1), "|")
EndFunc   ;==>_LineNumsOfSearchStr
;

The code produces the array properly, and displays the names of the printer install files that are to run, but in the end, they all end up installing the same package. I am sure I have to do something different with my loop, but I can't figure it out and know that you Autoit wizards could be of help.

[JohnWilson]

NEVERMIND! I am slow. I figured it out, wow. Thank you again.

[Adomeister]

This scenario is almost exactly the same as mine! I couldn't figure a way to dynamically assign checkboxes based upon a previously unknown group of items! It was the final piece of the puzzle. I just wanted to post my thanks . Thank you!