Help with adding array

3 posts in this topic

grimmlock 1

I can get most of this to work, however I am at the last few steps of finalizing my code and need some help. I have a mysql database with tons of data that is refreshed every night. The things I need help with is to get the data from mysql to the list box, seperating each name to a new line. Then what I am trying to accomplish is, I want to be able to highlight the computer name and have the buttons perform their action.

Example: If I choose branch 1 from the drop down list, and it pulls all the computers (8 of them) from mysql and displays them in the list box one pc per line. Then if I click Ping it scrolls through the list and returns the output of the ping into the read-only display boxes. Then if I stop the ping and select computers 2, 4, and 7 from the list box, I want to be able to get the IP addresses of those PC's (using mysql) and send the IP

to a seperate program. Lastly I would like to be able to select computers 1, 3, and 8 (if they are not reponding) and get thier IPs and their MAC addresses (from mysql) and send that data to the Wake On Lan Function.

Similar Content

Hello all,
I've been working on 4 standalone scripts. They each have their own GUI and are now independent .exe's. But instead of having 4 separate icons on my computer, is it possible to put them all together into one .exe?
What I want is one interface with tabs. Each script's GUI would be on their own respective tab. Is this possible?
The different scripts don't need to communicate with one another. I just want them all in one .exe.
I can't find this anywhere... Any help would be greatly appreciated. Thank you!

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!

I have a workplace GUI that has a search field function that pulls up customer records to allow changes. I am attempting to 1)LOGIN 2)Enter Search field, enter a number and then {ENTER} 3)change specific field once customer record loads. I have very limited experience in GUI manipulation but I am able to login using the below:
#include <IE.au3>
Const $navOpenInNewTab = 0x0800
Dim $oIE = _IECreate('http://asag.xxxxxxx.com/ASAG/index.htm')
Call ("RacksheetSignIn")
Func RacksheetSignIn ()
Local $username = _IEGetObjByName ($oIE,"uname")
Local $password = _IEGetObjByName ($oIE,"pword")
$oIE.Navigate2('http://asag.xxxxxxx.com/apps/RackSheets/LogInSAG/login.asp',2048)
_IEFormElementSetValue ($username, "xxxxxxx")
_IEFormElementSetValue ($password, "xxxxxxx")
Send('{Enter}')
EndFunc
However I can't seem to use the _IEGetObjByName or Mouseclick to focus on the search field to allow me to enter my search criteria. When I "inspect element" in the Search field I get the attached:

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