move into array

[joeloyzaga]

I want move values from XXXX into an array and the use the array as the values for a combobox- is there a clean way to do this?

[99ojo]

I want move values from XXXX into an array and the use the array as the values for a combobox- is there a clean way to do this?

Hi,

XXXX = c:\test.txt

Coding:

#include <file.au3>
#include <GUIConstantsEx.au3>
#Include <GuiComboBox.au3>

Dim $aArray
$file = "c:\test.txt"
$hgui = GUICreate("Test", 320, 180, -1, -1)
$hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)
If Not _FileReadToArray ($file, $aArray) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

For $x = 1 to UBound ($aArray) - 1
    _GUICtrlComboBox_AddString($hCombo, $aArray [$x])
Next
_GUICtrlComboBox_SetCurSel ($hCombo, 0)
GUISetState()
Do
    $msg = GUIGetMsg()
    Sleep (50)
Until $msg = $GUI_EVENT_CLOSE

You may sort Array $aArray before filling combo (see help _ArraySort). If you want the values reading from an ini file, look for IniRead... in helpfile.

;-))

Stefan

Edited August 6, 2009 by 99ojo

[joeloyzaga]

Hi,

XXXX = c:\test.txt

Coding:

#include <file.au3>
#include <GUIConstantsEx.au3>
#Include <GuiComboBox.au3>

Dim $aArray
$file = "c:\test.txt"
$hgui = GUICreate("Test", 320, 180, -1, -1)
$hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)
If Not _FileReadToArray ($file, $aArray) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

For $x = 1 to UBound ($aArray) - 1
    _GUICtrlComboBox_AddString($hCombo, $aArray [$x])
Next
_GUICtrlComboBox_SetCurSel ($hCombo, 0)
GUISetState()
Do
    $msg = GUIGetMsg()
    Sleep (50)
Until $msg = $GUI_EVENT_CLOSE

You may sort Array $aArray before filling combo (see help _ArraySort). If you want the values reading from an ini file, look for IniRead... in helpfile.

;-))

Stefan

thanks!

what if the values are coming from a variable received by another function? so I be reading the values from a function call into an array - how?

[99ojo]

thanks!

what if the values are coming from a variable received by another function? so I be reading the values from a function call into an array - how?

Hi,

just define your variable as global, e.g:

Global $aArray instead of Dim $aArray.

So you can fill array with your function and then fill combobox with array, e.g:

; Fillin the includes you need
Global $aArray
Global $hgui = GUICreate("Test", 320, 180, -1, -1)
Global $hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)

_fillarray ()
_fillcombo ()

GUISetState()

Do
    $msg = GUIGetMsg()
    Sleep (50)
Until $msg = $GUI_EVENT_CLOSE

Func _fillarray ()
    ;filling $aArray with whatever you want
EndFunc

Func _fillcombo ()
    For $x = 1 to UBound ($aArray) - 1 ; depending how your array is created you may need at For $x = 0. 
        _GUICtrlComboBox_AddString($hCombo, $aArray [$x])
    Next
    _GUICtrlComboBox_SetCurSel ($hCombo, 0)
EndFunc

;-))

Stefan

[joeloyzaga]

Hi,

just define your variable as global, e.g:

Global $aArray instead of Dim $aArray.

So you can fill array with your function and then fill combobox with array, e.g:

; Fillin the includes you need
Global $aArray
Global $hgui = GUICreate("Test", 320, 180, -1, -1)
Global $hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)

_fillarray ()
_fillcombo ()

GUISetState()

Do
    $msg = GUIGetMsg()
    Sleep (50)
Until $msg = $GUI_EVENT_CLOSE

Func _fillarray ()
    ;filling $aArray with whatever you want
EndFunc

Func _fillcombo ()
    For $x = 1 to UBound ($aArray) - 1 ; depending how your array is created you may need at For $x = 0. 
        _GUICtrlComboBox_AddString($hCombo, $aArray [$x])
    Next
    _GUICtrlComboBox_SetCurSel ($hCombo, 0)
EndFunc

;-))

Stefan

wow-that looks so easy ! thanks!

[joeloyzaga]

How would I fill the array with the value from an object (really bad code here as its coming back with badly formatted "For") - set up the obect and now trying to gat all possible domains - maximum domains is 10 so I guess I can put a for loop with For $count = 1 To 10

;move into array - but I don't know how to address the object to move into array !!!!!!!!!!!!

Next

Global $tdc = ObjCreate("TDApiOle80.TDConnection")

MsgBox(-1, " ", $qcServer)

$tdc.InitConnectionEx("http://qualitycenter.test.det.nsw.edu.au:8080/qcbin/")

$tdc.Login("joseph.loyzaga", "password1")

Global $aArray

Global $hgui = GUICreate("Test", 320, 180, -1, -1)

Global $hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)

For each $tdc.mDomain in $tdc.QCConnection.VisibleDomains

$aArray = $tdc.mDomain

Next

Hi,

XXXX = c:\test.txt

Coding:

#include <file.au3>
#include <GUIConstantsEx.au3>
#Include <GuiComboBox.au3>

Dim $aArray
$file = "c:\test.txt"
$hgui = GUICreate("Test", 320, 180, -1, -1)
$hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)
If Not _FileReadToArray ($file, $aArray) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

For $x = 1 to UBound ($aArray) - 1
    _GUICtrlComboBox_AddString($hCombo, $aArray [$x])
Next
_GUICtrlComboBox_SetCurSel ($hCombo, 0)
GUISetState()
Do
    $msg = GUIGetMsg()
    Sleep (50)
Until $msg = $GUI_EVENT_CLOSE

You may sort Array $aArray before filling combo (see help _ArraySort). If you want the values reading from an ini file, look for IniRead... in helpfile.

;-))

Stefan

[99ojo]

How would I fill the array with the value from an object (really bad code here as its coming back with badly formatted "For") - set up the obect and now trying to gat all possible domains - maximum domains is 10 so I guess I can put a for loop with For $count = 1 To 10

;move into array - but I don't know how to address the object to move into array !!!!!!!!!!!!

Next

Global $tdc = ObjCreate("TDApiOle80.TDConnection")

MsgBox(-1, " ", $qcServer)

$tdc.InitConnectionEx("http://qualitycenter.test.det.nsw.edu.au:8080/qcbin/")

$tdc.Login("joseph.loyzaga", "password1")

Global $aArray

Global $hgui = GUICreate("Test", 320, 180, -1, -1)

Global $hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)

For each $tdc.mDomain in $tdc.QCConnection.VisibleDomains

$aArray = $tdc.mDomain

Next

Hi,

Global $tdc = ObjCreate("TDApiOle80.TDConnection")
MsgBox(-1, " ", $qcServer)
$tdc.InitConnectionEx("http://qualitycenter.test.det.nsw.edu.au:8080/qcbin/")
$tdc.Login("joseph.loyzaga", "password1")
Global $aArray [9] ; as you wrote max items 10: 0-9
Global $hgui = GUICreate("Test", 320, 180, -1, -1)
Global $hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)

$i = 0
For each $tdc.mDomain in $tdc.QCConnection.VisibleDomains
    $aArray [$i] = $tdc.mDomain
    $i += 1
Next

:-))

Stefan

[joeloyzaga]

thanks - I'll check this at work

[joeloyzaga]

any chance you can help with a gui thing?

$tdc.InitConnectionEx("http://qualitycenter.test.det.nsw.edu.au:8080/qcbin/")

$tdc.InitConnectionEx($qcServer)

$tdc.Login($qcUser, $qcPassword)

I got $qcUser from input from gui and it doesn't work - why does it work when I use literals? Do I have to do something with the value coming from GUICtrlRead($USERNAME),GUICtrlRead($PASSWORD)

$tdc.Login("USERNAME", "PASSWORD")

[joeloyzaga]

Hi,

Global $tdc = ObjCreate("TDApiOle80.TDConnection")
MsgBox(-1, " ", $qcServer)
$tdc.InitConnectionEx("http://qualitycenter.test.det.nsw.edu.au:8080/qcbin/")
$tdc.Login("joseph.loyzaga", "password1")
Global $aArray [9] ; as you wrote max items 10: 0-9
Global $hgui = GUICreate("Test", 320, 180, -1, -1)
Global $hCombo = GUICtrlCreateCombo ("", 150, 10, 150, 150)

$i = 0
For each $tdc.mDomain in $tdc.QCConnection.VisibleDomains
    $aArray [$i] = $tdc.mDomain
    $i += 1
Next

:-))

Stefan

I get error for loop badly formatted

[GEOSoft]

I get error for loop badly formatted

looks like stephan is used to VBScript.

Remove the "each" in the For...In.. Statement.

[joeloyzaga]

looks like stephan is used to VBScript.

Remove the "each" in the For...In.. Statement.

I did it and it says error in expression

[joeloyzaga]

OK

Got it to move into array!! but now I want to populate the combobox ($hCombo)with $array but it doesn't pls see attached

$i = 0

$j=1

For $wrk in $tdc.VisibleDomains

$aArray [$i] = $wrk

;For $wrk1 in $tdc.VisibleProjects

;$aArray1 [$j] = $wrk1

;$j += 1

;Next

$i += 1

Next

_fillcombo1 ()

;_fillarray ()

GUISetState()

Do

$msg = GUIGetMsg()

Sleep (50)

Until $msg = $GUI_EVENT_CLOSE

Func _fillcombo1 ()

For $x = 1 to UBound ($aArray) - 1 ; depending how your array is created you may need at For $x = 0.

_GUICtrlComboBox_AddString($hCombo, $aArray [$x])

Next

_GUICtrlComboBox_SetCurSel ($hCombo, 0)

EndFunc

Edited August 11, 2009 by joeloyzaga