为精易模块的“类_树型框_字节集操作”添加这3个方便函...

生命苦短

1.可以获取某项目索引的子项索引。
2.可以查询项目索引的子项为某一文本的索引。
3.如上图所示，可以解析文本，并自动生成树的项目与子项目。
可以在使用树形框时减少不少麻烦，比如检索某一目录下所有子目录并显示到树形框时，用这个函数可以更加高效的实现，

示例代码在此文件中： 精易模块v9.0.5[Y改].e (3.84 MB, 下载次数: 15)

2021-2-26 21:40 上传

点击文件名下载附件
下载积分: 精币 -2 枚

增加的代码如下：

  

子程序名	返回值类型	公开	备 注
查找子项目_全部	整数型		只查找项目的子项目
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型
查找所有子项目	逻辑型				默认只查找项目的下一层级
查找结果	整数型				提供变量容器，存放找到的项目索引。

变量名	类 型	静态	数组	备 注
起位置	整数型
项目	字节集
索引	整数型
子层次	整数型
临时层次	整数型

重定义数组 (查找结果, 假, 0)
项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))
移到文件首 (类_ID)
判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)
起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)
临时层次 ＝ 取字节集数据 (项目, #整数型, 起位置 ＋ 17)
如果真 (索引 ＝ 项目索引)
子层次 ＝ 临时层次 ＋ 1
如果真 (索引 ＞ 项目索引)
判断 (临时层次 ＝ 子层次)
加入成员 (查找结果, 索引)
判断 (临时层次 ＞ 子层次)
如果真 (查找所有子项目)
加入成员 (查找结果, 索引)

判断 (临时层次 ＜ 子层次)
跳出循环 ()




索引 ＝ 索引 ＋ 1
起位置 ＝ 起位置 ＋ 21
判断循环尾 ()
如果 (取数组成员数 (查找结果) ≠ 0)
返回 (查找结果 [1])
返回 (-1)

子程序名	返回值类型	公开	备 注
查找子项目_文本	整数型		只查找项目的子项目
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型				-1表示顶级项目
项目文本	文本型
查找所有子项目	逻辑型				默认只查找项目的下一层级
查找结果	整数型				提供变量容器，存放找到的项目索引。

变量名	类 型	静态	数组	备 注
起位置	整数型
项目	字节集
索引	整数型
子层次	整数型
临时层次	整数型
目标长度	整数型

重定义数组 (查找结果, 假, 0)
项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))
移到文件首 (类_ID)
目标长度 ＝ 取文本长度 (项目文本)
判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)
起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)
临时层次 ＝ 取字节集数据 (项目, #整数型, 起位置 ＋ 17)
如果真 (项目索引 ＝ -1)
子层次 ＝ 1
如果真 (索引 ＝ 项目索引)
子层次 ＝ 临时层次 ＋ 1
如果真 (索引 ＞ 项目索引)
判断 (临时层次 ＝ 子层次)
如果真 (文本比较 (到文本 (取字节集中间 (项目, 起位置 － 目标长度, 目标长度)), 项目文本, 真) ＝ 0)
加入成员 (查找结果, 索引)

判断 (临时层次 ＞ 子层次)
如果真 (查找所有子项目)
如果真 (文本比较 (到文本 (取字节集中间 (项目, 起位置 － 目标长度, 目标长度)), 项目文本, 真) ＝ 0)
加入成员 (查找结果, 索引)


判断 (临时层次 ＜ 子层次)
跳出循环 ()




索引 ＝ 索引 ＋ 1
起位置 ＝ 起位置 ＋ 21
判断循环尾 ()
如果 (取数组成员数 (查找结果) ≠ 0)
返回 (查找结果 [1])
返回 (-1)

子程序名	返回值类型	公开	备 注
加入项目_EX	整数型		成功返回0,失败，则返回失败时加入的索引
参数名	类 型	参考	可空	数组	备 注
项目文本	文本型
分隔符	文本型				项目文本中的层级分隔符，默认为“\”
图片索引	整数型				可以被省略，如果本参数被省略，所加入项目的图片索引默认为 0 。
选中图片索引	整数型				选中图片索引用于指定项目被选中后所显示的图片，-1 表示与图片索引一致。如果本参数被省略，所加入项目的选中图片索引默认为 -1 。
项目数值	整数型				指定与本项目相关联的数值。如果本参数被省略，所加入项目的项目数值默认为 0 。
是否加粗	逻辑型				可以被省略，如果本参数被省略，所加入项目的项目数值默认为假。
检查框状态	整数型				可以被省略，如果本参数被省略，所加入项目的项目数值默认为 0 。默认情况下，0：未选中，1：选中，2：半选中。

变量名	类 型	静态	数组	备 注
文本组	文本型		0
项目组	整数型		0
加入索引	整数型
前加入索引	整数型
i	整数型

如果真 (是否为空 (选中图片索引))
选中图片索引 ＝ -1
如果真 (是否为空 (分隔符))
分隔符 ＝ “\”

文本组 ＝ 分割文本 (项目文本, 分隔符, )
如果真 (取数组成员数 (文本组) ＞ 0)
加入索引 ＝ -1
计次循环首 (取数组成员数 (文本组), i)
前加入索引 ＝ 加入索引
加入索引 ＝ 查找子项目_文本 (加入索引, 文本组 [i], , )
如果真 (加入索引 ＝ -1)
加入索引 ＝ 加入项目 (前加入索引, 文本组 [i], 图片索引, 选中图片索引, 项目数值, 是否加粗, 检查框状态)
如果真 (加入索引 ＝ -1)
返回 (前加入索引)


计次循环尾 ()
返回 (0)

.版本 2<br /> <br /> .子程序 查找子项目_全部, 整数型, 公开, 只查找项目的子项目<br /> .参数 项目索引, 整数型<br /> .参数 查找所有子项目, 逻辑型, 可空, 默认只查找项目的下一层级<br /> .参数 查找结果, 整数型, 参考 可空 数组, 提供变量容器，存放找到的项目索引。<br /> .局部变量 起位置, 整数型<br /> .局部变量 项目, 字节集<br /> .局部变量 索引, 整数型<br /> .局部变量 子层次, 整数型<br /> .局部变量 临时层次, 整数型<br /> <br /> 重定义数组 (查找结果, 假, 0)<br /> 项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))<br /> 移到文件首 (类_ID)<br /> <br /> .判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)<br />     起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)<br /> <br />     临时层次 ＝ 取字节集数据 (项目, #整数型, 起位置 ＋ 17)<br /> <br />     .如果真 (索引 ＝ 项目索引)<br />         子层次 ＝ 临时层次 ＋ 1<br />     .如果真结束<br />     .如果真 (索引 ＞ 项目索引)<br />         .判断开始 (临时层次 ＝ 子层次)<br />             加入成员 (查找结果, 索引)<br />         .判断 (临时层次 ＞ 子层次)<br />             .如果真 (查找所有子项目)<br />                 加入成员 (查找结果, 索引)<br />             .如果真结束<br /> <br />         .判断 (临时层次 ＜ 子层次)<br />             跳出循环 ()<br />         .默认<br /> <br />         .判断结束<br /> <br />     .如果真结束<br /> <br />     索引 ＝ 索引 ＋ 1<br />     起位置 ＝ 起位置 ＋ 21<br /> .判断循环尾 ()<br /> .如果 (取数组成员数 (查找结果) ≠ 0)<br />     返回 (查找结果 [1])<br /> .否则<br />     返回 (-1)<br /> .如果结束<br /> <br /> <br /> .子程序 查找子项目_文本, 整数型, 公开, 只查找项目的子项目<br /> .参数 项目索引, 整数型, , -1表示顶级项目<br /> .参数 项目文本, 文本型<br /> .参数 查找所有子项目, 逻辑型, 可空, 默认只查找项目的下一层级<br /> .参数 查找结果, 整数型, 参考 可空 数组, 提供变量容器，存放找到的项目索引。<br /> .局部变量 起位置, 整数型<br /> .局部变量 项目, 字节集<br /> .局部变量 索引, 整数型<br /> .局部变量 子层次, 整数型<br /> .局部变量 临时层次, 整数型<br /> .局部变量 目标长度, 整数型<br /> <br /> 重定义数组 (查找结果, 假, 0)<br /> 项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))<br /> 移到文件首 (类_ID)<br /> 目标长度 ＝ 取文本长度 (项目文本)<br /> .判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)<br />     起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)<br /> <br />     临时层次 ＝ 取字节集数据 (项目, #整数型, 起位置 ＋ 17)<br />     .如果真 (项目索引 ＝ -1)<br />         子层次 ＝ 1<br />     .如果真结束<br />     .如果真 (索引 ＝ 项目索引)<br />         子层次 ＝ 临时层次 ＋ 1<br />     .如果真结束<br />     .如果真 (索引 ＞ 项目索引)<br />         .判断开始 (临时层次 ＝ 子层次)<br />             .如果真 (文本比较 (到文本 (取字节集中间 (项目, 起位置 － 目标长度, 目标长度)), 项目文本, 真) ＝ 0)<br />                 加入成员 (查找结果, 索引)<br />             .如果真结束<br /> <br />         .判断 (临时层次 ＞ 子层次)<br />             .如果真 (查找所有子项目)<br />                 .如果真 (文本比较 (到文本 (取字节集中间 (项目, 起位置 － 目标长度, 目标长度)), 项目文本, 真) ＝ 0)<br />                     加入成员 (查找结果, 索引)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .判断 (临时层次 ＜ 子层次)<br />             跳出循环 ()<br />         .默认<br /> <br />         .判断结束<br /> <br />     .如果真结束<br /> <br />     索引 ＝ 索引 ＋ 1<br />     起位置 ＝ 起位置 ＋ 21<br /> .判断循环尾 ()<br /> .如果 (取数组成员数 (查找结果) ≠ 0)<br />     返回 (查找结果 [1])<br /> .否则<br />     返回 (-1)<br /> .如果结束<br /> <br /> <br /> .子程序 加入项目_EX, 整数型, 公开, 成功返回0,失败，则返回失败时加入的索引<br /> .参数 项目文本, 文本型<br /> .参数 分隔符, 文本型, 可空, 项目文本中的层级分隔符，默认为“\”<br /> .参数 图片索引, 整数型, 可空, 可以被省略，如果本参数被省略，所加入项目的图片索引默认为 0 。<br /> .参数 选中图片索引, 整数型, 可空, 选中图片索引用于指定项目被选中后所显示的图片，-1 表示与图片索引一致。如果本参数被省略，所加入项目的选中图片索引默认为 -1 。<br /> .参数 项目数值, 整数型, 可空, 指定与本项目相关联的数值。如果本参数被省略，所加入项目的项目数值默认为 0 。<br /> .参数 是否加粗, 逻辑型, 可空, 可以被省略，如果本参数被省略，所加入项目的项目数值默认为假。<br /> .参数 检查框状态, 整数型, 可空, 可以被省略，如果本参数被省略，所加入项目的项目数值默认为 0 。默认情况下，0：未选中，1：选中，2：半选中。<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 项目组, 整数型, , "0"<br /> .局部变量 加入索引, 整数型<br /> .局部变量 前加入索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (是否为空 (选中图片索引))<br />     选中图片索引 ＝ -1<br /> .如果真结束<br /> .如果真 (是否为空 (分隔符))<br />     分隔符 ＝ “\”<br /> .如果真结束<br /> <br /> 文本组 ＝ 分割文本 (项目文本, 分隔符, )<br /> .如果真 (取数组成员数 (文本组) ＞ 0)<br /> <br />     加入索引 ＝ -1<br /> <br />     .计次循环首 (取数组成员数 (文本组), i)<br />         前加入索引 ＝ 加入索引<br />         加入索引 ＝ 查找子项目_文本 (加入索引, 文本组 <i>, , )<br /> <br />         .如果真 (加入索引 ＝ -1)<br />             加入索引 ＝ 加入项目 (前加入索引, 文本组 <i>, 图片索引, 选中图片索引, 项目数值, 是否加粗, 检查框状态)<br />             .如果真 (加入索引 ＝ -1)<br />                 返回 (前加入索引)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (0)

wsysyb

谢谢分享，

yulefangzong

过来看看

lm88818

666666666666666666

npcwu

66666666666666666666666666666666666666

shuichuan

大厦的反对大师傅士大夫是否士大夫d's

shuichuan

十大大苏打大苏打但是十大

shuichuan

努力升级  差十大大苏打的

shuichuan

十大大苏打撒旦撒大苏打差2发呢

shuichuan

十大大苏打撒旦撒大苏打实打实的阿斯顿阿斯顿阿斯顿