from list to text file

[searchresult]

I have tried to get it work but just wont happen. Every time I tried something, I would never get an error, script works fine but the txt file is always empty.

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
#include <GuiList.au3>
#include <date.au3>
#Include <GuiListView.au3>

$Form1 = GUICreate("Form1", 506, 240, 193, 115)
GUISetIcon("logo.ico")
$Button1 = GUICtrlCreateButton("Add", 8, 120, 99, 25, 0)
$Button2 = GUICtrlCreateButton("Remove", 8, 152, 99, 25, 0)
$Pic1 = GUICtrlCreatePic("logo.jpg", 8, 8, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP))
$Button3 = GUICtrlCreateButton("Save", 8, 184, 99, 26, 0)
$List1 = GUICtrlCreateList("", 112, 8, 385, 201)
$MenuItem1 = GUICtrlCreateMenu("&File")
$MenuItem2 = GUICtrlCreateMenuItem("Add", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Remove", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Save", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem4
            Exit
        Case $MenuItem2
            $message = "Hold down Ctrl or Shift to choose multiple files."
            $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4 )
            _GUICtrlListAddItem($List1,$var)
        Case $Button1
            $message = "Hold down Ctrl or Shift to choose multiple files."
            $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4 )
            _GUICtrlListAddItem($List1,$var)
        Case $MenuItem3
            $line =  _GUICtrlListSelectedIndex ($List1)
            _GUICtrlListDeleteItem ( $List1, $line )
        Case $Button2
            $line =  _GUICtrlListSelectedIndex ($List1)
            _GUICtrlListDeleteItem ( $List1, $line )
        Case $MenuItem5
            ;- need code to put items from a list to a text file
        Case $Button3
            ;- need code to put items from a list to a text file
        EndSwitch
WEnd

Here is a code with need code part cause I don't know what to do.

Any ideas???

Edited May 7, 2007 by searchresult

[evilertoaster]

_GUICtrlListGetText () and FileWrite() should be the only 2 function you need to create such a feature. Do you have an attempt at doing this you'd like to post?

[searchresult]

_GUICtrlListGetText () and FileWrite() should be the only 2 function you need to create such a feature. Do you have an attempt at doing this you'd like to post?

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
#include <GuiList.au3>
#include <date.au3>
#Include <GuiListView.au3>

$Form1 = GUICreate("Form1", 506, 240, 193, 115)
GUISetIcon("logo.ico")
$Button1 = GUICtrlCreateButton("Add", 8, 120, 99, 25, 0)
$Button2 = GUICtrlCreateButton("Remove", 8, 152, 99, 25, 0)
$Pic1 = GUICtrlCreatePic("logo.jpg", 8, 8, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP))
$Button3 = GUICtrlCreateButton("Save", 8, 184, 99, 26, 0)
$List1 = GUICtrlCreateList("", 112, 8, 385, 201)
$MenuItem1 = GUICtrlCreateMenu("&File")
$MenuItem2 = GUICtrlCreateMenuItem("Add", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Remove", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Save", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem4
            Exit
        Case $MenuItem2
            $message = "Hold down Ctrl or Shift to choose multiple files."
            $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4 )
            _GUICtrlListAddItem($List1,$var)
        Case $Button1
            $message = "Hold down Ctrl or Shift to choose multiple files."
            $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4 )
            _GUICtrlListAddItem($List1,$var)
        Case $MenuItem3
            $line =  _GUICtrlListSelectedIndex ($List1)
            _GUICtrlListDeleteItem ( $List1, $line )
        Case $Button2
            $line =  _GUICtrlListSelectedIndex ($List1)
            _GUICtrlListDeleteItem ( $List1, $line )
        Case $MenuItem5
            SaveListView($List1, 'C:\listview_data.txt')
        Case $Button3
            ;- need code to put items from a list to a text file
        EndSwitch
WEnd

Func SaveListView($list, $file)
    $data = ''
    For $i = 0 To _GUICtrlListViewGetItemCount($list) - 1
        $data &= _GUICtrlListViewGetItemText($list, $i) & @CRLF
    Next
    $data = StringTrimRight($data,2)
    FileDelete($file)
    FileWrite($file, $data)
EndFunc

I have tried with this also no error works fine but the file is empty.

[evilertoaster]

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
#include <GuiList.au3>
#include <date.au3>
#Include <GuiListView.au3>

$Form1 = GUICreate("Form1", 506, 240, 193, 115)
GUISetIcon("logo.ico")
$Button1 = GUICtrlCreateButton("Add", 8, 120, 99, 25, 0)
$Button2 = GUICtrlCreateButton("Remove", 8, 152, 99, 25, 0)
$Pic1 = GUICtrlCreatePic("logo.jpg", 8, 8, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP))
$Button3 = GUICtrlCreateButton("Save", 8, 184, 99, 26, 0)
$List1 = GUICtrlCreateList("", 112, 8, 385, 201)
$MenuItem1 = GUICtrlCreateMenu("&File")
$MenuItem2 = GUICtrlCreateMenuItem("Add", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Remove", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Save", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem4
            Exit
        Case $MenuItem2
            $message = "Hold down Ctrl or Shift to choose multiple files."
            $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4 )
            _GUICtrlListAddItem($List1,$var)
        Case $Button1
            $message = "Hold down Ctrl or Shift to choose multiple files."
            $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4 )
            _GUICtrlListAddItem($List1,$var)
        Case $MenuItem3
            $line =  _GUICtrlListSelectedIndex ($List1)
            _GUICtrlListDeleteItem ( $List1, $line )
        Case $Button2
            $line =  _GUICtrlListSelectedIndex ($List1)
            _GUICtrlListDeleteItem ( $List1, $line )
        Case $MenuItem5
            SaveListView($List1, 'C:\listview_data.txt')
        Case $Button3
            ;- need code to put items from a list to a text file
        EndSwitch
WEnd

Func SaveListView($list, $file)
    $data = ''
    For $i = 0 To _GUICtrlListGetInfo($list) - 1
        $data &= _GUICtrlListGetText($list, $i) & @CRLF
    Next
    $data = StringTrimRight($data,2)
    FileDelete($file)
    FileWrite($file, $data)
EndFunc

Its a list not a listview

[searchresult]

Its a list not a listview

So what should be the solution?

[xcal]

Here's my (working) version. I also fixed the problem with selecting multiple files.

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
#include <GuiList.au3>
#include <date.au3>
#Include <GuiListView.au3>

$Form1 = GUICreate("Form1", 506, 240, 193, 115)
GUISetIcon("logo.ico")
$Button1 = GUICtrlCreateButton("Add", 8, 120, 99, 25, 0)
$Button2 = GUICtrlCreateButton("Remove", 8, 152, 99, 25, 0)
$Pic1 = GUICtrlCreatePic("logo.jpg", 8, 8, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP))
$Button3 = GUICtrlCreateButton("Save", 8, 184, 99, 26, 0)
$List1 = GUICtrlCreateList("", 112, 8, 385, 201)
$MenuItem1 = GUICtrlCreateMenu("&File")
$MenuItem2 = GUICtrlCreateMenuItem("Add", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Remove", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Save", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem4
            Exit
        Case $MenuItem2
            addtolist()
        Case $Button1
            addtolist()
        Case $MenuItem3
            $line = _GUICtrlListSelectedIndex($List1)
            _GUICtrlListDeleteItem($List1, $line)
        Case $Button2
            $line = _GUICtrlListSelectedIndex($List1)
            _GUICtrlListDeleteItem($List1, $line)
        Case $MenuItem5
            savetofile()
        Case $Button3
            savetofile()
    EndSwitch
WEnd

Func savetofile()
    Local $data = ''
    $fn = FileSaveDialog('Saving to file...', @MyDocumentsDir, 'Text files (*.txt)', 18, 'filename.txt')
    $file = FileOpen($fn, 2)
    For $i = 0 To _GUICtrlListGetInfo($List1)
        $txt = _GUICtrlListGetText($List1, $i)
        If $txt = -1 Then ContinueLoop
        If $data = '' Then
            $data &= $txt
        Else
            $data &= @LF & $txt
        EndIf
    Next
    FileWrite($file, $data)
    FileClose($file)
EndFunc

Func addtolist()
    $message = "Hold down Ctrl or Shift to choose multiple files."
    $var = FileOpenDialog($message, @ProgramFilesDir & "\", "Executable files (*.exe)", 1 + 4)
    If StringInStr($var, '|') Then
        $fod = StringSplit($var, '|')
        For $i = 2 To UBound($fod) - 1
            _GUICtrlListAddItem($List1, $fod[1] & '\' & $fod[$i])
        Next
    Else
        _GUICtrlListAddItem($List1, $var)
    EndIf
EndFunc

edit - woops, stray underscore.

Edited May 7, 2007 by xcal

[evilertoaster]

my post had a workign version. i simply changed the GUICtrlListViewGetItemCount() and _GUICtrlListViewGetItemText() to their list equivalents.

[searchresult]

Here's my (working) version. I also fixed the problem with selecting multiple files.

edit - woops, stray underscore.

Thanks it is working fine but it must be saved without save dialog in a folder where the script is located...

[xcal]

Thanks it is working fine but it must be saved without save dialog in a folder where the script is located...

So simply change $fn to hold the path to your file. Maybe adjust FileOpen's option, depending on what you want, too.

[searchresult]

So simply change $fn to hold the path to your file. Maybe adjust FileOpen's option, depending on what you want, too.

Thanks I will try

[searchresult]

That is working fine but when I open file everything is in the same line. I need it to be saved as in the list

[xcal]

Look at my savetofile() function. Did you leave out the @LF?