display file in a gui

[roofninja]

I am having trouble getting a file to be displayed. I want the "afile.txt" to be displayed in the GUICtrlCreateList or something like it. All I get is a single line and not the whole file. I tried GUICtrlCreateView, but didn't have much success. I also, do not remember and the online documentation is not much help, but I will need to strip the file of blank lines extra spaces. I am lost.

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#Include <Array.au3>
#include <Misc.au3>
#Include <File.au3>
if _Singleton("Warning",1) = 0 Then
Msgbox(0,"Warning","An occurence of your program is already running")
Exit
EndIf
Opt('MustDeclareVars', 1)
Global $list[20]
If Not _FileReadToArray("afile.txt",$list) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
_ArrayDisplay($list)
Menu()
Func Menu()
    Local $msg, $parts
    GUICreate("list", 500, 150)
GUICtrlCreateList($list[2],5,1,300,130)
GUISetState()
While 1
  $msg = GUIGetMsg()
  Switch $msg
             Case $GUI_EVENT_CLOSE
                 ExitLoop
  EndSwitch
WEnd
GUIDelete()
EndFunc
Exit

afile.txt

Start of words.

  list of lines.
  set of lines.
  part of lines.
  start of lines.
  group of lines.

[Damein]

You didn't actually add the array to the ListView. You just created the item and added a default item ($list[2])

You need to add the items with a For statement. Here, this will do the trick.

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#Include <Array.au3>
#include <Misc.au3>
#Include <File.au3>
Opt('MustDeclareVars', 1)
Global $list[20], $listbox, $msg, $parts, $StrippedString

If _Singleton("Warning",1) = 0 Then
Msgbox(0,"Warning","An occurence of your program is already running")
Exit
EndIf
If Not _FileReadToArray("afile.txt",$list) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
_ArrayDisplay($list)
Menu()
Func Menu()
    GUICreate("list", 500, 150)
$listbox = GUICtrlCreateList("",5,1,300,130)
For $i = 0 To $list[0]
$StrippedString = StringStripWS($list[$i], BitOr(1,2))
GUICtrlSetData($listbox, $StrippedString)
Next
GUISetState()
EndFunc
While 1
  $msg = GUIGetMsg()
  Switch $msg
             Case $GUI_EVENT_CLOSE
                 Exit
  EndSwitch
WEnd

Notice the For $i = 0 to $list[0]

This statement says to do a loop of whatever you want until you reach the end of the file.

And this: GUICtrlSetData($listbox, $list[$i])

Tell me to populate the ListView with the array, with the $i in the For loop it will count +1 each time, going through the arrays.

Also, I cleaned it up a little to make it easier to read.

Not 100% sure why you had it first ExitLoop on $GUI_EVENT_CLOSE and then Exit the program, so I moved the While out of the Main() func and set the $Msg and $parts vars to global.

Let me know if you have any questions.

Edited November 9, 2011 by Damein

[roofninja]

Thanks, I will try it out when I get back to a windows box. Arrays have always given me problems. Thanks again.

[Damein]

Haha, I have problems with Array's too xD

Let me know how it turns out.

[guinness]

Why don't you just read the wiki page about Arrays?