Question about Combo

[koshatneg]

Hi.

I have a file account_list.txt with strings:

UserAB

UserCD

UserEF

...

and so on. I want to create a combobox with values from this .txt file . How can I do this?

The template looks like this:

#include <GUIConstants.au3>
GUICreate("Выбор учетной записи", 220, 100)  ; will create a dialog box that when displayed is centered
GUICtrlCreateCombo ("item1", 10,10) ; create first item
GUICtrlSetData(-1,"item2|item3","item1") ; add other item snd set a new default
GUISetState ()
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Thanks.

[Melba23]

koshatneg,

Welcome to the AutoIt forum.

Read your file into an array using _FileReadToArray and then use a loop to get the values into your combo:

#include <GUIConstantsEx.au3>

; Get your file into an array usuign _FileReadToArray
; This line simulates that:
Global $aLines[4] = [3, "UserAB", "UserCD", "UserEF"]

$hGUI = GUICreate("Test", 500, 500)

$hCombo = GUICtrlCreateCombo("", 10, 10, 200, 20)

; Now fill your combo from the array
For $i = 1 To $aLines[0]
    GUICtrlSetData($hCombo, $aLines[$i])
Next

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Please ask if anything is unclear.

M23

[koshatneg]

Melba23,

thanks, you really help me

that's what I got:

Dim $aLines
If _FileReadToArray("C:\file.txt",$aLines) Then

$hGUI = GUICreate("Combo window", 220, 100)  
$hCombo = GUICtrlCreateCombo ("Take a choice..", 10,10) 
For $i = 1 To $aLines[0]
    GUICtrlSetData($hCombo, $aLines[$i])
Next

GUISetState()
; Run the GUI until the dialog is closed
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Else
   MsgBox(0,"Error","Error from Function")
EndIf

[JamesDover]

Would it be possible to output a mysql record set to a combo box? Here is what I have so far it connects to mysql then pulls down the table information but its all 45435435435 instead of 45 435 43 54 35 I'm not sure how to write an array to fix this.

Cheers

Func QueryMysql()
    $SelectFrom = "hardware_id"
    $Table = "accountinfo"
    $Row = "TAG"
    $NametoFind = GUICtrlRead($DepartMentNameInput) 
    $Orderby = "hardware_id"
    If $adoConn.State = $adStateOpen Then $adoConn.Close
    $adoConn.ConnectionString = $Conn
    $adoConn.Open
    $RemoteFormatString = 'SELECT %s FROM %s WHERE (%s = "%s") order by %s;'
    $remoteqry = StringFormat($RemoteFormatString, $SelectFrom, $Table, $Row, $NametoFind, $Orderby)
    If $remoters.State = $adStateOpen Then $remoters.Close
    $remoters = $adoConn.Execute($remoteqry);Run Query to mysql
    If $remoters.State = $adStateOpen Then
        $remoteop = "" ;to flush old records
        $remoteop = $remoters.GetString(2, -1, "", @CRLF, "Null")
        ConsoleWrite($remoteop);debug
        GUICtrlSetData($ComputerNameComboBox, $remoteop)
        $remoters.Close
    EndIf
    ;   Term()
EndFunc   ;==>Remote

[JamesDover]

Были ли у Вас проблемы с текстовыми файлами? Иногда я не могу их видеть.

Melba23,

thanks, you really help me

that's what I got:

Dim $aLines
If _FileReadToArray("C:\file.txt",$aLines) Then

$hGUI = GUICreate("Combo window", 220, 100)  
$hCombo = GUICtrlCreateCombo ("Take a choice..", 10,10) 
For $i = 1 To $aLines[0]
    GUICtrlSetData($hCombo, $aLines[$i])
Next

GUISetState()
; Run the GUI until the dialog is closed
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Else
   MsgBox(0,"Error","Error from Function")
EndIf