Codartizan

Load items from an array to listbox

5 posts in this topic

Hi Guys

I got a problem, hope someone can help me, many thanks.

I'm trying to read items from a listbox1($ListChoCom) to an array, and load this array to another listbox2($ListSuitCmd) which is on the different  tab. But, now, I cannot select items on the listbox2. I only can select from listbox1. Here is the code and the screenshots.

Func btnNext2()

    Dim $SelCmdArray[10]
    For $i = 0 To _GUICtrlListBox_GetCount($ListChoCom) - 1
        $SelCmdArray[$i] =  _GUICtrlListBox_GetText($ListChoCom, $i)
        ReDim $SelCmdArray[UBound($SelCmdArray) + 1]
        GUICtrlSetData($ListSuitCmd, $SelCmdArray[$i])
    Next

    _GUICtrlTab_ClickTab($Tab1, 2)

EndFunc

Screenshot 1: I can select item from this listbox1.

1.png

screenshot2: I cannot select item from listbox2, The item that been highlight is what I select from listbox1.

2.png

Thank you very much indeed.

Share this post


Link to post
Share on other sites



Maybe the problem is caused by the part of the script whre you create the GUI?

BTW: I would avoid ReDIm to enhance performance of your script:

Func btnNext2()
    Local $iCount = _GUICtrlListBox_GetCount($ListChoCom)
    Local $SelCmdArray[$iCount]
    For $i = 0 To $iCount - 1
        $SelCmdArray[$i] =  _GUICtrlListBox_GetText($ListChoCom, $i)
        GUICtrlSetData($ListSuitCmd, $SelCmdArray[$i])
    Next
    _GUICtrlTab_ClickTab($Tab1, 2)
EndFunc

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
2 minutes ago, water said:

Maybe the problem is caused by the part of the script whre you create the GUI?

BTW: I would avoid ReDIm to enhance performance of your script:

Func btnNext2()
    Local $iCount = _GUICtrlListBox_GetCount($ListChoCom)
    Local $SelCmdArray[$iCount]
    For $i = 0 To $iCount - 1
        $SelCmdArray[$i] =  _GUICtrlListBox_GetText($ListChoCom, $i)
        GUICtrlSetData($ListSuitCmd, $SelCmdArray[$i])
    Next
    _GUICtrlTab_ClickTab($Tab1, 2)
EndFunc

 

 

Hi water, Thanks for helping me.

Good to know it will enhance performance without ReDim.

Here is my GUI code. 

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <GuiButton.au3>
#include <GuiTab.au3>
#include <File.au3>

Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 2)                                                 
;Option that lets AUTOIT recognize a Window even when a substring of its title is used

;Main TestMaker directory
Const $tmPath               = 'C:\Users\tshi\Desktop\Automation\'           
;This is where TestMaker is located on your machine (the '\' at the end is important!)

;==================
;Subdirectories inside the main TestMaker directory
;Const $configFile          = 'Config\Commands.ini'                         
;Configuration file aka 'command definitions'
Const $envFolder            = 'Config\'                                     
;Files containing Path Variables (and their values) for various Test Environments are located in this *directory*
Const $testsPath            = 'Tests\'                                      
;This is where the actual Test Scripts are stored

;==================
;Subdirectories inside 'Tests' folder
Const $sikuliSeleniumFolder = 'Sikuli\Selenium'                             
;Sikuli 'script-runner' for Selenium IDE is located in this *directory*
Const $sikuliSeleniumScript = 'selenium.sikuli'                             
;Sikuli (Selenium) folder containing: Main Progam (.py) + Images
Const $sikuliSeleniumMain   = 'selenium.py'                                 
;Sikuli (Selenium) Main Program

Const $sikuliUnixFolder = 'Sikuli\Unix'                                     
;Sikuli 'script-runner' for Unix scripts is located in this *directory*
Const $sikuliUnixScript = 'unix.sikuli'                                     
;Sikuli (Unix) folder containing: Main Progam (.py) + Images
Const $sikuliUnixMain   = 'unix.py'                                         
;Sikuli (Unix) Main Program

;Const $sikuliFINsimFolder = 'Sikuli\FINsim'                                 
;Sikuli 'script-runner' for FINsim scripts is loacted in this *directory*
;Const $sikuliFINsimScript = 'finsim.sikuli'                                 
;Sikuli (FINsim) folder containing: Main Progam (.py) + Images
;Const $sikuliFINsimMain = 'finsim.py'                                       
;Sikuli (FINsim) Main Program

;Const $sikuliSoapUIFolder = 'Sikuli\SoapUI'                                 
;Sikuli 'script-runner' for SoapUI scripts is loacted in this *directory*
;Const $sikuliSoapUIScript = 'saopui.sikuli'                                 
;Sikuli (SoapUI) folder containing: Main Progam (.py) + Images
;Const $sikuliSoapUIMain = 'soapui.py'                                       
;Sikuli (SoapUI) Main Program

Const $envfile   = 'env.txt'                                                
;Contains Path Variables (and their values), for the particular Test Environment used

Const $dataFolder   = 'Data'                                                
;This is where Incoming Test (Data) File is stored

;==================
;Common to 'TestMaker' & 'Tests' folders
Const $shellScriptFolder    = 'ShellScript'                                 
;Unix Shell Script(s) location
Const $shellScript          = 'process_incoming.sh'                         
;Name of Unix Shell Script
Const $sqlScriptFolder      = 'SQL'                                         
;SQL Script(s) location
Const $sqlScript            = 'remove_bctl.sql'                             
;Name of SQL Script

;==================
Const $PUTTY = "C:\Program Files (x86)\PuTTY"
;Const $FINsim = "\\gfg-group.com\DFS\Software U\Simulate\Build2709\ATClient.exe"
;Const $SoapUI = "C:\Program Files (x86)\eviware\soapUI-2.5.1\bin"

;==================
;Global variables
Global $SelCmdArray[1]
Global $ListSuitCmd
Global $InputTestSuitName
Global $InputTSName
Global $Tab1
Global $SelCmd
Global $ListChoCom
Global $ListAvaiCom
Global $iSel
Global $btnAdd
Global $btnRemove
Global $btnClear
Global $BtnGenerate
Global $BtnRun
Global $BtnBrowse
Global $BtnCancel
Global $BtnNext1
Global $BtnNext2
Global $BtnNext3
Global $generate                                                            
;Control ID of GENERATE button
Global $run                                                                 
;Control ID of RUN button
Global $command[10], $parameter[10], $repeat[10]                            
;Control IDs of 'Command', 'Parameters' and 'Repeat' inputs
Global $tenv                                                                
;Control ID of TEST ENVIRONMENT input
Global $sampleInputBox                                                      
;Control ID of SAMPLE input box
Global $vaultInd                                                            
;To store a string whose value is either "Vault" or "noVault" (read from $envfile, aka env.txt)
Global $ENVCONNECT, $ENVPASSWD, $FTPIN, $VAULT, $BASEDIR, $DBCONNECT        
;Holds values of Path Variables, pertaining to a Test Environment
Global $DBATOOLS, $IPMconversion                                            
;Holds values of (more!) Path Variables + Site Settings, pertaining to a Test Environment
Global $MCICA, $RECONCURR, $BILLCURR, $BILLCURREXP                          
;Holds values of further more Site Settings, pertaining to a Test Environment
Global $INTLCURR, $INTLCURREXP                                              
;Holds values of (further more!) Site Settings, pertaining to a Test Environment
Global $custrNbrLength                                                      
;Length of Customer Nbr (entered via APNEW screen, when ordering a new card)
Global $prefixArray[100]                                                    
;Holds prefixes of various Commands, i.e. *Name* of a Command
Global $parameterArray[100]                                                 
;Holds suffixes of Commands, i.e. *Parameters* reqd for a Command
Global $sampleArray[100]                                                    
;Holds sample values of *Parameters* reqd for a Command

;==================
CreateGUI()
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($BtnGenerate, "btnGenerate")
GUICtrlSetOnEvent($BtnRun, "btnRunIt")
GUICtrlSetOnEvent($BtnBrowse, "btnBrowse")
GUICtrlSetOnEvent($BtnCancel, "btnCancel")
GUICtrlSetOnEvent($BtnNext1,  "btnNext1")
GUICtrlSetOnEvent($BtnNext2,  "btnNext2")
GUICtrlSetOnEvent($BtnNext3,  "btnNext3")
GUICtrlSetOnEvent($btnAdd, "btnAdd")
GUICtrlSetOnEvent($btnRemove, "btnRemove")
GUICtrlSetOnEvent($btnClear, "btnClear")

While 1
Sleep(500)
WEnd

;==================
Func CreateGUI()
    ;Declare variables
    Local $mainwindow, $rowNbr, $i, $fH, $fH2, $commandList, $envList
    Local $matchArray
    Local $oneLine, $oneLine2
    Local $i

    ;Create GUI container
    $mainwindow = GUICreate("TestMaker", 732, 531, 188, 114)

    ;Create GUI Tabs
    $Tab1 = GUICtrlCreateTab(8, 8, 717, 517)
    GUICtrlCreateTabItem("")



    ;Create TabSheetGeneral
    $TabSheetGeneral = GUICtrlCreateTabItem("General")
    ;$TabSheetGeneral = _GUICtrlTab_InsertItem($Tab1, 0, "General")
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")

    $LabTestSuit = GUICtrlCreateLabel("Test Suit", 32, 68, 67, 24)                              
    ;Create Label "Test Suit"
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")                                             
    ;Set Lable's Font
    $InputTestSuitName = GUICtrlCreateInput("Give your test suit a name", 144, 68, 209, 25)     
    ;Create "Test Suit" Input, User should give their Test Suit a name first.
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sabs Serif")                                             
    ;Set Input Font
    ;$inputText = GUICtrlRead($InputTestSuitName)

    $LabSaveTestAs = GUICtrlCreateLabel("Save Test As", 32, 100, 98, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")                                             
    ;Set Lable's Font
    $InputSaveTestAs = GUICtrlCreateInput("Type your test file name", 144, 100, 209, 25)        
    ;Create "Save Test As" Input, User should give their Test Suit file/folder a name.
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sabs Serif")                                             
    ;Set Input Font

    $LabComment = GUICtrlCreateLabel("Comment", 32, 132, 73, 24)                                
    ;Create Label "Comment"
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")                                             
    ;Set Label Font
    $EditComment =  GUICtrlCreateEdit("This is your Comment", 32, 164, 321, 137)                
    ;Creat Comment Edit Area
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")                                             
    ;Set Comment Font

    $LabLoadTest = GUICtrlCreateLabel("Load Test From", 32, 316, 116, 24)                       
    ;Create Label "Load Test From"
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")                                             
    ;Set Label Font
    $inputLoadTest = GUICtrlCreateInput("This is my test directory", 152, 316, 201, 24)         
    ;Greate Directory Input, read directory through Browse button/function
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")                                             
    ;Set display font

    $LabStep1 = GUICtrlCreateLabel("Step 1", 416, 64, 59, 24)                                   
    ;Create Lable "Step 1"
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")                                             
    ;Set Lable Font

    $LabSelEnv = GUICtrlCreateLabel("Select Your Environment", 416, 100, 300, 24)               
    ;Create Lable "Step 1"
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $ListEnv = GUICtrlCreateList("", 416, 130, 201, 243, BitOR($GUI_SS_DEFAULT_LIST, $WS_HSCROLL), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))                 ;Create Group for Enviroment Options
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")                                             
    ;Set Group Font

    ;Read file "environment_list.txt" and populate 'Test Environment' in the group
    $rowNbr = 132
    $fH = FileOpen("environment_list.txt")
    ;$envList = ""
    $oneLine  = FileReadToArray($fH)
    ;Check if File is empty
    If @error <> 0 Then
        MsgBox(0, "Environment List", "Fix this first! File environment_list.txt is either not present, or is empty")
    Exit
    EndIf
    ;Proceed happily if File *not* empty, and read environment list - one line at a time
    ;and, append to $envList
    For $i = 0 To UBound($oneLine) - 1
        GUICtrlSetData(-1, $oneLine[$i])
        ;GUICtrlCreateCheckbox($oneLine[$i], 424, $rowNbr, 177, 17)
        ;$rowNbr = $rowNbr + 24
    Next

    FileClose($fH)

    $BtnBrowse = GUICtrlCreateButton("Browse", 280, 348, 75, 25)
    $BtnGenerate = GUICtrlCreateButton("Generate", 88, 388, 75, 25)
    $BtnRun = GUICtrlCreateButton("Run", 184, 388, 75, 25)
    $BtnCancel = GUICtrlCreateButton("Cancel", 280, 388, 75, 25)
    $BtnNext1 = GUICtrlCreateButton("Next", 544, 384, 75, 25)



    ;Create TabSheet Command
    $TabSheetCommand = GUICtrlCreateTabItem("Command")
    ;$TabSheetCommand = _GUICtrlTab_InsertItem($Tab1, 1, "Command")
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")

    $LabStep2 = GUICtrlCreateLabel("Step 2", 32, 40, 55, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $LabTSName = GUICtrlCreateLabel("Test Suit Name", 32, 68, 113, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $LabAvaiCom = GUICtrlCreateLabel("Available Commands", 32, 112, 150, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $InputTSName = GUICtrlCreateInput("Give your test suit a name", 160, 68, 249, 24)
    ;GUICtrlSetData($InputTSName, $inputText)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $ListAvaiCom = GUICtrlCreateList("", 24, 130, 273, 373, BitOR($GUI_SS_DEFAULT_LIST,$WS_HSCROLL), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

    ;Read file "command_list.txt" and populate 'Test Commands' in the ListBox
    $rowNbr = 132
    $fH = FileOpen("command_list.txt")
    ;$commandList = ""
    $oneLine  = FileReadToArray($fH)
    $i = 0
    ;Check if File is empty
    If @error <> 0 Then
        MsgBox(0, "Command List", "Fix this first! File command_list.txt is either not present, or is empty")
    Exit
    EndIf
    ;Proceed happily if File *not* empty, and read command list - one line at a time
    ;and, append to $commandList
    For $i = 0 To UBound($oneLine) - 1
        GUICtrlSetData(-1, $oneLine[$i])
        $rowNbr = $rowNbr + 24
    Next

    FileClose($fH)

    $LabChoCom = GUICtrlCreateLabel("Commands This Test suit Include", 420, 112, 250, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $ListChoCom = GUICtrlCreateList("", 416, 130, 273, 373, BitOR($GUI_SS_DEFAULT_LIST,$WS_HSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

    $btnAdd = GUICtrlCreateButton("Add", 320, 212, 75, 25)

    $btnRemove = GUICtrlCreateButton("Remove", 320, 252, 75, 25)

    $BtnNext2 = GUICtrlCreateButton("Next", 320, 456, 75, 25)

    $btnClear = GUICtrlCreateButton("Clear", 320, 296, 75, 25)


    ;Create TabSheet Parameter
    $TabSheetPara = GUICtrlCreateTabItem("Parameters")
    ;$TabSheetPara = _GUICtrlTab_InsertItem($Tab1, 2, "Parameters")


    $LabelStep3 = GUICtrlCreateLabel("Step 3:", 32, 48, 55, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $LabelSuitCmd = GUICtrlCreateLabel("Test Suit/Commands", 24, 76, 185, 393)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    $ListSuitCmd = GUICtrlCreateList("", 24, 106, 185, 375, BitOR($GUI_SS_DEFAULT_LIST, $WS_HSCROLL), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

    $GroupPara = GUICtrlCreateGroup("Parameters", 232, 76, 473, 393)

    $BtnNext3 = GUICtrlCreateButton("Next", 512, 420, 75, 25)

    $BtnClear2 = GUICtrlCreateButton("Clear", 424, 420, 75, 25)

    $BtnCancel2 = GUICtrlCreateButton("Cancel", 600, 420, 75, 25)


    ;Create TabSheet Help
    $TabSheetHelp = GUICtrlCreateTabItem("Help")
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sabs Serif")

    $Label12 = GUICtrlCreateLabel("This is help documnent", 256, 268, 300, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    GUISetState(@SW_SHOW)

EndFunc

 

Share this post


Link to post
Share on other sites

Ok, Finally. I know what happened. It is a stupid mistake, I set a too big Lable which blocked Listbox. Thanks Water. Cheers bro.

Share this post


Link to post
Share on other sites

:) 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • Daka
      By Daka
      I know there are listbox and listview, but now I have?
      here is the video of infowindow 
      I tried to read mouse selection like for listbox:
      $listWindow = "[CLASS:TFormResearchGR]" $topicsList = "[CLASS:TMWrapper; INSTANCE:255]" WinWait($listWindow, "", 60) $hdlWindow = WinGetHandle($listWindow) $hdlList = ControlGetHandle($hdlWindow, "", $topicsList) _GUICtrlListBox_ClickItem($hdlList, 0, "left") $countOfList = _GUICtrlListBox_GetCount($hdlList) ConsoleWrite("Count of list: " & $countOfList & @LF) count of list is not working.
      I realiezed that there are difference between listbox and listview, but this is something different.
      and till now I never saw that you can go inside with infotool and also get instances.
       
      so Im confused how to get the list number and the names of selection?
    • czardas
      By czardas
      Haven't had much time to code recently. However the following thread inspired me.
      The debate about linear, parallel and binary search methods was rather interesting and, in an attempt to be diplomatic, I decided to combine @jchd's suggestion with @LarsJ's binary search example. I decided that the binary search algorithm required modification to make it more linear. As usual, 'if you invent something, it probably already exists and if it already exists, it exists for a reason'. My first attempt was not all that good. The code worked but was really a mess. I blame peer pressure (to post an example of a parallel search method).  I will delete that old code in due course.
      With a little memory jogging and a glance at the help file, the solution turned out to be quite easy: I just needed a better understanding of Euler. Further modification will be needed to work with more complicated unicode strings. The output could be returned as an array or a delimitered string. I'm not so interested in those details. I'm just going to post the algorithm for now and anyone, who wants to, can modify it to suit their needs. Both arrays must contain at least 1 element.
      Local $aFoo = [0,1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,19,20,23,24,26,30,35,39,40,41] Local $aBar = [0,1,5,6,7,8,9,10,11,12,13,14,17,18,19,21,24,25,26,27,34,35,38,40] ParallelExponetialSearch($aFoo, $aBar) ; Compares two lists - returning positive matches. Each input array must be unique (individually) and in alphabetical order. Func ParallelExponetialSearch($aFoo, $aBar) Local $sFind, _ $iMin_F = -1, $iMax_F = UBound($aFoo) -1, $Lo_F = $iMin_F, $Hi_F, _ $iMin_B = -1, $iMax_B = UBound($aBar) -1, $Lo_B = $iMin_B, $Hi_B While $iMin_F < $iMax_F And $iMin_B < $iMax_B ; Toggle Arrays - Which array has most untested elements? This is the one we want to search next, ; so we can bypass more comparisons because (in theory) mismatches have a greater chance of being skipped. If $iMax_F - $iMin_F >= $iMax_B - $iMin_B Then ; $aFoo has more (or an equal number of) untested elements $Hi_F = $iMax_F $iMin_B += 1 $sFind = $aBar[$iMin_B] While $Lo_F < $Hi_F ; search $aFoo For $i = 0 To Floor(Log($Hi_F - $Lo_F) / Log(2)) $Lo_F = $iMin_F + 2^$i If $aFoo[$Lo_F] = $sFind Then $iMin_F = $Lo_F ; each match should be added to the output [perhaps an array] ConsoleWrite($sFind & " found at $aFoo[" & $Lo_F & "] = $aBar[" & $iMin_B & "]" & @LF) ExitLoop 2 ElseIf $aFoo[$Lo_F] > $sFind Then $Hi_F = $Lo_F -1 $iMin_F += Floor(2^($i -1)) $Lo_F = $iMin_F ContinueLoop 2 EndIf Next $iMin_F = $Lo_F ; minimum increment is one WEnd Else ; $aBar has more untested elements $Hi_B = $iMax_B $iMin_F += 1 $sFind = $aFoo[$iMin_F] While $Lo_B < $Hi_B ; search $aBar For $i = 0 To Floor(Log($Hi_B - $Lo_B) / Log(2)) $Lo_B = $iMin_B + 2^$i If $aBar[$Lo_B] = $sFind Then $iMin_B = $Lo_B ; each match should be added to the output [perhaps an array] ConsoleWrite($sFind & " found at $aFoo[" & $iMin_F & "] = $aBar[" & $Lo_B & "]" & @LF) ExitLoop 2 ElseIf $aBar[$Lo_B] > $sFind Then $Hi_B = $Lo_B -1 $iMin_B += Floor(2^($i -1)) $Lo_B = $iMin_B ContinueLoop 2 EndIf Next $iMin_B = $Lo_B ; minimum increment is one WEnd EndIf WEnd EndFunc ;==> ParallelExponetialSearch I hope this will be useful to someone. I believe it deserved a thread of its own!
    • RC86
      By RC86
      Afternoon!
      I have a requirement to return both a string and an array from a function so as a result I put them both into an array and returned that.  I can access them in their entirety after returning them but then I can't seem to access the array elements after this.  Should I be able to or is there a prettier way?
      #include <Array.au3> ;Memory info returned as a string and an array $memoryInfo = _getMemoryInfo() msgbox(0,"Memory Info",$memoryInfo[0]) _ArrayDisplay($memoryInfo[1],"Memory as an Array") Local $newArray[7] $memoryInfo[1] = $newArray msgbox(0,"Test element",$newArray[0]) _ArrayDisplay($newArray) Func _getMemoryInfo() Local $newArray[7] Local $array = MemGetStats() $newArray[0] = $array[0] ;% of memory in use $newArray[1] = Round($array[1]/1024 * 0.001,2) ;Total physical RAM $newArray[2] = Round($array[2]/1024 * 0.001,2) ;Availaible physical RAM $newArray[3] = Round($array[3]/1024 * 0.001,2) ;Total pagefile $newArray[4] = Round($array[4]/1024 * 0.001,2) ;Available pagefile $newArray[5] = Round($array[5]/1024 * 0.001,2) ;Total virtual $newArray[6] = Round($array[6]/1024 * 0.001,2) ;Available virtual $memoryUsage = $newArray[1] - $newarray[2] $pagefileUsage = $newArray[3] - $newarray[4] ;Output/Return Local $returnArray[2] $returnArray[0] = "Memory: " & $memoryUsage & " GB/" & $newArray[1] & " GB " & @CRLF & "Pagefile: " & $pagefileUsage & " GB/" & $newArray[3] & " GB " $returnArray[1] = $newArray return $returnArray EndFunc A bit messy but hopefully it's understandable what I'm trying to achieve.
      Thanks!
    • Jibberish
      By Jibberish
      I am having difficulties getting updated results from GUICtrlCreateInput. I wrote a small script to demonstrate what I am trying to do.
      This script reads a text file into an array and displays the Name and Number from the text file.
      The user can check a name and change the number, and the results are displayed in _ArrayDisplay.
      Only the Checked names are displayed in their original position. This is necessary for future
      plumbing.
      The problem with this script is the original number is returned, not the changed number. I cannot
      figure out how to get the updated number to be displayed.
      ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; This script reads a text file into an array and displays the Name and Number from the text file. ; The user can check a name and change the number, and the results are displayed in _ArrayDisplay. ; Only the Checked names are displayed in their original position. This is necessary for future ; plumbing. ; ; The problem with this script is the original number is returned, not the changed number. I cannot ; figure out how to get the updated number to be displayed. ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #include-once #include <MsgBoxConstants.au3> #include <array.au3> #include <Date.au3> #include <WinAPIFiles.au3> #include <AutoItConstants.au3> #include <Misc.au3> #include <File.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> Local $iMax = 6 ;Default number of Videos - 1 for the array counter Dim $aTextFile[$iMax][2] ; [start with 5 entries][Name, Number] Don't get confused! [Row][Column] Local $i = 0 Local $iLeft = 30 Local $iTop = 30 Local $sName Local $sNumber Local $aArray Local $iMaxCol = 5 Local $iRow = 0 Local $iCol = 0 Local $aNumberCount[$iMaxCol][2] $aArray1 = ReadFile() $aNamesNumbers = DisplayNames($aArray1) _ArrayDisplay($aNamesNumbers) ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; ReadFile() places the contents of the NameNumber.txt file in an array ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Func ReadFile() Local $sFileData = @ScriptDir & "\NameNumber.txt" Local $iStrReturn = 0 Local $aArrayFile Local $aTextFile[$iMaxCol][2] Local $aName Local $sCheckBox1 Const $iL = 10 ; Count from Left for GUI so all buttons line up Local $sFill Local $iA = 0, $iN = 0 ; Put the Names into an Array _FileReadToArray($sFileData, $aArrayFile) For $iA = 0 To $aArrayFile[0] ; Step through the array looking for Names If StringInStr($aArrayFile[$iA], "Name:") Then $aName = StringSplit($aArrayFile[$iA],":") $sFill = $aName[2] If UBound($aTextFile) <= $iRow Then ; Resize the array when $iRow is equal to the element count in the array to prevent subscript error ReDim $aTextFile[UBound($aTextFile) + 1][$iMaxCol] EndIf $aTextFile[$iRow][$iCol] = $sFill $iRow += 1 EndIf Next $iCol = 1 $iRow = 0 $sFill = "" For $iA = 1 To $aArrayFile[0] ; Step through the array looking for Numbers If StringInStr($aArrayFile[$iA], "Number:") Then $aName = StringSplit($aArrayFile[$iA],":") $sFill = $aName[2] If UBound($aTextFile) <= $iRow Then ; Resize the array when $iRow is equal to the element count in the array to prevent subscript error ReDim $aTextFile[UBound($aTextFile) + 1][$iMaxCol] EndIf $aTextFile[$iRow][$iCol] = $sFill $iRow += 1 EndIf Next Return $aTextFile EndFunc ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Display the Name and Number ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Func DisplayNames($aArray1) Local $aName[$iMax] Local $aNumbers[$iMax] $iMMCount = UBound($aArray1) $iMMCount -=1 Local $iWidth = 300 Local $iLength = 300;$iMMCount * 30 GUISetFont(12) $hGUI = GUICreate("Edit / Update Number Test", $iWidth, $iLength, -1, -1) GUICtrlCreateLabel(" Name Number",1,5) ;$iTop += 30 ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Display Name with a Checkbox. Only Checked Names should be saved. ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ For $i = 0 to $iMMCount Step 1 $sNameText = $aArray1[$i][0] $iNameLength = StringLen($sNameText) $aName[$i] = GUICtrlCreateCheckbox($sNameText,$iLeft, $iTop) $iTop += 30 Next ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Display the number from the text file below each name. Allow the user to change the number and display the ; new number. ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $iLeft = 60 GUIStartGroup() $iTop = 28 For $i = 0 to $iMMCount Step 1 $sNumberText = $aArray1[$i][1] $aNumberCount[$i][1] = $sNumberText $aNumberCount[$i][0] = GUICtrlCreateInput($sNumberText,$iLeft, $iTop, 50,18, $GUI_DOCKAUTO) GUICtrlSetPos($aNumberCount[$i][0],200) $iTop += 30 Next ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Read the checked names and (possibly updated) number ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $iMMCount = UBound($aNumberCount) $iMMNewCount = $iMMCount - 1 Local $aGUICheckbox[$iMMCount] Local $aCheckedNameNumber[$iMMCount][2] $iLeft = 30 Local $idCloseGUI = GUICtrlCreateButton("Close",$iLeft, $iTop) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $idCloseGUI For $i = 0 To $iMMNewCount Step 1 Switch GUICtrlRead($aName[$i]) Case $GUI_CHECKED $aCheckedNameNumber[$i][0] = $aArray1[$i][0] Case $GUI_UNCHECKED EndSwitch Switch GUICtrlRead($aNumberCount[$i][0]) Case $aCheckedNameNumber[$i][1] = GUICtrlRead($aNumberCount[$i][1]) EndSwitch Next ExitLoop EndSwitch WEnd For $i = 0 to $iMMNewCount step 1 GUICtrlRead($aNumberCount[$i][0]) If $aCheckedNameNumber[$i][0] <> "" Then $aCheckedNameNumber[$i][1] = $aNumberCount[$i][1] EndIf Next GUIDelete($hGUI) Return $aCheckedNameNumber EndFunc This is the text file I am reading. If you want to try this out put the NameNumber.txt file in your script directory. It's attached to the post.
      * This is a dummy file with a Name and Number * The only purpose of this file is to read the updated Number. Name:Taggart Number:916 Name:Mongo Number:90 Name:Hedley Lamarr Number:22 Name:Bart Number:9999 Name:The Waco Kid Number:2244 If I change the number, the original number is displayed at the end, not the updated/modified number. I need the modified number to be displayed.
      Thanks in advance for any assistance!
      Jibberish
      NameNumber.txt
    • Jibberish
      By Jibberish
      I am working on a Video Player Test Script. I am reading a text file into a 3d array to be displayed in a GUI.
      Array Content:
      [x][0]FileName.mp4
      [x][1]UsageCount -> Up to a 4 digit number
      [x][2]EnableUsageCount (True/False)
      In the GUI the user can check the filename box, edit the number of usages and check EnableUsageCount to turn on the UsageCount control using the UsageCount number for the maximum number of plays.
      To make this easier to deal with I have removed the EnableUsageCount section, and am just concentrating on getting a method to put the edited (or unchanged) UsageCount in the array. Currently nothing is read into the array, due to my using the wrong method in the Case statement.
      Here are code snippets of what I am trying to do:
      ; Snippets from script ; I read the text file at the bottom and put the .mp4 filenames in $aManifest[x][0] and UsageCount in $aManifest[x][1] ; Then I create a GUI to display the .mp4 filenames with checkboxes and the UsageCount to the right. UsageCount is editable by the user. ; If the filename is checked, I want to read the filename into $aCheckedVideos[x][0] and the updated UsageCount in $aCheckedVideos[x][1] ; The GUICtrlRead($aVideoName[$i]) with Case $GUI_CHECKED & UNCHECKED works for the checkboxes ; This section puts the filenames in the GUI with a checkbox For $i = 0 to $iMMCount Step 1 $sMP4Text = $aManifest[$i][0] $iMP4Length = StringLen($sMP4Text) $aVideoName[$i] = GUICtrlCreateCheckbox($sMP4Text,$iLeft, $iTop) $iTop += 30 Next ; This section reads numbers from the Manifest array, and I want to be able to change the number and have them saved. ; So the Case $GUI_CHECKED & UNCHECKED won't work here, and I can't figure out what I should be doing here. For $i = 0 to $iMMCount Step 1 $sUsageText = $aManifest[$i][1] $aUsageCount[$i] = GUICtrlCreateInput($sUsageText,$iLeft, $iTop, 50,18, $GUI_DOCKAUTO) GUICtrlSetPos($aUsageCount[$i],200) $iTop += 30 Next While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $idCloseGUI For $i = 0 To $iMMNewCount Step 1 Switch GUICtrlRead($aVideoName[$i]) Case $GUI_CHECKED $aCheckedVideos[$i][0] = $aManifest[$i][0] ; If checked, I put the results into a two D array Case $GUI_UNCHECKED ; where Video Name is $aCheckedVideos[x][0] EndSwitch Switch GUICtrlRead($aUsageCounter[$i]) Case $GUI_CHECKED $aCheckedVideos[$i][1] = $aUsageCount[$i] ;I want to put the text (numbers) in $aCheckedVideos[x][1] Case $GUI_UNCHECKED ;but what is returned is blank, probably due to EndSwitch ; $GUI_CHECKED being the wrong thing. Next ExitLoop EndSwitch WEnd ;The txt file I'm reading has the following: ;~ /** Title #1: Big Buck Bunny 1080p **/ ;~ "Name": "Big Buck Bunny", ;~ "URI": "..\\MediaFiles\\bbb_1080_60s.mp4", ;~ "UsageCount": 9999, ;~ "URI": "..\\MediaFiles\\bbb_1080_60s_enc1.mp4", ;~ "UsageCount": 45, ;~ "URI": "..\\MediaFiles\\bbb_1080_60s_enc1.mp4", ;~ "UsageCount": 2, ;~ /** Title #2: Tears of Steel 4K **/ ;~ "Name": "Tears of Steel 4K", ;~ "URI": "..\\MediaFiles\\tos_4K_60s_HEVC.mp4", ;~ "UsageCount": 9876, ;~ "URI": "..\\MediaFiles\\tos_4K_60s_HEVC_enc2.mp4", ;~ "UsageCount": 0, ;~ "URI": "..\\MediaFiles\\tos_4K_60s_HEVC_enc2.mp4", ;~ "UsageCount": 5, I am certain that the section
                          Switch GUICtrlRead($aUsageCounter[$i])
                              Case $GUI_CHECKED
                                  $aCheckedVideos[$i][1] = $aUsageCount[$i]    ;I want to put the text (numbers) in $aCheckedVideos[x][1]
                              Case $GUI_UNCHECKED                                ;but what is returned is blank, probably due to
                          EndSwitch                                            ; $GUI_CHECKED being the wrong thing.

      is wrong, and this is what I am looking for help with. Instead of $GUI_CHECKED what should I be looking for?
      The worst part of this is I had this working late last night, and then lost my changes and cannot for the life of me remember how I had this working.
      Help is truly appreciated!
      Jibberish