Listbox problem

[VelvetElvis]

I have an array consisting of a set of names and their related email addresses, separated by a pipe character, e.g.

Brian Jones|bjones@gmail.com

Fred Farkle|ffarkle@aol.com

I want to display the names in a listbox, and when selected, return the email address associated with the name. I've split the lines into the appropriate arrays, but can't get the _GUICtrlListBox_SetItemData() to work the way I thought it's supposed to.

If I understand _GUICtrlListBox_Create() properly, I can do this. I'm having trouble with the function, and the help file example is way beyond me. Here's a snippet of what I have so far:

#include <Array.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>

Global $inputfile = @ScriptDir & "\input.txt"
Global $aStaff

; Create GUI
$GUI = GUICreate("Multi Texter", 350, 400, Default, Default, $WS_SIZEBOX)
$ListBox = _GUICtrlListBox_Create($GUI, "", 10, 30, 300, 90, BitOR($WS_HSCROLL, $WS_VSCROLL, $WS_BORDER, $LBS_HASSTRINGS, $LBS_MULTIPLESEL))
$editbox = GUICtrlCreateEdit("", 10, 125, 300, 135, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL), $WS_SIZEBOX + $WS_SYSMENU)
$label = GUICtrlCreateLabel("Select One or More Associates", 10, 10)
$SendButton = GUICtrlCreateButton("Send", 10, 285, 100, 30)
$ExitButton = GUICtrlCreateButton("Exit", 10, 330, 100, 30)

_FileReadToArray($inputfile, $aStaff)
For $x = 1 To UBound($aStaff) - 1
$tmp = StringSplit($aStaff[$x], "|")
_GUICtrlListBox_AddString($ListBox, $tmp[1])
_GUICtrlListBox_SetItemData($ListBox, $x, $tmp[2])
Next

GUISetState()
MsgBox(0, "", _GUICtrlListBox_GetItemData($ListBox, 2)) <---- Returns "0"

I obviously missed something critical, because my msgbox test returns zeroes.

Can someone enlighten me?

[Melba23]

VelvetElvis,

The "data" referred to in those functions is usually the CommandID associated with the control. As such it is limited to 4 digits - or the binary equivalent of 4 characters as shown here:

#include <Array.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>

; Simulate
;_FileReadToArray($inputfile, $aStaff)
Global $aStaff[3] = [2, "Brian Jones|bjon", "Fred Farkle|ffar"] ; Limit the second part to 4 chars

Global $inputfile = @ScriptDir & "input.txt"
Global $aStaff

; Create GUI
$GUI = GUICreate("Multi Texter", 350, 400, Default, Default, $WS_SIZEBOX)
$ListBox = _GUICtrlListBox_Create($GUI, "", 10, 30, 300, 90, BitOR($WS_HSCROLL, $WS_VSCROLL, $WS_BORDER, $LBS_HASSTRINGS, $LBS_MULTIPLESEL))
$editbox = GUICtrlCreateEdit("", 10, 125, 300, 135, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL), $WS_SIZEBOX + $WS_SYSMENU)
$label = GUICtrlCreateLabel("Select One or More Associates", 10, 10)
$SendButton = GUICtrlCreateButton("Send", 10, 285, 100, 30)
$ExitButton = GUICtrlCreateButton("Exit", 10, 330, 100, 30)

For $x = 1 To UBound($aStaff) - 1
    $tmp = StringSplit($aStaff[$x], "|")
    _GUICtrlListBox_AddString($ListBox, $tmp[1])
    _GUICtrlListBox_SetItemData($ListBox, $x - 1, StringToBinary($tmp[2]))
Next

GUISetState()

MsgBox(0, "", BinaryToString(_GUICtrlListBox_GetItemData($ListBox, 1))) ; We get the correct return

One way you might go about finding the address is to look in the array you already have for the selected names and then read the associated address from there like this:

expandcollapse popup

#include <Array.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>

; Simulate
;_FileReadToArray($inputfile, $aStaff)
Global $aStaff[3] = [2, "Brian Jones|bjones@gmail.com", "Fred Farkle|ffarkle@aol.com"]

Global $inputfile = @ScriptDir & "input.txt"
Global $aStaff

; Create GUI
$GUI = GUICreate("Multi Texter", 350, 400, Default, Default, $WS_SIZEBOX)
$ListBox = _GUICtrlListBox_Create($GUI, "", 10, 30, 300, 90, BitOR($WS_HSCROLL, $WS_VSCROLL, $WS_BORDER, $LBS_HASSTRINGS, $LBS_MULTIPLESEL))
$editbox = GUICtrlCreateEdit("", 10, 125, 300, 135, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL), $WS_SIZEBOX + $WS_SYSMENU)
$label = GUICtrlCreateLabel("Select One or More Associates", 10, 10)
$SendButton = GUICtrlCreateButton("Send", 10, 285, 100, 30)
$ExitButton = GUICtrlCreateButton("Exit", 10, 330, 100, 30)

For $x = 1 To UBound($aStaff) - 1
    $tmp = StringSplit($aStaff[$x], "|")
    _GUICtrlListBox_AddString($ListBox, $tmp[1])
Next

GUISetState()

; Simulate selecting a string
ConsoleWrite(_GUICtrlListBox_SetSel($ListBox, 0) & @CRLF)

; Read selection text
$aSelected = _GUICtrlListBox_GetSelItemsText($ListBox)
; Find it in the array
$iIndex = _ArraySearch($aStaff, $aSelected[1], 1, 0, 0, 1)
; Read the associated address
$aSplit = StringSplit($aStaff[$iIndex], "|")
MsgBox(0, "", $aSplit[2])

Any use?

M23

[VelvetElvis]

VelvetElvis,

The "data" referred to in those functions is usually the CommandID associated with the control. As such it is limited to 4 digits - or the binary equivalent of 4 characters as shown here:

<snip>

One way you might go about finding the address is to look in the array you already have for the selected names and then read the associated address from there like this:

expandcollapse popup

#include <Array.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>

; Simulate
;_FileReadToArray($inputfile, $aStaff)
Global $aStaff[3] = [2, "Brian Jones|bjones@gmail.com", "Fred Farkle|ffarkle@aol.com"]

Global $inputfile = @ScriptDir & "\input.txt"
Global $aStaff

; Create GUI
$GUI = GUICreate("Multi Texter", 350, 400, Default, Default, $WS_SIZEBOX)
$ListBox = _GUICtrlListBox_Create($GUI, "", 10, 30, 300, 90, BitOR($WS_HSCROLL, $WS_VSCROLL, $WS_BORDER, $LBS_HASSTRINGS, $LBS_MULTIPLESEL))
$editbox = GUICtrlCreateEdit("", 10, 125, 300, 135, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL), $WS_SIZEBOX + $WS_SYSMENU)
$label = GUICtrlCreateLabel("Select One or More Associates", 10, 10)
$SendButton = GUICtrlCreateButton("Send", 10, 285, 100, 30)
$ExitButton = GUICtrlCreateButton("Exit", 10, 330, 100, 30)

For $x = 1 To UBound($aStaff) - 1
    $tmp = StringSplit($aStaff[$x], "|")
    _GUICtrlListBox_AddString($ListBox, $tmp[1])
Next

GUISetState()

; Simulate selecting a string
ConsoleWrite(_GUICtrlListBox_SetSel($ListBox, 0) & @CRLF)

; Read selection text
$aSelected = _GUICtrlListBox_GetSelItemsText($ListBox)
; Find it in the array
$iIndex = _ArraySearch($aStaff, $aSelected[1], 1, 0, 0, 1)
; Read the associated address
$aSplit = StringSplit($aStaff[$iIndex], "|")
MsgBox(0, "", $aSplit[2])

Any use?

M23

Thank you for the explanation, Melba23.

I was hoping it were something like I remember back in my Delphi days, where you could link the text in a list to the actual values you wanted returned.

And yes, your solution is perfect. Thanks!

[Melba23]

VelvetElvis,

Good. Just remember that you get an array returned by _GUICtrlListBox_GetSelItemsText and will need to loop through it if there is more than a single selection - I took some shortcuts for the example above.

M23

[VelvetElvis]

Yes, I have that covered. Thanks again!