Create menus from an array Topic is solved

[Ecimeric]

Code: Select all

menuitems.txt
MySubmenu;MenuItemName1;MySubmenu value 1
MySubmenu;MenuItemName2;MySubmenu value 2
;MenuItemName1;MyMenu value 1 ; Retrieves MySubmenu value 2
;MenuItemName2;MyMenu value 2 ; Retrieves MyMenu value 1

Array := []
Loop, Read, menuitems.txt
    Array.Push(StrSplit(A_LoopReadLine, ";"))
for index, element in Array {
    if % element.1 {
        Menu, % element.1, Add, % element.2, Label
        Menu, MyMenu, Add, % element.1, % ":" element.1
    } else
        Menu, MyMenu, Add, % element.2, Label
}
Menu, MyMenu, Show

Label(ItemName, ItemPos) {
    global Array
    MsgBox, % Array[ItemPos].3
    return
}

Why are the wrong values retrieved in MyMenu?

[mikeyww]

Code: Select all

Global Array := [], new := {}
Loop, Read, %A_ScriptDir%\menuitems.txt
    Array.Push(StrSplit(A_LoopReadLine, ";"))
For index, element in Array {
    Menu, % element.1, Add, % element.2, Label
    Menu, MyMenu, Add, % element.1, % ":" element.1
    new[element.2] := element.3
}
Menu, MyMenu, Show

Label(ItemName, ItemPos) {
 MsgBox, % new[ItemName]
}

[Ecimeric]

Thank you; however, I am getting a Menu name too long error.

[mikeyww]

Post your revised script, and the other text file.

[Ecimeric]

Code: Select all

menuitems.txt
MySubmenu;MenuItemName1;MySubmenu value 1
MySubmenu;MenuItemName2;MySubmenu value 2
;MenuItemName1;MyMenu value 1
;MenuItemName2;MyMenu value 2

Global Array := [], new := []
Loop, Read, %A_ScriptDir%\menuitems.txt
    Array.Push(StrSplit(A_LoopReadLine, ";"))
For index, element in Array {
    Menu, % element.1, Add, % element.2, Label
    Menu, MyMenu, Add, % element.1, % ":" element.1
    new[element.2] := element.3
}
Menu, MyMenu, Show

Label(ItemName, ItemPos) {
    MsgBox, % new[ItemName]
    return
}

[mikeyww]

In looking back, I don't think I understand how you want the final menu and submenu to appear when the script is run. Please provide that.

[Ecimeric]

The menus appear as they should; the only issue is that MsgBox should retrieve the right element.3 whether or not menuitems.txt specifies a submenu.

[mikeyww]

OK. I can't do much with this without an example of how the menu should appear, and what the MsgBox should show.

[Ecimeric]

Code: Select all

MySubmenu > select MenuItemName1 > retrieve MySubmenu value 1
MySubmenu > select MenuItemName2 > retrieve MySubmenu value 2
select MenuItemName1 > retrieve MyMenu value 1
select MenuItemName2 > retrieve MyMenu value 2

[mikeyww]

Code: Select all

/* menuitems.txt ---------------------------------------
MySubmenu;SubMenuItemName1;MySubmenu value 1
MySubmenu;SubMenuItemName2;MySubmenu value 2
;MenuItemName1;MyMenu value 1
;MenuItemName2;MyMenu value 2
--------------------------------------------------------
*/
Array := []
Global new := {}
Loop, Read, %A_ScriptDir%\menuitems.txt
    Array.Push(StrSplit(A_LoopReadLine, ";"))
For index, element in Array {
 If (element.1 > "") {
  Menu, % element.1, Add, % element.2, Label
  Menu, MyMenu, Add, % element.1, % ":" element.1
 } Else Menu, MyMenu, Add, % element.2, Label
 new[element.2] := element.3
}
Gosub, F3
F3::Menu, MyMenu, Show

Label(ItemName, ItemPos) {
 MsgBox, % new[ItemName]
}

[Ecimeric]

This is giving me:

Code: Select all

MySubmenu > MenuItemName1 > MyMenu value 1 ; instead of MySubmenu value 1
MySubmenu > MenuItemName2 > MyMenu value 2 ; instead of MySubmenu value 2
MenuItemName1 > MyMenu value 1
MenuItemName2 > MyMenu value 2

[mikeyww]

You must have a different text file. You can upload it here.

[Ecimeric]

Strike that ; thank you for your help, once again!

[nowaw210915]

Code: Select all

/* menuitems.txt ---------------------------------------
MySubmenu;SubMenuItemName1;MySubmenu value 1
MySubmenu;SubMenuItemName2;MySubmenu value 2
;MenuItemName1;MyMenu value 1
;MenuItemName2;MyMenu value 2
--------------------------------------------------------
*/
Array := []
Global new := {}
Loop, Read, %A_ScriptDir%\menuitems.txt
    Array.Push(StrSplit(A_LoopReadLine, ";"))
For index, element in Array {
 If (element.1 > "") {
  Menu, % element.1, Add, % element.2, Label
  Menu, MyMenu, Add, % element.1, % ":" element.1
 } Else Menu, MyMenu, Add, % element.2, Label
 new[element.2] := element.3
}
Gosub, F3
F3::Menu, MyMenu, Show

Label(ItemName, ItemPos) {
 MsgBox, % new[ItemName]
}

Is it possible to create a dropdown menu inside a dropdown menu in a similar way?
Something like:

MySubmenu;SubMenuItemName1;MySubmenu value 1
MySubmenu;SubMenuItemName1;SubSubMenuItemName1;MySubmenu value 3
MySubmenu;SubMenuItemName1;SubSubMenuItemName2;MySubmenu value 4
MySubmenu;SubMenuItemName2;MySubmenu value 2
;MenuItemName1;MyMenu value 1
;MenuItemName2;MyMenu value 2

[mikeyww]

Welcome to this AutoHotkey forum!

I don't see why not. You could learn about StrSplit, and then develop a series of plain-language rules for how to handle the parsed elements. You could then turn those rules into AHK code.

Explained: StrSplit • Menu