[求教]如何读取菜单项

[smallarms]

设有个菜单对象m_main，想在程序的脚本中读取m_main的所有菜单项（包括级联的），赋给一个字符串型的数组。

给个详细的例子，请指教！

[smallarms]

多谢各位指点！

[huijiexiao]

我的程序中最多只用到了四级菜单,所以我用了四重循环.如果菜单级别不定的话,可考虑用递归做.
menu lm_a,lm_b,lm_c,lm_d
for i=1 to upperbound(m_mainplat.Item[])
//lm_a.text,可取出菜单项
lm_a=m_mainplat.Item[i]
for j=1 to upperbound(lm_a.Item[])
lm_b=lm_a.Item[j]
.......
next
next

//使用PB+SQL Server写程序已经有七年多光景，注册CSDN帐号也已有几年了，一直在潜水，
//现在冒出来，愿与大家共同进步。水平有限，多多包涵。

[rightyeah]

遍历菜单就是访问menu.item[]数组（配合upperbound函数取数组上界），算法就用遍历树的算法，就可以了，没什么大不了的

[nongly]

提供个参考：递归读取，结果放到一个字符串



$PBExportHeader$f_menu.srf
global type f_menu from function_object
end type

forward prototypes
global subroutine f_menu (menu p_menu, ref string p_ls)
end prototypes

global subroutine f_menu (menu p_menu, ref string p_ls);
int i

FOR i=1 TO upperbound(p_menu.item)
p_ls += p_menu.item[i].text
f_menu(p_menu.item[i],p_ls)
NEXT
p_ls += '~n'

end subroutine