load text file to listbox

[Tigerweld]

noob here;

I'm stuck and can't find any examples on what to do next. Let me explain what I'm trying to accomplish and post my code so far. I want to load a text file in a listbox (sort the list too) with username and ip address with the following format.

jdoe,192.168.0.3

bcole,192.168.0.5

sallen,192.168.0.7

I would like to be able to click on a user and be able to set the ip address to a variable. I have more planned after that, but I've already what to do to accomplish that. I just don't know how to load the file into the list box sorted and be able to split the record to assign the ip address only to a variable.

#include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>

GUICreate("Users", 300, 600)

$remote = GUICtrlCreateButton ("Remote",  90, 30, 100)
$refresh = GUICtrlCreateButton ( "Refresh List", 90,60,100)
$users = GUICtrlCreateList ( "User List", 10,100,280,300)

$file = FileOpen("c:\citrix\logon.txt", 0)

If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileClose($file)


GUISetState ()
While 1
    $msg = GUIGetMsg()
    Select

        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
                    
        Case $msg = $refresh
           ;some code here to refresh the list
            
        Case $msg = $remote
        ;some code here to extract the ip address and place it in a variable
            
EndSelect
Wend

[GEOSoft]

Opening a file in Read mode dosn't read the file for you.

For your question I would be looking at _FileReadToArray() and then load the list from the array.

[Tigerweld]

Opening a file in Read mode dosn't read the file for you.

For your question I would be looking at _FileReadToArray() and then load the list from the array.

I think I'm closer. I have it to load, however I don't know how to use the stringsplit to extract the ip address only. Sorting the list from A to Z would be nice too.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>
#Include <GuiListView.au3>

GUICreate("Users", 300, 600)

; Read the file into an array
Global $aLines[1]
_FileReadToArray("c:\citrix\logon.txt", $aLines)
$remote = GUICtrlCreateButton ("Remote",  90, 30, 100)
$refresh = GUICtrlCreateButton ( "Refresh List", 90,60,100)
;$users = GUICtrlCreateList ( "", 10,100,280,300)
$hListView = GUICtrlCreateListView(" ", 10, 100, 280, 300)
_GUICtrlListView_SetColumnWidth($hListView, 0, $LVSCW_AUTOSIZE_USEHEADER)
$iIndex_Base = GUICtrlCreateDummy()
Fill_ListView()





GUISetState ()
While 1
    $msg = GUIGetMsg()
    Select

        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
                    
        Case $msg = $refresh
           ;some code here to refresh the list
            
        Case $msg = $remote
        ;some code here to extract the ip address and place it in a variable
            
EndSelect
Wend


Func Fill_ListView()
    For $i = 1 To $aLines[0]
        GUICtrlCreateListViewItem($aLines[$i], $hListView)
    Next
EndFunc

[Melba23]

Tigerweld,

Based on the file format in your original post:

jdoe,192.168.0.3

bcole,192.168.0.5

sallen,192.168.0.7

the point to split the line would be "," - so use StringSplit thus:

$aSplitLine = StringSplit("the_line_to_split", ",")

Using "jdoe,192.168.0.3" as an example, this will create the $aSplitLine array with the following elements:

[0] = 2
[1] = jdoe
[2] = 192.168.0.3

So the variable you require is $aSplitLine[2]. ;-)

As to sorting, look at the _GUICtrlListView UDFs in the Help file. The easiest is _GUICtrlListView_SimpleSort - but "easiest" is, of course, a relative term!

M23

[Tigerweld]

ok I understand that, but does this get the complete string on the selected line? I tried using it and I get errors. Not really sure how to use the $aSplitLine[2]

Case $msg = $remote
            $aSplitLine = StringSplit("the_line_to_split", ",")
            MsgBox(0, "variable value", "variable value is " & $aSplitLine[2])

[Authenticity]

But there are no commas in the string to split, so the function should set @error to 1 and return the entire string in $aSplitLine[1]. Read the function description in the help file.

Edited May 2, 2009 by Authenticity

[GEOSoft]

Sort the array right after you create it

_FileReadToArray("c:\citrix\logon.txt", $aLines)
_ArraySort($aLines, 0, 1)

Edit 1:Actually you should also be able to use this to populate the ListView

For $i = 1 To Ubound($aLines) -1
    $aRegEx = StringRegExp($aLines[$i], "(?i)(\w*),(\d.*\d)", 1)
    If NOT @Error Then
        $Col1_data = $aRegEx[0]
        $Col2_data = $aRegEx[1]
        MsgBox(0, "Results", $Col1_Data & @CRLF & @CRLF & $Col2_Data)
    EndIf
Next

EDIT 2:I copied you examples into a text file named logon.txt and then ran this. It returned what I expected (and what you have asked for)

#include<file.au3>
#include<array.au3>
Global $aLines
_FileReadToArray(@ScriptDir & "\logon.txt", $aLines)
_ArraySort($aLines, 0, 1)

For $i = 1 To Ubound($aLines) -1
    $aRegEx = StringRegExp($aLines[$i], "(?i)(\w*),(\d.*\d)", 1)
    If NOT @Error Then
        $Col1_data = $aRegEx[0]
        $Col2_data = $aRegEx[1]
        MsgBox(0, "Results", $Col1_Data & @CRLF & @CRLF & $Col2_Data)
    EndIf
Next

Edited May 2, 2009 by GEOSoft

[Melba23]

Tigerweld,

Use this in your Case statement:

Case $msg = $remote
    $iIndex = GUICtrlRead($hListView) - $iIndex_Base
    $sString = $aLines[$iIndex]
    $aSplitLine = StringSplit($sString, ",")
    ConsoleWrite($aSplitLine[2] & @CRLF)

If your input file is of the same format as you posted, this gives you the IP address in the variable $aSplitLine[2] - which is what you wanted.

Not really sure how to use the $aSplitLine[2]

What do you want to do with it?

M23

[GEOSoft]

Actually I think this reproduces what you want without StringSplits, _FileReadToArray() OR _ArraySort()

Again I just copied your example to the text file.

#include<ListviewConstants.au3>
Global $aLines
GUICreate("Test GUI")
$hList = GUICtrlCreateListView("Name|IP", 10, 10, 150, 100, _
BitOr($GUI_SS_DEFAULT_LISTVIEW, $LVS_SORTASCENDING, $LVS_SINGLESEL))
$aRegEx = StringRegExp(FileRead(@ScriptDir & "\logon.txt"), "(?i)(\w*),(\d.*\d)", 3)
$hStart = GUICtrlCreateDummy()
For $i = 0 To Ubound($aRegEx) -2 Step 2
 GUICtrlCreateListViewItem($aRegEx[$i] & "|" & $aRegEx[$i+1], $hList)
Next
$hEnd = GUICtrlCreateDummy()
GUISetState()

While 1
   $msg = GUIGetMsg()
   Switch $Msg
      Case -3
         Exit
      Case $hStart To $hEnd
         $iItem = ControlListView("","",$hList,"GetSelected")
         $sname = ControlListView("","",$hList,"GetText", $iItem, 0)
         $sIP = ControlListView("","",$hList,"GetText", $iItem, 1)
         MsgBox(0,"Results","Name:  " & $sName & @CRLF & @CRLF & "IP:  " & $sIP)
   EndSwitch
Wend

Edit: Added a couple of dummy controls for reference points and showed a method of returning the results if an item is clicked.

Edited May 2, 2009 by GEOSoft

[Tigerweld]

You guys are awesome! Both examples worked like a champ. I can't thank you enough. I've learned a lot today. My noodle is tire!

[Tigerweld]

GEOSoft, how can I add one more variable to the columns? I want to add variable sHostName to the text file. My new text file looks like

jdoe,192.168.0.3,MXL53109JK

bcole,192.168.0.5,MXL5309GB

sallen,192.168.0.7,DD80521

Thanks!

Actually I think this reproduces what you want without StringSplits, _FileReadToArray() OR _ArraySort()

Again I just copied your example to the text file.

#include<ListviewConstants.au3>
Global $aLines
GUICreate("Test GUI")
$hList = GUICtrlCreateListView("Name|IP", 10, 10, 150, 100, _
BitOr($GUI_SS_DEFAULT_LISTVIEW, $LVS_SORTASCENDING, $LVS_SINGLESEL))
$aRegEx = StringRegExp(FileRead(@ScriptDir & "\logon.txt"), "(?i)(\w*),(\d.*\d)", 3)
$hStart = GUICtrlCreateDummy()
For $i = 0 To Ubound($aRegEx) -2 Step 2
 GUICtrlCreateListViewItem($aRegEx[$i] & "|" & $aRegEx[$i+1], $hList)
Next
$hEnd = GUICtrlCreateDummy()
GUISetState()

While 1
   $msg = GUIGetMsg()
   Switch $Msg
      Case -3
         Exit
      Case $hStart To $hEnd
         $iItem = ControlListView("","",$hList,"GetSelected")
         $sname = ControlListView("","",$hList,"GetText", $iItem, 0)
         $sIP = ControlListView("","",$hList,"GetText", $iItem, 1)
         MsgBox(0,"Results","Name:  " & $sName & @CRLF & @CRLF & "IP:  " & $sIP)
   EndSwitch
Wend

Edit: Added a couple of dummy controls for reference points and showed a method of returning the results if an item is clicked.

[Authenticity]

Dim $aLines[4] = [3, 'jdoe,192.168.0.3,MXL53109JK', 'bcole,192.168.0.5,MXL5309GB', 'sallen,192.168.0.7,DD80521']
Dim $hGUI
Dim $ListView
Dim $iOldDelimiter
$hGUI = GUICreate('Test', 300, 250)
$ListView = GUICtrlCreateListView('Name  |IP         |Host-name', 0, 0, 300, 200)

$iOldDelimiter = Opt('GUIDataSeparatorChar', ',')
For $i = 1 To $aLines[0]
    GUICtrlCreateListViewItem($aLines[$i], $ListView)
Next

Opt('GUIDataSeparatorChar', $iOldDelimiter)
GUISetState()

Do
Until GUIGetMsg() = -3

GUIDelete()
Exit

[GEOSoft]

Here is my code modified for the extra column. If you compare it with the last you will see the differences

;
#include<ListviewConstants.au3>
Global $aLines
GUICreate("Test GUI")
$hList = GUICtrlCreateListView("Name|IP|Host Name", 10, 10, 200, 100, _
BitOr($GUI_SS_DEFAULT_LISTVIEW, $LVS_SORTASCENDING, $LVS_SINGLESEL))
$aRegEx = StringRegExp(FileRead(@ScriptDir & "\logon.txt"), "(?i)(\w*),(\d.*\d),(\w*)", 3)
$hStart = GUICtrlCreateDummy()
For $i = 0 To Ubound($aRegEx) -3 Step 3
GUICtrlCreateListViewItem($aRegEx[$i] & "|" & $aRegEx[$i+1] & "|" & $aRegex[$i+2], $hList)
Next
$hEnd = GUICtrlCreateDummy()
GUISetState()

While 1
   $msg = GUIGetMsg()
   Switch $Msg
      Case -3
         Exit
      Case $hStart To $hEnd
         $iItem = ControlListView("","",$hList,"GetSelected")
         $sname = ControlListView("","",$hList,"GetText", $iItem, 0)
         $sIP = ControlListView("","",$hList,"GetText", $iItem, 1)
         $sHost = ControlListView("","",$hList,"GetText", $iItem, 2)
         MsgBox(0,"Results","Name:  " & $sName & @CRLF & @CRLF & "IP:  " & $sIP & _
         @CRLF & @CRLF & "Host:  " & $sHost)
   EndSwitch
Wend
;