Get data from Edit box to appear the same in Listbox

[the1stpoodle]

Hi all, 

I am new to programming and newer to Autoit.

How would I go about sending the data in the $Edit1 to $ListBox1 by clicking on $Button1, so that it appears as it does in the MsgBox?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Test", 345, 252, 302, 218)
$Button1 = GUICtrlCreateButton(">>", 156, 48, 31, 25)
$ListBox1 = GUICtrlCreateList("", 200, 8, 137, 195, 0, 0)
$Button2 = GUICtrlCreateButton("&Exit", 184, 225, 75, 25)
$exit = ControlClick("Test", "", $Button2, "left")
HotKeySet("!e", $exit)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 137, 201, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1" & @CRLF & "Edit2" & @CRLF & "Edit3")
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button1
            $Read = GUICtrlRead($Edit1)
            GUICtrlSetData($ListBox1, $Read)
            MsgBox(0, "", $Read)
        Case $Button2
            WinClose
    EndSwitch
WEnd

Thank you in advance,

The1stpoodle

[BrewManNH]

You can't use @CRLF as the separator character for a Listbox, you must use "|" as the separator, unless you use Opt("GUIDataSeparatorChar", @CRLF) in your script to change it.

[Zedna]

Here is fixed code

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Test", 345, 252, 302, 218)
$Button1 = GUICtrlCreateButton(">>", 156, 48, 31, 25)
$ListBox1 = GUICtrlCreateList("", 200, 8, 137, 195, 0, 0)
$Button2 = GUICtrlCreateButton("&Exit", 184, 225, 75, 25)
$exit = ControlClick("Test", "", $Button2, "left")
;~ HotKeySet("!e", $exit)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 137, 201, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1" & @CRLF & "Edit2" & @CRLF & "Edit3")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button1
            $Read = GUICtrlRead($Edit1)
            $Read = StringReplace($Read, @CRLF, '|')
            GUICtrlSetData($ListBox1, $Read)
            MsgBox(0, "", $Read)
        Case $Button2
            Exit
    EndSwitch
WEnd

Added:
$Read = StringReplace($Read, @CRLF, '|')

Edited August 20, 2014 by Zedna

[the1stpoodle]

BrewManNH: I was just using @CRLF to emulate users entering more than one line (not as a default input), but now I know and knowing is half the battle....G I JOE!

Zedna: That is just what I was looking for. Thank you so much.