How To Put A Function After If,Then

[Arclite86 1]

I got a function: in the  #Region ### START Koda GUI section ### Form=  the function

#EndRegion ### END Koda GUI section ###

section

If $msg = $message Then MsgBox($MB_SYSTEMMODAL, "Info", "info " )

After the msgbox I would like to give a other big function, is this possible?

[guinness 1,482]

If....Then
    MyFunction()
EndIf

If this doesn't work, then I'm afraid you didn't make yourself clear.

[MikahS 92]

not possible in one line if statements.

Edited November 3, 2014 by MikahS

[Arclite86 1]

yeah its a big script about 40 lines without the Myfunction() its just the script in Myfunction()

do I have to do this in the  While Switch  EndSwitch WEnd and how because I failed at that, Do i need to show the whole script where im talking about?

[guinness 1,482]

yeah its a big script about 40 lines without the Myfunction() its just the script in Myfunction()

do I have to do this in the  While Switch  EndSwitch WEnd and how because I failed at that, Do i need to show the whole script where im talking about?

Maybe wise if you do.

[Arclite86 1]

Ok,

Global $iIndex = 0

#Region ### START Koda GUI section ### Form=
$Form1_1_1_1 = GUICreate("program", 814, 713, 697, 101)
_GUIExtender_Init($Form1_1_1_1)

$List1 = GUICtrlCreateList("", 0, 64, 145, 358)
GUICtrlSetData(-1, "")
$List2 = GUICtrlCreateList("", 144, 64, 65, 358)
GUICtrlSetData(-1, "")
$List3 = GUICtrlCreateList("", 208, 64, 65, 358)
GUICtrlSetData(-1, "")
$List4 = GUICtrlCreateList("", 344, 64, 153, 358)
GUICtrlSetData(-1, "")
$List5 = GUICtrlCreateList("", 496, 64, 65, 358)
GUICtrlSetData(-1, "")
$List6 = GUICtrlCreateList("", 560, 64, 121, 230)
GUICtrlSetData(-1, "")
$List7 = GUICtrlCreateList("", 680, 64, 65, 230)
GUICtrlSetData(-1, "")
$List8 = GUICtrlCreateList("", 744, 64, 65, 230)
GUICtrlSetData(-1, "")
$List9 = GUICtrlCreateList("", 272, 64, 65, 358)
GUICtrlSetData(-1, "")

GUISetState(@SW_SHOW)

Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
    Local $viewmenu, $viewstatusitem
    Local $statuslabel, $msg, $file



    $filemenu = GUICtrlCreateMenu("&File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("?")
    GUICtrlCreateMenuItem("Save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

    GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line

    $viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    $message4 = GUICtrlCreateMenuItem("message", $filemenu)
; here I would like to have a function

If $msg = $message Then MsgBox($MB_SYSTEMMODAL, "Info", " " & $1newfile)

The function:

expandcollapse popup

Local $newfile = StringReplace($file, "Openfile.txt", "")

$1newfile = ($newfile & ("lists\list"))


Global $iIndex = 0, $sListData1 = ($1newfile & ("1"))
Global $sListFile1 = ($1newfile & ("1"))

Global $iIndex = 0, $sListData2 = ($1newfile & ("2"))
Global $sListFile2 = ($1newfile & ("2"))

Global $iIndex = 0, $sListData3 = ($1newfile & ("3"))
Global $sListFile3 = ($1newfile & ("3"))

Global $iIndex = 0, $sListData4 = ($1newfile & ("4"))
Global $sListFile4 = ($1newfile & ("4"))

Global $iIndex = 0, $sListData5 = ($1newfile & ("5"))
Global $sListFile5 = ($1newfile & ("5"))

Global $iIndex = 0, $sListData6 = ($1newfile & ("6"))
Global $sListFile6 = ($1newfile & ("6"))

Global $iIndex = 0, $sListData7 = ($1newfile & ("7"))
Global $sListFile7 = ($1newfile & ("7"))

Global $iIndex = 0, $sListData8 = ($1newfile & ("8"))
Global $sListFile8 = ($1newfile & ("8"))

Global $iIndex = 0, $sListData9 = ($1newfile & ("9"))
Global $sListFile9 = ($1newfile & ("9"))

Global $iIndex = 0, $sListData10 = ($1newfile & ("10"))
Global $sListFile10 = ($1newfile & ("10"))

Global $iIndex = 0, $sListData11 = ($1newfile & ("11"))
Global $sListFile11 = ($1newfile & ("11"))

Global $iIndex = 0, $sListData12 = ($1newfile & ("12"))
Global $sListFile12 = ($1newfile & ("12"))

Global $iIndex = 0, $sListData13 = ($1newfile & ("13"))
Global $sListFile13 = ($1newfile & ("13"))







; Read saved file if it exists--------
If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile2) Then
    $sListData2 = FileRead($sListFile2)
EndIf




; Load data read from the file
GUICtrlSetData($List2, $sListData2)
_GUICtrlListBox_SetCurSel($List2, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile3) Then
    $sListData3 = FileRead($sListFile3)
EndIf




; Load data read from the file
GUICtrlSetData($List3, $sListData3)
_GUICtrlListBox_SetCurSel($List3, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile4) Then
    $sListData4 = FileRead($sListFile4)
EndIf




; Load data read from the file
GUICtrlSetData($List4, $sListData4)
_GUICtrlListBox_SetCurSel($List4, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile5) Then
    $sListData5 = FileRead($sListFile5)
EndIf



; Load data read from the file
GUICtrlSetData($List5, $sListData5)
_GUICtrlListBox_SetCurSel($List5, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile6) Then
    $sListData6 = FileRead($sListFile6)
EndIf

; Load data read from the file
GUICtrlSetData($List6, $sListData6)
_GUICtrlListBox_SetCurSel($List6, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile7) Then
    $sListData7 = FileRead($sListFile7)
EndIf

; Load data read from the file
GUICtrlSetData($List7, $sListData7)
_GUICtrlListBox_SetCurSel($List7, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile8) Then
    $sListData8 = FileRead($sListFile8)
EndIf

; Load data read from the file
GUICtrlSetData($List8, $sListData8)
_GUICtrlListBox_SetCurSel($List8, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile9) Then
    $sListData9 = FileRead($sListFile9)
EndIf

; Load data read from the file
GUICtrlSetData($List9, $sListData9)
_GUICtrlListBox_SetCurSel($List9, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile10) Then
    $sListData10 = FileRead($sListFile10)
EndIf

; Load data read from the file
GUICtrlSetData($money, $sListData10)
_GUICtrlListBox_SetCurSel($money, $sListData10)

How can I activate this function properly

[guinness 1,482]

I will leave it to some expert to help you, as I am royally confused.

[Arclite86 1]

basically I got 9 lists and the function reads from the notepads:  from list1 to list9

I only want a Load and save system for this lists, thats all

Edited November 3, 2014 by Arclite86

[kylomas 414]

In

If $msg = $message Then MsgBox($MB_SYSTEMMODAL, "Info", " " & $1newfile)

How is $msg being populated???

[kylomas 414]

ArcLite86,

This is the same as >this thread...please stick to one thread.  You are not getting help because you are not presenting your need/problem clearly.  The code that you are posting is neither runnable nor logical.

From the code that you posted in this thread I can see that you either did NOT understand my response to your previous post, or, chose to ignore it. 

Regardless, I'll try one more time.

basically I got 9 lists and the function reads from the notepads:  from list1 to list9

I only want a Load and save system for this lists, thats all

 

The following does the above.  If this is not what you intend post back with explicit details.  The TXT files are in the directory that the script is run from.

#include <GUIConstantsEx.au3>
#include <File.au3>
#include <array.au3>

#AutoIt3Wrapper_Add_Constants=n

local $gui010   =   guicreate('')
local $aSize    =   wingetclientsize($gui010)
local $cmb010   =   guictrlcreatecombo('',20,20,300,200)
                    guisetstate()

; populate the combo box with the contents of the array ($aFiles)
local $aFiles = _filelisttoarray(@scriptdir,'*.txt',default,true)
for $1 = 1 to $aFiles[0]
    guictrlsetdata($cmb010,$aFiles[$1])
Next
guictrlsetdata($cmb010,$aFiles[1])  ;   set default entry for the combo box

while 1
    switch guigetmsg()
        case $gui_event_close
            Exit
        case $cmb010
            ;
            ; do whatever you want with the selection from the combo box
            ;
            ConsoleWrite('Contents of file = ' & fileread(guictrlread($cmb010)) & @CRLF)
    EndSwitch
WEnd

Again, I would encourage you to read the Help file.  The code that you posted indicates a lack of understanding of some basics fundamental to the language.

kylomas

edit:spelling

Edited November 3, 2014 by kylomas

[Arclite86 1]

No this is not what I wanted because  when I select one directory it puts the name of the directory in the list instead of the content of the lists

 

Again, I would encourage you to read the Help file.  The code that you posted indicates a lack of understanding of some basics fundamental to the language.

 

I got the whole menu from the help file:

Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
    Local $viewmenu, $viewstatusitem
    Local $statuslabel, $msg, $file



    $filemenu = GUICtrlCreateMenu("&File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("?")
    GUICtrlCreateMenuItem("Save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

    GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line

    $viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    $message4 = GUICtrlCreateMenuItem("message", $filemenu)
; here I would like to have a function

If $msg = $message Then MsgBox($MB_SYSTEMMODAL, "Info", " " & $1newfile)

Why the hell is it so hard to open a text.file for a list??

[Melba23 2,929]

Arclite86,

The problem is not that it is "hard to open a text.file for a list" - the problem is that none of us have the remotest idea of what you are actually trying to do, which makes it very difficult to help you in any sensible way. The code you posted above is little help as it appears completely random, with no interconnectivity, and, for the most part, less than runnable. >

So what is the overall aim of this script - what is it supposed to do? For example, you state:

I got 9 lists and the function reads from the notepads

What "notepads"? Do you mean instances of Windows' Notepad? Edit controls that you have created - but which appear nowhere in your code? Paper notepads on the desks of those who run the script? Can you see why we are confused?

Please take the time to write something which clearly explains the purpose of this script - then we might understand what you want and be able to offer you the help you need. As it is you stand little chance of getting any further replies as there is little point in posting code which may or may not have any bearing on your problem. >

M23

[BrewManNH 1,160]

I'd like to add, post a RUNNABLE script that attempts to show what you want to do, even if it doesn't work completly correctly. Make it as complete as possible, you might actually figure out where you're going wrong in the process, and then we can see what you are trying to do, or at least we all hope so.

[Arclite86 1]

Ok sorry if i wasn't clear:

I would like to have to have an openfile that opens text files and reads the content and put it in a list  this is the code for that

the list:

$List1 = GUICtrlCreateList("", 0, 64, 105, 370, BitOR($WS_BORDER, $WS_VSCROLL))

This is the code for reading the text and put it in the list above 

; Read saved file if it exists--------
If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)

this is give the $slistData1 the directory (bellow)

Global $iIndex = 0, $sListData1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"
Global $sListFile1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"

but this works:

Global $sListFile1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"

but this isn't

Global $iIndex = 0, $sListData1 = ($1newfile & ("1"))
Global $sListFile1 = ($1newfile & ("1"))

my question is why:

The code above is the same directory as the code therefor, but I need the use a variable so I can open different files and not only: "C:Usersjoesoef pcDesktopautoittwitter programmalijstenlist1.txt"

I already know how to find the directory code that I found from the help file:

While 1

        $msg = GUIGetMsg()

        If $msg = $fileitem Then
            $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
            If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
        EndIf
        If $msg = $viewstatusitem Then
            If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
                GUICtrlSetState($statuslabel, $GUI_HIDE)
            Else
                GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
                GUICtrlSetState($statuslabel, $GUI_SHOW)
            EndIf
        EndIf
        If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Then ExitLoop





    Local $newfile = StringReplace($file, "Openfile.txt", "")

$1newfile = ($newfile & ("lists\list"))

; my code


        If $msg = $infoitem Then MsgBox($MB_SYSTEMMODAL, "Info", "Only a test...")
If $msg = $message Then MsgBox($MB_SYSTEMMODAL, "Info", " " & $1newfile)


    WEnd
    GUIDelete()

the code above opens the directry:

C:Usersjoesoef pcDesktopautoittwitter programmalijstenlijsten2weigt lossOpenfile.txt

but it needs to open:

C:Usersjoesoef pcDesktopautoittwitter programmalijstenlijsten2weigt losslists1

C:Usersjoesoef pcDesktopautoittwitter programmalijstenlijsten2weigt losslists2

C:Usersjoesoef pcDesktopautoittwitter programmalijstenlijsten2weigt losslists3

......

C:Usersjoesoef pcDesktopautoittwitter programmalijstenlijsten2weigt losslists9

so when it opens: C:Usersjoesoef pcDesktopautoittwitter programmalijstenlijsten2weigt lossOpenfile.txt

I deleted the "Openfile.txt" with

Local $newfile = StringReplace($file, "Openfile.txt", "")

and than

$1newfile = ($newfile & ("lists\list"))

and than to find the directy

Global $iIndex = 0, $sListData1 = ($1newfile & ("1"))
Global $sListFile1 = ($1newfile & ("1"))

the lists

$List1 = GUICtrlCreateList("", 0, 64, 145, 358)
GUICtrlSetData(-1, "")
$List2 = GUICtrlCreateList("", 144, 64, 65, 358)
GUICtrlSetData(-1, "")
$List3 = GUICtrlCreateList("", 208, 64, 65, 358)
GUICtrlSetData(-1, "")
$List4 = GUICtrlCreateList("", 344, 64, 153, 358)
GUICtrlSetData(-1, "")
$List5 = GUICtrlCreateList("", 496, 64, 65, 358)
GUICtrlSetData(-1, "")
$List6 = GUICtrlCreateList("", 560, 64, 121, 230)
GUICtrlSetData(-1, "")
$List7 = GUICtrlCreateList("", 680, 64, 65, 230)
GUICtrlSetData(-1, "")
$List8 = GUICtrlCreateList("", 744, 64, 65, 230)
GUICtrlSetData(-1, "")
$List9 = GUICtrlCreateList("", 272, 64, 65, 358)
GUICtrlSetData(-1, "")

and than to read and put in the lists

; Read saved file if it exists--------
If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)

I think I explained everyting if there are more question please ask me

[Arclite86 1]

the working script:

expandcollapse popup

$_FF_COM_TRACE = True
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <FF.au3>
#include <staticConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <Excel.au3>
#include <FileConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include "GUIExtender.au3"

Local $oIE
;, BitOR($WS_BORDER, $WS_VSCROLL)

;_FFStart( "https://www.google.nl" )
;WinSetState ( "Google - Mozilla Firefox", "",  @SW_MINIMIZE )








;~ _GUIExtender_Init($Form1_1_1_1)

For $i = 1 To 13
    FileDelete(@ScriptDir & "\list" & $i & ".txt")
    FileWrite(@ScriptDir & "\list" & $i & ".txt", "text " & $i)
Next


#Region ### START Koda GUI section ### Form=
$Form1_1_1_1 = GUICreate("program", 814, 713, 697, 101)
$List1 = GUICtrlCreateList("", 0, 64, 145, 358)
GUICtrlSetData(-1, "")
$List2 = GUICtrlCreateList("", 144, 64, 65, 358)
GUICtrlSetData(-1, "")
$List3 = GUICtrlCreateList("", 208, 64, 65, 358)
GUICtrlSetData(-1, "")
$List4 = GUICtrlCreateList("", 344, 64, 153, 358)
GUICtrlSetData(-1, "")
$List5 = GUICtrlCreateList("", 496, 64, 65, 358)
GUICtrlSetData(-1, "")
$List6 = GUICtrlCreateList("", 560, 64, 121, 230)
GUICtrlSetData(-1, "")
$List7 = GUICtrlCreateList("", 680, 64, 65, 230)
GUICtrlSetData(-1, "")
$List8 = GUICtrlCreateList("", 744, 64, 65, 230)
GUICtrlSetData(-1, "")
$List9 = GUICtrlCreateList("", 272, 64, 65, 358)
GUICtrlSetData(-1, "")

GUISetState(@SW_SHOW)

    Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
    Local $viewmenu, $viewstatusitem
    Local $statuslabel, $msg, $file



    $filemenu = GUICtrlCreateMenu("&File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("?")
    GUICtrlCreateMenuItem("Save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

    GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line

    $viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    $message4 = GUICtrlCreateMenuItem("message", $filemenu)




    GUICtrlSetState(-1, $GUI_FOCUS)




    GUISetState(@SW_SHOW)

; Loop until the user exits.
    While 1

        $msg = GUIGetMsg()

        If $msg = $fileitem Then
            $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
            If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
        EndIf
        If $msg = $viewstatusitem Then
            If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
                GUICtrlSetState($statuslabel, $GUI_HIDE)
            Else
                GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
                GUICtrlSetState($statuslabel, $GUI_SHOW)
            EndIf
        EndIf
        If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Then ExitLoop





    Local $newfile = StringReplace($file, "Openfile.txt", "")

$1newfile = ($newfile & ("lists\list"))


Global $iIndex = 0, $sListData1 = ($1newfile & ("1"))
Global $sListFile1 = ($1newfile & ("1"))

Global $iIndex = 0, $sListData2 = ($1newfile & ("2"))
Global $sListFile2 = ($1newfile & ("2"))

Global $iIndex = 0, $sListData3 = ($1newfile & ("3"))
Global $sListFile3 = ($1newfile & ("3"))

Global $iIndex = 0, $sListData4 = ($1newfile & ("4"))
Global $sListFile4 = ($1newfile & ("4"))

Global $iIndex = 0, $sListData5 = ($1newfile & ("5"))
Global $sListFile5 = ($1newfile & ("5"))

Global $iIndex = 0, $sListData6 = ($1newfile & ("6"))
Global $sListFile6 = ($1newfile & ("6"))

Global $iIndex = 0, $sListData7 = ($1newfile & ("7"))
Global $sListFile7 = ($1newfile & ("7"))

Global $iIndex = 0, $sListData8 = ($1newfile & ("8"))
Global $sListFile8 = ($1newfile & ("8"))

Global $iIndex = 0, $sListData9 = ($1newfile & ("9"))
Global $sListFile9 = ($1newfile & ("9"))

Global $iIndex = 0, $sListData10 = ($1newfile & ("10"))
Global $sListFile10 = ($1newfile & ("10"))

Global $iIndex = 0, $sListData11 = ($1newfile & ("11"))
Global $sListFile11 = ($1newfile & ("11"))

Global $iIndex = 0, $sListData12 = ($1newfile & ("12"))
Global $sListFile12 = ($1newfile & ("12"))

Global $iIndex = 0, $sListData13 = ($1newfile & ("13"))
Global $sListFile13 = ($1newfile & ("13"))







; Read saved file if it exists--------
If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile2) Then
    $sListData2 = FileRead($sListFile2)
EndIf




; Load data read from the file
GUICtrlSetData($List2, $sListData2)
_GUICtrlListBox_SetCurSel($List2, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile3) Then
    $sListData3 = FileRead($sListFile3)
EndIf




; Load data read from the file
GUICtrlSetData($List3, $sListData3)
_GUICtrlListBox_SetCurSel($List3, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile4) Then
    $sListData4 = FileRead($sListFile4)
EndIf




; Load data read from the file
GUICtrlSetData($List4, $sListData4)
_GUICtrlListBox_SetCurSel($List4, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile5) Then
    $sListData5 = FileRead($sListFile5)
EndIf



; Load data read from the file
GUICtrlSetData($List5, $sListData5)
_GUICtrlListBox_SetCurSel($List5, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile6) Then
    $sListData6 = FileRead($sListFile6)
EndIf

; Load data read from the file
GUICtrlSetData($List6, $sListData6)
_GUICtrlListBox_SetCurSel($List6, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile7) Then
    $sListData7 = FileRead($sListFile7)
EndIf

; Load data read from the file
GUICtrlSetData($List7, $sListData7)
_GUICtrlListBox_SetCurSel($List7, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile8) Then
    $sListData8 = FileRead($sListFile8)
EndIf

; Load data read from the file
GUICtrlSetData($List8, $sListData8)
_GUICtrlListBox_SetCurSel($List8, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile9) Then
    $sListData9 = FileRead($sListFile9)
EndIf

; Load data read from the file
GUICtrlSetData($List9, $sListData9)
_GUICtrlListBox_SetCurSel($List9, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile10) Then
    $sListData10 = FileRead($sListFile10)
EndIf





        If $msg = $infoitem Then MsgBox($MB_SYSTEMMODAL, "Info", "Only a test...")



    WEnd
    GUIDelete()

#EndRegion ### END Koda GUI section ###

if you run this I would only reads the directory and sets the name of the directory instead of the content.

this is what the text file is showing (what it needs to show in the lists)

ExtWeightLoss|samomidi|mnt_weightloss|weight__loss|Scoat5|_Zibee_|iWeightLossCom|WeightLossTwins|WeightDietLoss|thegreatmiracle|AWeightLossTea|TLSWeightLoss|weightlossjuice|weightlossbitch|7weightloss7|TLSWeightLoss|losefatnowblog........etc

Edited November 4, 2014 by Arclite86

[Melba23 2,929]

Arclite86,

 

Some light dawns - but not a lot.

First thing - you need to get all the file read code into a separate function:

expandcollapse popup

$_FF_COM_TRACE = True
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
;#include <FF.au3>
#include <staticConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <Excel.au3>
#include <FileConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include "GUIExtender.au3"

Local $oIE
;, BitOR($WS_BORDER, $WS_VSCROLL)

;_FFStart( "https://www.google.nl" )
;WinSetState ( "Google - Mozilla Firefox", "", @SW_MINIMIZE )








;~ _GUIExtender_Init($Form1_1_1_1)

For $i = 1 To 13
FileDelete(@ScriptDir & "\list" & $i & ".txt")
FileWrite(@ScriptDir & "\list" & $i & ".txt", "text " & $i)
Next


#Region ### START Koda GUI section ### Form=
$Form1_1_1_1 = GUICreate("program", 814, 713, 697, 101)
$List1 = GUICtrlCreateList("", 0, 64, 145, 358)
GUICtrlSetData(-1, "")
$List2 = GUICtrlCreateList("", 144, 64, 65, 358)
GUICtrlSetData(-1, "")
$List3 = GUICtrlCreateList("", 208, 64, 65, 358)
GUICtrlSetData(-1, "")
$List4 = GUICtrlCreateList("", 344, 64, 153, 358)
GUICtrlSetData(-1, "")
$List5 = GUICtrlCreateList("", 496, 64, 65, 358)
GUICtrlSetData(-1, "")
$List6 = GUICtrlCreateList("", 560, 64, 121, 230)
GUICtrlSetData(-1, "")
$List7 = GUICtrlCreateList("", 680, 64, 65, 230)
GUICtrlSetData(-1, "")
$List8 = GUICtrlCreateList("", 744, 64, 65, 230)
GUICtrlSetData(-1, "")
$List9 = GUICtrlCreateList("", 272, 64, 65, 358)
GUICtrlSetData(-1, "")

GUISetState(@SW_SHOW)

Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
Local $viewmenu, $viewstatusitem
Local $statuslabel, $msg, $file



$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu("?")
GUICtrlCreateMenuItem("Save", $filemenu)
GUICtrlSetState(-1, $GUI_DISABLE)
$infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
$recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line

$viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
$viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
$message4 = GUICtrlCreateMenuItem("message", $filemenu)




GUICtrlSetState(-1, $GUI_FOCUS)




GUISetState(@SW_SHOW)

; Loop until the user exits.
While 1

$msg = GUIGetMsg()

If $msg = $fileitem Then
ConsoleWrite("Hit" & @CRLF)

$file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
If @error <> 1 Then
GUICtrlCreateMenuItem($file, $recentfilesmenu)
_FillLists($file)
EndIf
EndIf
If $msg = $viewstatusitem Then
If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
GUICtrlSetState($statuslabel, $GUI_HIDE)
Else
GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
GUICtrlSetState($statuslabel, $GUI_SHOW)
EndIf
EndIf
If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Then ExitLoop


If $msg = $infoitem Then MsgBox($MB_SYSTEMMODAL, "Info", "Only a test...")



WEnd
GUIDelete()

#EndRegion ### END Koda GUI section ###

Func _FillLists($file)

Local $newfile = StringReplace($file, "Openfile.txt", "")

$1newfile = ($newfile & ("lists\list"))


Global $iIndex = 0, $sListData1 = ($1newfile & ("1"))
Global $sListFile1 = ($1newfile & ("1"))

Global $iIndex = 0, $sListData2 = ($1newfile & ("2"))
Global $sListFile2 = ($1newfile & ("2"))

Global $iIndex = 0, $sListData3 = ($1newfile & ("3"))
Global $sListFile3 = ($1newfile & ("3"))

Global $iIndex = 0, $sListData4 = ($1newfile & ("4"))
Global $sListFile4 = ($1newfile & ("4"))

Global $iIndex = 0, $sListData5 = ($1newfile & ("5"))
Global $sListFile5 = ($1newfile & ("5"))

Global $iIndex = 0, $sListData6 = ($1newfile & ("6"))
Global $sListFile6 = ($1newfile & ("6"))

Global $iIndex = 0, $sListData7 = ($1newfile & ("7"))
Global $sListFile7 = ($1newfile & ("7"))

Global $iIndex = 0, $sListData8 = ($1newfile & ("8"))
Global $sListFile8 = ($1newfile & ("8"))

Global $iIndex = 0, $sListData9 = ($1newfile & ("9"))
Global $sListFile9 = ($1newfile & ("9"))

Global $iIndex = 0, $sListData10 = ($1newfile & ("10"))
Global $sListFile10 = ($1newfile & ("10"))

Global $iIndex = 0, $sListData11 = ($1newfile & ("11"))
Global $sListFile11 = ($1newfile & ("11"))

Global $iIndex = 0, $sListData12 = ($1newfile & ("12"))
Global $sListFile12 = ($1newfile & ("12"))

Global $iIndex = 0, $sListData13 = ($1newfile & ("13"))
Global $sListFile13 = ($1newfile & ("13"))







; Read saved file if it exists--------
If FileExists($sListFile1) Then
$sListData1 = FileRead($sListFile1)
Else
MsgBox($MB_SYSTEMMODAL, "Error", $sListFile1 & " does not exist") ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile2) Then
$sListData2 = FileRead($sListFile2)
EndIf




; Load data read from the file
GUICtrlSetData($List2, $sListData2)
_GUICtrlListBox_SetCurSel($List2, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile3) Then
$sListData3 = FileRead($sListFile3)
EndIf




; Load data read from the file
GUICtrlSetData($List3, $sListData3)
_GUICtrlListBox_SetCurSel($List3, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile4) Then
$sListData4 = FileRead($sListFile4)
EndIf




; Load data read from the file
GUICtrlSetData($List4, $sListData4)
_GUICtrlListBox_SetCurSel($List4, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile5) Then
$sListData5 = FileRead($sListFile5)
EndIf



; Load data read from the file
GUICtrlSetData($List5, $sListData5)
_GUICtrlListBox_SetCurSel($List5, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile6) Then
$sListData6 = FileRead($sListFile6)
EndIf

; Load data read from the file
GUICtrlSetData($List6, $sListData6)
_GUICtrlListBox_SetCurSel($List6, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile7) Then
$sListData7 = FileRead($sListFile7)
EndIf

; Load data read from the file
GUICtrlSetData($List7, $sListData7)
_GUICtrlListBox_SetCurSel($List7, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile8) Then
$sListData8 = FileRead($sListFile8)
EndIf

; Load data read from the file
GUICtrlSetData($List8, $sListData8)
_GUICtrlListBox_SetCurSel($List8, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile9) Then
$sListData9 = FileRead($sListFile9)
EndIf

; Load data read from the file
GUICtrlSetData($List9, $sListData9)
_GUICtrlListBox_SetCurSel($List9, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile10) Then
$sListData10 = FileRead($sListFile10)
EndIf

EndFunc

Now you only run the code when you select the "Open" menu item and not every pass through the loop.

Next, you get the filename in the lists because that is what you set as the default content:

Global $iIndex = 0, $sListData1 = ($1newfile & ("1")) ; <<<<<<<<<<
Global $sListFile1 = ($1newfile & ("1"))

When you try to read the file, you only reset that default value if the file exists:

; Read saved file if it exists--------
If FileExists($sListFile1) Then
$sListData1 = FileRead($sListFile1) ; Only reset here
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1) ; So if the file does not exist you still have the default (filename) you set earlier
_GUICtrlListBox_SetCurSel($List1, $iIndex)

I suggest you add some errorchecking to see if the file you are trying to open is indeed opened - I suggest something like this:

; Read saved file if it exists--------
If FileExists($sListFile1) Then
$sListData1 = FileRead($sListFile1)
Else
MsgBox($MB_SYSTEMMODAL, "Error", $sListFile1 & " does not exist") ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
EndIf

Now you can tell if you trying to open the correct files and if you succeeded.

Try that and see what you get returned in those message boxes - I think you will find that you are not trying to open the files that you think you are.

M23

[Arclite86 1]

Thank you so much this was the solution:

expandcollapse popup

Global $iIndex = 0, $sListData1 = ($1newfile & ("1.txt"))
Global $sListFile1 = ($1newfile & ("1.txt"))

Global $iIndex = 0, $sListData2 = ($1newfile & ("2.txt"))
Global $sListFile2 = ($1newfile & ("2.txt"))

Global $iIndex = 0, $sListData3 = ($1newfile & ("3.txt"))
Global $sListFile3 = ($1newfile & ("3.txt"))

Global $iIndex = 0, $sListData4 = ($1newfile & ("4.txt"))
Global $sListFile4 = ($1newfile & ("4.txt"))

Global $iIndex = 0, $sListData5 = ($1newfile & ("5.txt"))
Global $sListFile5 = ($1newfile & ("5.txt"))

Global $iIndex = 0, $sListData6 = ($1newfile & ("6.txt"))
Global $sListFile6 = ($1newfile & ("6.txt"))

Global $iIndex = 0, $sListData7 = ($1newfile & ("7.txt"))
Global $sListFile7 = ($1newfile & ("7.txt"))

Global $iIndex = 0, $sListData8 = ($1newfile & ("8.txt"))
Global $sListFile8 = ($1newfile & ("8.txt"))

Global $iIndex = 0, $sListData9 = ($1newfile & ("9.txt"))
Global $sListFile9 = ($1newfile & ("9.txt"))

Global $iIndex = 0, $sListData10 = ($1newfile & ("10.txt"))
Global $sListFile10 = ($1newfile & ("10.txt"))

Global $iIndex = 0, $sListData11 = ($1newfile & ("11.txt"))
Global $sListFile11 = ($1newfile & ("11.txt"))

Global $iIndex = 0, $sListData12 = ($1newfile & ("12.txt"))
Global $sListFile12 = ($1newfile & ("12.txt"))

Global $iIndex = 0, $sListData13 = ($1newfile & ("13.txt"))
Global $sListFile13 = ($1newfile & ("13.txt"))

thank you very much melba  

[Melba23 2,929]

Arclite86,

Delighted that I could help.

M23

[Arclite86 1]

Hi

After trying to start an other function it wont react no more, it seems that it stays in that function (Func _FillLists($file))  how can I solve that?

[TheSaint 1,622]

I suggest you post your full code again, so that it can be seen where this other function is located.