koshatneg Posted September 29, 2010 Share Posted September 29, 2010 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. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted September 29, 2010 Moderators Share Posted September 29, 2010 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 WEndPlease ask if anything is unclear. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
koshatneg Posted September 30, 2010 Author Share Posted September 30, 2010 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 Link to comment Share on other sites More sharing options...
JamesDover Posted October 13, 2010 Share Posted October 13, 2010 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 Link to comment Share on other sites More sharing options...
JamesDover Posted October 14, 2010 Share Posted October 14, 2010 Были ли у Вас проблемы с текстовыми файлами? Иногда я не могу их видеть. 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now