树型框循环读配置项

heiyikeji

694336034

  

子程序名	返回值类型	公开	备 注
结构保存
参数名	类 型	参考	可空	数组	备 注
参数_路径	文本型
参数_树形框	树型框

变量名	类 型	静态	数组	备 注
i	整数型
父项目值	文本型
项目文本	文本型
图片索引	整数型

写到文件 (参数_路径, {  })
计次循环首 (参数_树形框.取项目数 (), i)
父项目值 ＝ 到文本 (参数_树形框.取父项目 (i － 1))
项目文本 ＝ 参数_树形框.取项目文本 (i － 1)
写配置项 (参数_路径, “结构配置”, “项目” ＋ 到文本 (i), 项目文本 ＋ “|” ＋ 父项目值)
计次循环尾 ()
写配置项 (参数_路径, “结构配置”, “保存数量”, 到文本 (参数_树形框.取项目数 ()))

子程序名	返回值类型	公开	备 注
结构读取
参数名	类 型	参考	可空	数组	备 注
参数_路径	文本型
参数_树形框	树型框

变量名	类 型	静态	数组	备 注
i	整数型
局_项目文本	文本型		0
局_项目数	整数型

局_项目数 ＝ 到整数 (读配置项 (参数_路径, “结构配置”, “保存数量”, ))
计次循环首 (局_项目数, i)
局_项目文本 ＝ 分割文本 (读配置项 (参数_路径, “结构配置”, “项目” ＋ 到文本 (i), ), “|”, )
如果 (局_项目文本 [2] ≠ “-1”)
参数_树形框.加入项目 (到整数 (局_项目文本 [2]), 局_项目文本 [1], 1, 4, , , )
参数_树形框.加入项目 (, 局_项目文本 [1], 0, 4, , 真, )

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 结构保存<br /> .参数 参数_路径, 文本型<br /> .参数 参数_树形框, 树型框<br /> .局部变量 i, 整数型<br /> .局部变量 父项目值, 文本型<br /> .局部变量 项目文本, 文本型<br /> .局部变量 图片索引, 整数型<br /> <br /> 写到文件 (参数_路径, {  })<br /> .计次循环首 (参数_树形框.取项目数 (), i)<br />     父项目值 ＝ 到文本 (参数_树形框.取父项目 (i － 1))<br />     项目文本 ＝ 参数_树形框.取项目文本 (i － 1)<br />     写配置项 (参数_路径, “结构配置”, “项目” ＋ 到文本 (i), 项目文本 ＋ “|” ＋ 父项目值)<br /> .计次循环尾 ()<br /> 写配置项 (参数_路径, “结构配置”, “保存数量”, 到文本 (参数_树形框.取项目数 ()))<br /> <br /> <br /> .子程序 结构读取<br /> .参数 参数_路径, 文本型<br /> .参数 参数_树形框, 树型框<br /> .局部变量 i, 整数型<br /> .局部变量 局_项目文本, 文本型, , "0"<br /> .局部变量 局_项目数, 整数型<br /> <br /> 局_项目数 ＝ 到整数 (读配置项 (参数_路径, “结构配置”, “保存数量”, ))<br /> .计次循环首 (局_项目数, i)<br />     局_项目文本 ＝ 分割文本 (读配置项 (参数_路径, “结构配置”, “项目” ＋ 到文本 (i), ), “|”, )<br />     .如果 (局_项目文本 [2] ≠ “-1”)<br />         参数_树形框.加入项目 (到整数 (局_项目文本 [2]), 局_项目文本 [1], 1, 4, , , )<br />     .否则<br />         参数_树形框.加入项目 (, 局_项目文本 [1], 0, 4, , 真, )<br />     .如果结束<br /> <br /> .计次循环尾 ()

望采纳，谢谢

chaoup

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
配置数据	文本型

计次循环首 (10, i)
配置数据 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “测试”, 到文本 (i), )
树型框1.加入项目 (0, 配置数据, , , , , )
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 配置数据, 文本型<br /> <br /> .计次循环首 (10, i)<br />     配置数据 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “测试”, 到文本 (i), )<br />     树型框1.加入项目 (0, 配置数据, , , , , )<br /> .计次循环尾 ()