Формирование меню из переменных

[r35p3ct]

Помогите корректно сформировать меню, что типа этого:

global $m=TrayCreateMenu("+")
$y1=TrayCreateItem("Подменю1",men('A'),$m)
$y2=TrayCreateItem("Подменю2",men('B'),$m)
$y3=TrayCreateItem("Подменю3",men('B'),$m)

func men($men)
	$men=TrayCreateMenu($men,$menu)
	Return $men
EndFunc

Создается 2 меню "B",а нужно чтобы было одно:

+ >A >Подменю1
+ >B >Подменю2 и Подменю3

Соотв. переменные "A" и "B" считываются из файла и заранее не известны.

 

[snoitaleR]

Я немного по-другому...
Но что-то получилось...

; НАЧАЛО

$m=TrayCreateMenu("+")
$x11=TrayCreateMenu("A",$m)
$x12=TrayCreateMenu("B",$m)
$x21=TrayCreateMenu("Подменю1",$x11)
$x22=TrayCreateItem("Подменю2",$x12)
$x=TrayCreateItem("Подменю3",$x21)

while true
sleep(100)
wend

; КОНЕЦ

А названия пунктов "Подменю1", "Подменю2", "Подменю3" тоже не известны?

 

[r35p3ct]

snoitaleR [?]

А названия пунктов "Подменю1", "Подменю2", "Подменю3" тоже не известны?

нет, из файла считывает порядка 30 строк формата:

Подменю1>А>Необязательный парметр
Подменю2>B>Необязательный парметр
Подменю3>B>Необязательный парметр
и т. д.

дальше регэкспом разбивается на переменные, пункты подменю вручную я могу сам рассортировать в "А" или "B", а хочется чтобы это происходило автоматом в зависимости от состава строки

 

[gregaz]

Вот приблизительно так :

Opt("TrayMenuMode",1) 
Global $a
$hMenu   = TrayCreateMenu("+")
$a=men('A')
$b=men('B')
$exititem       = TrayCreateItem("Exit")

TraySetState()

While 1
    $msg = TrayGetMsg()
   Select
		Case $msg = $a
            Msgbox(64,"","Нажато меню A")
        Case $msg = $b
            Msgbox(64,"","Нажато подменю B")
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd

func men($men)
    If $a<>0 Then 
		$e=TrayCreateMenu($men,$hMenu)
		$d=TrayCreateItem($men,$e)
	Else
		$d=TrayCreateItem($men,$hMenu)
	EndIf
	Return $d
EndFunc

 

[snoitaleR]

Вот вариант считывания меню из INI-файла:

; НАЧАЛО

 $INIFILE="2.txt"

 $ANAME=IniReadSectionNames($INIFILE)

 For $CNAME=1 To UBound($ANAME)-1

  $AMENU=IniReadSection($INIFILE,$ANAME[$CNAME])

  For $COUNTER=1 To UBound($AMENU)-1
   if StringLeft($AMENU[$COUNTER][0],1)="m" then
    if $ANAME[$CNAME]="Menu" then
     Assign($AMENU[$COUNTER][0],TrayCreateMenu($AMENU[$COUNTER][1]))
    else
     Assign($AMENU[$COUNTER][0],TrayCreateMenu($AMENU[$COUNTER][1],Eval($ANAME[$CNAME])))
    endif
   elseif StringLeft($AMENU[$COUNTER][0],1)="p" then
    if $ANAME[$CNAME]="Menu" then
     Assign($AMENU[$COUNTER][0],TrayCreateMenu($AMENU[$COUNTER][1]))
    else
     Assign($AMENU[$COUNTER][0],TrayCreateItem($AMENU[$COUNTER][1],Eval($ANAME[$CNAME])))
    endif
   endif
  Next

 Next

 while true
  sleep(100)
 wend

; КОНЕЦ

Содержимое файла 2.txt

[Menu]
m1=Menu1
m2=Menu2
m3=Menu3

[m1]
m11=Меню11
p12=Пункт12

[m2]
m21=Меню12
p22=Пункт22

 

[r35p3ct]

т.к. Пункты меню известны (в данный момент), то задачу решил так:

$menu=TrayCreateMenu("+")
$m1=TrayCreateMenu("CPE",$menu)
$m2=TrayCreateMenu("Другое",$menu)
func men($pmen,$men)
	Select
	Case $men='CPE'
		Return  TrayCreateItem($pmen,$m1,$men)
	Case $men='Другое'
		Return  TrayCreateItem($pmen,$m2,$men)
	EndSelect	
EndFunc

men('Подменю2','CPE')
men('Подменю1','CPE')
men('Подменю3','Другое')

snoitaleR, спасибо за вариант.