ahklearner wrote: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
}