read data from TXT File and put it to a listbox.

[kneze 0]

Hi

i try to read data from TXT File and put it to a listbox.

TXT File will contain data like:

User;Computer Name;Computer

Mark;C10000;Dell 2344

Justin;C20002;Dell 2344

Peter;C30000;Dell 2344

etc.

I would like to use a Combobox where i can select a text file. After selection the content should be displayed

in the listbox.

The code that i have assebled displays the content of txt file in a msgbox.

Could you please give me some tipps.

expandcollapse popup

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



$Form1 = GUICreate("Form1", 718, 733, 192, 124)
$List1 = GUICtrlCreateList("", 165, 90, 201, 331)
$Button1 = GUICtrlCreateButton("Button1", 390, 395, 116, 31)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

case $Button1
DIM $text

$file = FileOpen("C:\temp\sample.txt", 0)


; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
        
    $text = $text & @CRLF & $line 
   
Wend

FileClose($file)
MsgBox(0, "Line read:", $text)



    EndSwitch
WEnd

Edited June 15, 2011 by kneze

[BrewManNH 1,305]

Here's how I'd do it, but I'd use a ListView rather than a list box so that you can separate the values better:

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListview.au3>
#include <WindowsConstants.au3>


Global $LV_Array[10000][3]
$Form1 = GUICreate("Form1", 718, 733, 192, 124)
$List1 = GUICtrlCreateListView("User|Computer Name|Computer", 165, 90, 201, 331)
$Button1 = GUICtrlCreateButton("Button1", 390, 395, 116, 31)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Dim $text
            $file = FileOpen("C:\temp\sample.txt", 0)
            ; Check if file opened for reading OK
            If $file = -1 Then
                MsgBox(0, "Error", "Unable to open file.")
                Exit
            EndIf
            $I = 0
            ; Read in lines of text until the EOF is reached
            While 1
                $Line = ""
                $Line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                $text = StringSplit($Line, ";")
;~              $text = $text & @CRLF & $line
                For $X = 0 To 2
                    $LV_Array[$I][$X] = $text[$X]
                Next
                $I += 1
            WEnd
            FileClose($file)
                        ReDim $LV_Array[$I][3]
            _GUICtrlListView_AddArray($List1, $LV_Array)

;~          MsgBox(0, "Line read:", $text)
    EndSwitch
WEnd

Edited June 15, 2011 by BrewManNH

[enaiman 16]

No need to reinvent the wheel - use _FileReadToArray to get your file content.

After that you just use _GUICtrlListView_AddItem for every element in the array.

When you select a new file from the combo - _FileReadToArray again, delete all elements from the ListView then use again _GUICtrlListView_AddItem for every element in the array.

Pretty straightforward.

Or you can use _GUICtrlListVew_AddArray - if you manage to get your array in the proper format.