Add Numbers to SubMenu?

[ahklearner]

I am designing a menu with submenus I would like to have each submenu start with an alphabet!

As you can see #3 is coming in all submens, I would like to have alphabets.

In place of ?????, what should i place.

Any help would be appreciated.

Code: Select all

Loop, parse, Clipboard, `n, `r,
{
 	StringLeft, FirstChar, A_LoopField, 1
Loop, 26
	{
	CurrentChar := 64 + A_Index
	CurrentChar := Chr(CurrentChar)
	if FirstChar = %CurrentChar%
	Menu, Submenu%CurrentChar%, Add, %?????%%A_Space%%A_LoopField%, MyMenuHandlerTMP
	
	MyIndex := A_Index+0
	if FirstChar = %MyIndex%
	Menu, Submenu1, Add, %A_LoopField%, MyMenuHandlerTMP
	}
}

[ahklearner]

[hd0202]

This is my suggestion:

Code: Select all

prevchar =
ind = 0
Loop, parse, Clipboard, `n, `r,
{
 	StringLeft, FirstChar, A_LoopField, 1
	if (firstchar <> prevchar and prevchar <> "")
	{
		Menu, Mymenu, Add, %prevchar%%a_space%Submenu, :Submenu%prevchar%
		ind = 0
	}
	if !firstchar
		break
	prevchar := firstchar
	ind++
	CurrentChar := 64 + ind
	CurrentChar := Chr(CurrentChar)
	Menu, Submenu%prevChar%, Add, %currentchar%%A_Space%%A_LoopField%, MyMenuHandlerTMP
}
return

myMenuHandlertmp:
MsgBox You selected %A_ThisMenuItem% in %A_ThisMenu%.
return

Hubert

[ahklearner]

Hi
Whenever the script is executed it is GOOD, but when you assign a key and press it many times the menus are getting loop added?
any fix like resetting menu
thanks in advance.

[ahklearner]

Could you please explain me, what exactly is this line doing:

Code: Select all

if (firstchar <> prevchar and prevchar <> "")

This is my suggestion:

Code: Select all

prevchar =
ind = 0
Loop, parse, Clipboard, `n, `r,
{
 	StringLeft, FirstChar, A_LoopField, 1
	if (firstchar <> prevchar and prevchar <> "")
	{
		Menu, Mymenu, Add, %prevchar%%a_space%Submenu, :Submenu%prevchar%
		ind = 0
	}
	if !firstchar
		break
	prevchar := firstchar
	ind++
	CurrentChar := 64 + ind
	CurrentChar := Chr(CurrentChar)
	Menu, Submenu%prevChar%, Add, %currentchar%%A_Space%%A_LoopField%, MyMenuHandlerTMP
}
return

myMenuHandlertmp:
MsgBox You selected %A_ThisMenuItem% in %A_ThisMenu%.
return

Hubert

[ahklearner]

Hey after spending long hour and adding some log statements ,
I realized you are a true genious hd0202
Really HatsOff to you hd0202
Thanks again for your help, I know this has been confusing!

Could you please explain me, what exactly is this line doing:

Code: Select all

if (firstchar <> prevchar and prevchar <> "")

This is my suggestion:

Code: Select all

prevchar =
ind = 0
Loop, parse, Clipboard, `n, `r,
{
 	StringLeft, FirstChar, A_LoopField, 1
	if (firstchar <> prevchar and prevchar <> "")
	{
		Menu, Mymenu, Add, %prevchar%%a_space%Submenu, :Submenu%prevchar%
		ind = 0
	}
	if !firstchar
		break
	prevchar := firstchar
	ind++
	CurrentChar := 64 + ind
	CurrentChar := Chr(CurrentChar)
	Menu, Submenu%prevChar%, Add, %currentchar%%A_Space%%A_LoopField%, MyMenuHandlerTMP
}
return

myMenuHandlertmp:
MsgBox You selected %A_ThisMenuItem% in %A_ThisMenu%.
return

Hubert

[ahklearner]

Hey sorry to bother you again hd0202!

I have some menus starting from numerals [0-9], I would like them to be added to one SubMenu0
How can I do it your way!

Thanks in advance for your help and support.

[ahklearner]

Hey sorry to bother you again hd0202!

I have some menus starting from numerals [0-9], I would like them to be added to one SubMenu0
How can I do it your way!

Thanks in advance for your help and support.

; ---------------------------------------------; ---------------------------------------------
Hi hd0202,

Is this what you would have suggested.
OR you have something to amaze me

Code: Select all

	if FirstChar in 1,2,3,4,5,6,7,8,9,0
	{
	Menu, Submenu0, Add, %A_LoopField%, MyMenuHandlerTMP
	Menu, MyMenu, Add, 0 Submenu, :Submenu0
	continue
	}

Code: Select all

prevchar =
ind = 0
Loop, parse, Clipboard, `n, `r,
{
 	StringLeft, FirstChar, A_LoopField, 1
; ---------------------------------------------	
	if FirstChar in 1,2,3,4,5,6,7,8,9,0
	{
	Menu, Submenu0, Add, %A_LoopField%, MyMenuHandlerTMP
	Menu, MyMenu, Add, 0 Submenu, :Submenu0
	continue
	}
; ---------------------------------------------

	if (firstchar <> prevchar and prevchar <> "")
	{
		Menu, Mymenu, Add, %prevchar%%a_space%Submenu, :Submenu%prevchar%
		ind = 0
	}
	
	if !firstchar
	break
	prevchar := firstchar
	ind++
	CurrentChar := 64 + ind
	CurrentChar := Chr(CurrentChar)
	
	Menu, Submenu%prevChar%, Add, %currentchar%%A_Space%%A_LoopField%, MyMenuHandlerTMP
}