Schaffung eines "openfile"

viper93

Ich habe eine lis ($ Liste1 = GUICtrlCreateList) aus erhält Informationen "C: \ Benutzer \ Desktop \ AutoIt \ programme \ Listen \ list1.txt"
aber ich will $ file menu = GUICtrlCreateMenu automatisch auflisten "C: \ Benutzer \ Desktop \ AutoIt \ programme \ andere Liste \ list1.txt" in einen anderen Ordner
dann öffnet, Kann mir jemand bitte helfen.
dies ist mein Menü

[autoit]

Local $defaultstatus = "Ready", $filemenu, $fileitem
Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
Local $viewmenu, $viewstatusitem, $cancelbutton
Local $statuslabel, $msg, $file

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$createitem = GUICtrlCreateMenuItem("create", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu("info")
$registers = GUICtrlCreateMenu("Register")
$savefile = GUICtrlCreateMenuItem("Save", $filemenu)
$saveas = GUICtrlCreateMenuItem("Save as", $filemenu)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
$infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
$recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1,) ;~ Anzeigen von Dateien in "anderen liste"

[/ autoit]

Ich benutze Google Translate, denn ich kann nicht Deutsch, sondern nur auf Niederländisch zu sprechen, wenn Sie sagen, ot unsicher möchten

**Alina**

Was sollten uns diese "sinnlos" gestalteten Zeilen sagen?
Löschen und bitte richtig posten.

Yjuq

Zitat

[...] Ik gebruik: Google Translate, want ik kan [...]

Okay, dieses gewurschtel da oben versteht doch kein Mensch.

viper93:
I'm very sorry buddy, but I can't understand you.
Can you speak English?

€dit:
Aha, jetzt kann man auch was lesen
Mal schauen :x

**Alina**

das ertse schon verstanden, nur ich lese doch nicht stundenlang etwas, das man auch ordentlich posten kann. SORRY, auch wenn jetzt einige denken: "Zicke", so bin ich halt.

viper93

Oke guys my apologies.

This is what I wanted to say :

Creating Open File.

I have a List that reads the information from note : "C:\User\Desktop\autoit\programma\lists\list1.txt"
the is called "list1" as you can see.
But I also have other lists with different information,("C:\User\Desktop\autoit\programma\Other\August")
so at this moment I manual replace the note "list1" from the August fille in the "Other" map in the "Lists" map
so it will open the other note with the other information

I would like to do this process automticy I already created a menu with a "file" drop down buttons with "Open" and "Create"
with the open I got this:
$findfiles = GUICtrlCreateMenu("Find Files", $filemenu, 1,)
So when you lay your mouse on the "Find files" option a other small menu will pop out
it this second dropdown menu I would like to have all the map names (like map:August) be shown in the second dropdown,
I would like to know how I can do this.

This is my menu:

Local $defaultstatus = "Ready", $filemenu, $fileitem
Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
Local $viewmenu, $viewstatusitem, $cancelbutton
Local $statuslabel, $msg, $file

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$createitem = GUICtrlCreateMenuItem("create", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu("info")
$registers = GUICtrlCreateMenu("Register")
$savefile = GUICtrlCreateMenuItem("Save", $filemenu)
$saveas = GUICtrlCreateMenuItem("Save as", $filemenu)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
$infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
$recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1,) ;~Viewing files from the "other list"

**Alina**

Du verstehst uns auf deutsch? Dann bitte auch versuchen in deutsch zu posten. Nicht alle können hier englisch und es ist ein deutsches Forum. Ich spreche hier auch deutsch und kein dänisch. Das gebietet schon die Höflichkeit, oder irre ich mich da? Ansonsten empfehle ich Dir die englische Seite, aber nicht das Du denkst, ich möchte Dich hier vertreiben, aber da kann Dir dann besser geholfen werden, als wenn wir hier für dich Deinen Text für alle dann übersetzen.
.
Ist nicht böse gemeint, nur ich meine, das man in einer Gemeinschaft versucht gemeinsam eine Sprache zu sprechen und hier ist es nicht nur "AutoIt". Okay?

Englisches Seite: http://www.autoitscript.com

viper93

Sorry alina Im trying to undertand what you are saying but its very hard with Google Translate so I dont really understand you, could you please talk English If that is possible

**Alina**

Sure, here are spoken englsich and Google helps everyone, but you'll have more success on the English side. And please post the script entirely. I see it myself then later.

Lach mich gerade über die Googleübersetzung weg. Mußte die erst einmal suchen, aber zum verstehen sollte die Übersetzung reichen.

**BugFix**

Alina, bitte sei nicht so zickig.
Schließlich wurde der TE von einem User gebeten auf englisch zu posten, jetzt postet er englisch und nun fährst du ihm in die Parade. Der Ärmste ist doch total verwirrt.

@viper93
Alina says, you should post in the AutoItscript.com forum. There is the default language english and so you will get more response.

**Alina**

SORRY

Yjuq

Okey, I think I know what you mean.
You can find the Files with FileFindFirstFile() and FileFindNextFile().
The Files can you add in your Menu with GUICtrlCreateMenuItem() or _GUICtrlMenu_AddMenuItem().

Example:

[autoit]

$sPath = 'C:'
$hSearch = FileFindFirstFile('*.*')

[/autoit][autoit][/autoit][autoit]

$hGUI = GUICreate('')
$idMenu = GUICtrlCreateMenu('Files')
$idOpen = GUICtrlCreateMenu('Open', $idMenu)

[/autoit][autoit][/autoit][autoit]

While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
GUICtrlCreateMenuItem($sFile, $idOpen)
WEnd

[/autoit][autoit][/autoit][autoit]

GUISetState()

[/autoit][autoit][/autoit][autoit]

While GUIGetMsg() <> -3
WEnd

[/autoit]

viper93

Hi Bugfix

I have tryed to ask for help on the autoItscript.com in the past but there response usually takes allong time and there answers are not really helping me out.
so I thought I would ask for help from my neightour country
this looks like way better help forum so if you guys could help I would be happy

This is the rest of my script its a very large script over 40.000 lines so I would take out all the important parts

Code

#Region ### START Koda GUI section ### Form=
$Form1_1_1_1 = GUICreate("program", 814, 713, 697, 101)
Local $defaultstatus = "Ready", $filemenu, $fileitem
    Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
    Local $viewmenu, $viewstatusitem, $cancelbutton
    Local $statuslabel, $msg, $file


$filemenu = GUICtrlCreateMenu("&File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $createitem = GUICtrlCreateMenuItem("create", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("info")
    $registers = GUICtrlCreateMenu("Register")
    $savefile = GUICtrlCreateMenuItem("Save", $filemenu)
    $saveas = GUICtrlCreateMenuItem("Save as", $filemenu)
;~     GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)


GUICtrlCreateMenuItem("", $filemenu, 2) 


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

Alles anzeigen

I actuelly think thats the only importand part

My goal is that I can see all the maps in the "othermap" for example
("C:\User\Desktop\autoit\programma\Other\august")
and when i click on the it automaticly reads the notes that are in the map for the

$List1 = GUICtrlCreateList("", 0, 64, 145, 358)
GUICtrlSetData(-1, "")

because now it only reads the information on start-up
"C:\User\Desktop\autoit\programma\list"

viper93

Thank you Make-Grafi That was exaclty what i want but somehow it opens the wrong map and only shows random note file's
I adjusted the code but i dont know if im doing something wrong:

Code

$sPath = "C:\Users\joesoef pc\Desktop\autoit\programma\lijsten\lijsten2\"
$hSearch = FileFindFirstFile('*.*')


;~ $hGUI = GUICreate('')
;~   $idMenu = GUICtrlCreateMenu('Files')
    $idOpen = GUICtrlCreateMenu('Open34', $filemenu)


While True
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        GUICtrlCreateMenuItem($sFile, $idOpen)
    WEnd


GUISetState()
While GUIGetMsg() <> -3
WEnd

Alles anzeigen

it seems it opens the filles and maps from: C:\Users\joesoef pc\Desktop\autoit\programma

Yjuq

https://www.autoitscript.com/autoit3/docs/f…ndFirstFile.htm

In the first Parameter you can use Wildcards.
With the Wildcard "*.*" find you all files.
If you want text files then must you use *.txt as first parameter for example.
For other files use another file extension.

[autoit]

$sPath = "C:\Users\joesoef pc\Desktop\autoit\programma\lijsten\lijsten2\"
$hSearch = FileFindFirstFile('*.txt') ; I have changed this :x

[/autoit][autoit][/autoit][autoit]

;~ $hGUI = GUICreate('')
;~ $idMenu = GUICtrlCreateMenu('Files')
$idOpen = GUICtrlCreateMenu('Open34', $filemenu)

[/autoit][autoit][/autoit][autoit]

While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
GUICtrlCreateMenuItem($sFile, $idOpen)
WEnd

[/autoit][autoit][/autoit][autoit]

FileClose($hSearch) ; I had forgotten that.

[/autoit][autoit][/autoit][autoit]

GUISetState()
While GUIGetMsg() <> -3
WEnd

[/autoit]

viper93

Alright, is it also possible that it only shows the name of the map in directy like: "C:\Users\joesoef pc\Desktop\autoit\programma\lijsten\lijsten2\"

($sPath = "C:\Users\joesoef pc\Desktop\autoit\programma\lijsten\lijsten2\" inside ma lijsen2 there are 4 maps , map1,map2,map3,map4 inside one of these 4 maps there are s text files: list1,list2... <-- where its al about)

so when i click on one of these map it uses the text for the "GUICtrlCreateList"

Charly2091

Not sure if I get you right, but if I do a look at the function FileOpenDialog could be usefull.
https://www.autoitscript.com/autoit3/docs/f…eOpenDialog.htm

viper93

I think I almost got it but somehow its not working, can somebody take a look at this

Code

$sPath = @desktopdir & '\autoit\twitter programma\lijsten\lijsten2\'
$hSearch = FileFindFirstFile($sPath & '*.*')


local $mFiles = guictrlcreatemenu('&File')


local $List_Start = guictrlcreatedummy() + 1
While True
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        GUICtrlCreateMenuItem($sFile, $mFiles)
WEnd
local $List_End = guictrlcreatedummy() - 1


GUISetState()


local $iMSG
while 1
    $iMSG = guigetmsg()
    switch $iMSG
        case $gui_event_close
            Exit
        case $List_Start to $List_End
            ConsoleWrite('Clicked = ' & guictrlread($iMSG,1) & @CRLF)


$list1 = ("\list1.txt")
$list2 = ("\list2.txt")
$list3 = ("\list3.txt")
$list4 = ("\list4.txt")
$list5 = ("\list5.txt")
$list6 = ("\list6.txt")
$list7 = ("\list7.txt")
$list8 = ("\list8.txt")
$list9 = ("\list9.txt")
$list10 = ("\list10.txt")
$list11 = ("\list11.txt")
$list12 =  ("\list12.txt")
$list13 = ("\list13.txt")
$opgeslagen = @desktopdir & 'C:\Users\joesoef pc\Desktop\autoit\programma\lijsten\lijsten2\'
$laden = guictrlread($iMSG,1) & @CRLF


            MsgBox(1,"file:","" & $opgeslagen & $laden & $list1)


Global $iIndex = 0, $sListData1 = ($opgeslagen & $laden & $list1)
Global $sListFile1 = ($opgeslagen  & $laden & $list1)


Global $iIndex = 0, $sListData2 = ($opgeslagen & $laden & $list2)
Global $sListFile2 = ($opgeslagen & $laden & $list2)


Global $iIndex = 0, $sListData3 = ($opgeslagen & $laden & $list3)
Global $sListFile3 = ($opgeslagen & $laden & $list3)


Global $iIndex = 0, $sListData4 = ($opgeslagen & $laden & $list4)
Global $sListFile4 = ($opgeslagen & $laden & $list4)


Global $iIndex = 0, $sListData5 = ($opgeslagen & $laden & $list5)
Global $sListFile5 = ($opgeslagen & $laden & $list4)


Global $iIndex = 0, $sListData6 = ($opgeslagen & $laden & $list6)
Global $sListFile6 = ($opgeslagen & $laden & $list6)


Global $iIndex = 0, $sListData7 = ($opgeslagen & $laden & $list7)
Global $sListFile7 = ($opgeslagen & $laden & $list7)


Global $iIndex = 0, $sListData8 = ($opgeslagen & $laden & $list8)
Global $sListFile8 = ($opgeslagen & $laden & $list8)


Global $iIndex = 0, $sListData9 = ($opgeslagen & $laden & $list9)
Global $sListFile9 = ($opgeslagen & $laden & $list9)


Global $iIndex = 0, $sListData10 = ($opgeslagen & $laden & $list10)
Global $sListFile10 = ($opgeslagen & $laden & $list10)


Global $iIndex = 0, $sListData11 = ($opgeslagen & $laden & $list11)
Global $sListFile11 = ($opgeslagen & $laden & $list11)


Global $iIndex = 0, $sListData12 = ($opgeslagen & $laden & $list12)
Global $sListFile12 = ($opgeslagen & $laden & $list12)


Global $iIndex = 0, $sListData13 = ($opgeslagen & $laden & $list13)
Global $sListFile13 = ($opgeslagen & $laden & $list13)


If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf


GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)


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


    EndSwitch
wend

Alles anzeigen

in lijst2 there are 4 maps with a list1.txt and a list4.txt

but I dont know why its not working.