请教一个树型框数据处理的问题

sosoby

各位老师下午好。之前悬赏的那个树型框项目的问题，几经周折，感觉不太适合我。现在我重新描述一下这个问题，希望各位老师帮帮我：
树形框里有一些数据，它们是有父子关系的。详见“原始数据”，原始数据的缩进层数最多只有2层。即一个父，有若干个子项（或只有父，没有子）。
我需要将原始数据重新写入一个树型框，最终效果见“最终处理完毕的效果”

处理这个问题类似于族谱的排序：我现在有一堆的人物关系，我需要将它处理成树形图，最顶层的为祖先，祖先的子项是祖先的后代，以此类推。。。
这个问题首先需要从原始数据中先找到哪个祖先。这部分我已经实现了。详见附件代码（自己胡乱一通，发现能获得祖先是谁，但是会不会将来数据越界之类还不太清楚0.0）。通过代码我已经知道bom1和bom2是祖先无疑。
后面就需要将原始数据按父子关系写到新树型框中。
举例:bom是祖先，他有abcde五个孩子。a又有aa1、aa2 两个孩子。b是个老光棍。c有cc1、cc2、cc3、cc4四个孩子。以此类推。。。。

下载
资源
0

补充内容 (2024-8-12 14:27):
并不一定用树型框解决这个问题。只是读取出来的原始数据确实是这种带父子关系的。我比较菜不会其他数据结构，就看着树型框能表达清楚这个...

LEOONL

树型框整合 副本.e (6.25 KB, 下载次数: 7)

2024-8-13 00:28 上传

点击文件名下载附件

只用一个树型框

kingtt

问题请教.e (954.58 KB, 下载次数: 4)

2024-8-12 19:34 上传

点击文件名下载附件

真冬

  

子程序名	返回值类型	公开	备 注
子程序_树形框归类
参数名	类 型	参考	可空	数组	备 注
参数_树型框	树型框

变量名	类 型	静态	数组	备 注
局_i1	整数型
局_i2	整数型
局_项目文本	文本型
局_被转移索引	整数型
局_转移到索引	整数型

变量循环首 (参数_树型框.取项目数 () － 1, 0, -1, 局_i1)
局_项目文本 ＝ 参数_树型框.取项目文本 (局_i1)
变量循环首 (局_i1 － 1, 0, -1, 局_i2)
如果真 (局_项目文本 ＝ 参数_树型框.取项目文本 (局_i2))
' 调试输出 (局_项目文本, 局_i1, 参数_树型框.取缩进层次 (局_i1), 局_i2, 参数_树型框.取缩进层次 (局_i2))
判断 (参数_树型框.取缩进层次 (局_i1) ＞ 参数_树型框.取缩进层次 (局_i2))
局_被转移索引 ＝ 局_i2
局_转移到索引 ＝ 局_i1
判断 (参数_树型框.取缩进层次 (局_i1) ＜ 参数_树型框.取缩进层次 (局_i2))
局_被转移索引 ＝ 局_i1
局_转移到索引 ＝ 局_i2


调试输出 (, 参数_树型框.取项目文本 (局_被转移索引), “从”, 局_被转移索引, “转移到”, 局_转移到索引, 参数_树型框.取项目文本 (局_转移到索引))
子程序_树形框项目转移 (参数_树型框, 局_被转移索引, 局_转移到索引)
子程序_树形框归类 (参数_树型框)

变量循环尾 ()
变量循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_树形框项目转移
参数名	类 型	参考	可空	数组	备 注
参数_树型框	树型框
参数_被转移索引	整数型
参数_转移到索引	整数型

变量名	类 型	静态	数组	备 注
局_i3	整数型
局_项目文本组	文本型		0
局_新索引	整数型

判断 (参数_被转移索引 ＞ 参数_转移到索引)  ' 取删插
如果真 (参数_树型框.是否有子项目 (参数_被转移索引))
清除数组 (局_项目文本组)
判断循环首 (参数_树型框.取父项目 (参数_被转移索引 ＋ 1) ＝ 参数_被转移索引)
加入成员 (局_项目文本组, 参数_树型框.取项目文本 (参数_被转移索引 ＋ 1))
参数_树型框.删除项目 (参数_被转移索引 ＋ 1)
判断循环尾 ()
参数_树型框.删除项目 (参数_被转移索引)
计次循环首 (取数组成员数 (局_项目文本组), 局_i3)
局_新索引 ＝ 参数_树型框.加入项目 (参数_转移到索引, 局_项目文本组 [局_i3], , , , , )
如果真 (参数_树型框.是否有子项目 (局_i3))
' 子程序3 (参数_树型框,i3, 新索引)
' 返回 ()

计次循环尾 ()
判断 (参数_被转移索引 ＜ 参数_转移到索引)  ' 取插删
如果真 (参数_树型框.是否有子项目 (参数_被转移索引))
变量循环首 (参数_被转移索引 ＋ 1, 参数_转移到索引, 1, 局_i3)
如果真 (参数_树型框.取父项目 (局_i3) ＝ 参数_被转移索引)
局_新索引 ＝ 参数_树型框.加入项目 (参数_转移到索引, 参数_树型框.取项目文本 (局_i3), , , , , )
如果真 (参数_树型框.是否有子项目 (局_i3))
子程序_树形框项目转移 (参数_树型框, 局_i3, 局_新索引)
返回 ()


变量循环尾 ()
判断循环首 (参数_树型框.取父项目 (参数_被转移索引 ＋ 1) ＝ 参数_被转移索引)
参数_树型框.删除项目 (参数_被转移索引 ＋ 1)
判断循环尾 ()
参数_树型框.删除项目 (参数_被转移索引)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

树型框3.项目 ＝ 树型框2.项目
子程序_树形框归类 (树型框3)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 子程序_树形框归类<br /> .参数 参数_树型框, 树型框<br /> .局部变量 局_i1, 整数型<br /> .局部变量 局_i2, 整数型<br /> .局部变量 局_项目文本, 文本型<br /> .局部变量 局_被转移索引, 整数型<br /> .局部变量 局_转移到索引, 整数型<br /> <br /> .变量循环首 (参数_树型框.取项目数 () － 1, 0, -1, 局_i1)<br />     局_项目文本 ＝ 参数_树型框.取项目文本 (局_i1)<br />     .变量循环首 (局_i1 － 1, 0, -1, 局_i2)<br />         .如果真 (局_项目文本 ＝ 参数_树型框.取项目文本 (局_i2))<br />             ' 调试输出 (局_项目文本, 局_i1, 参数_树型框.取缩进层次 (局_i1), 局_i2, 参数_树型框.取缩进层次 (局_i2))<br />             .判断开始 (参数_树型框.取缩进层次 (局_i1) ＞ 参数_树型框.取缩进层次 (局_i2))<br />                 局_被转移索引 ＝ 局_i2<br />                 局_转移到索引 ＝ 局_i1<br />             .判断 (参数_树型框.取缩进层次 (局_i1) ＜ 参数_树型框.取缩进层次 (局_i2))<br />                 局_被转移索引 ＝ 局_i1<br />                 局_转移到索引 ＝ 局_i2<br />             .默认<br /> <br />             .判断结束<br />             调试输出 (, 参数_树型框.取项目文本 (局_被转移索引), “从”, 局_被转移索引, “转移到”, 局_转移到索引, 参数_树型框.取项目文本 (局_转移到索引))<br />             子程序_树形框项目转移 (参数_树型框, 局_被转移索引, 局_转移到索引)<br />             子程序_树形框归类 (参数_树型框)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> <br /> .子程序 子程序_树形框项目转移<br /> .参数 参数_树型框, 树型框<br /> .参数 参数_被转移索引, 整数型<br /> .参数 参数_转移到索引, 整数型<br /> .局部变量 局_i3, 整数型<br /> .局部变量 局_项目文本组, 文本型, , "0"<br /> .局部变量 局_新索引, 整数型<br /> <br /> .判断开始 (参数_被转移索引 ＞ 参数_转移到索引)  ' 取删插<br />     .如果真 (参数_树型框.是否有子项目 (参数_被转移索引))<br />         清除数组 (局_项目文本组)<br />         .判断循环首 (参数_树型框.取父项目 (参数_被转移索引 ＋ 1) ＝ 参数_被转移索引)<br />             加入成员 (局_项目文本组, 参数_树型框.取项目文本 (参数_被转移索引 ＋ 1))<br />             参数_树型框.删除项目 (参数_被转移索引 ＋ 1)<br />         .判断循环尾 ()<br />     .如果真结束<br />     参数_树型框.删除项目 (参数_被转移索引)<br />     .计次循环首 (取数组成员数 (局_项目文本组), 局_i3)<br />         局_新索引 ＝ 参数_树型框.加入项目 (参数_转移到索引, 局_项目文本组 [局_i3], , , , , )<br />         .如果真 (参数_树型框.是否有子项目 (局_i3))<br />             ' 子程序3 (参数_树型框,i3, 新索引)<br />             ' 返回 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断 (参数_被转移索引 ＜ 参数_转移到索引)  ' 取插删<br />     .如果真 (参数_树型框.是否有子项目 (参数_被转移索引))<br />         .变量循环首 (参数_被转移索引 ＋ 1, 参数_转移到索引, 1, 局_i3)<br />             .如果真 (参数_树型框.取父项目 (局_i3) ＝ 参数_被转移索引)<br />                 局_新索引 ＝ 参数_树型框.加入项目 (参数_转移到索引, 参数_树型框.取项目文本 (局_i3), , , , , )<br />                 .如果真 (参数_树型框.是否有子项目 (局_i3))<br />                     子程序_树形框项目转移 (参数_树型框, 局_i3, 局_新索引)<br />                     返回 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         .判断循环首 (参数_树型框.取父项目 (参数_被转移索引 ＋ 1) ＝ 参数_被转移索引)<br />             参数_树型框.删除项目 (参数_被转移索引 ＋ 1)<br />         .判断循环尾 ()<br />     .如果真结束<br />     参数_树型框.删除项目 (参数_被转移索引)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 树型框3.项目 ＝ 树型框2.项目<br /> 子程序_树形框归类 (树型框3)

sosoby

kingtt 发表于 2024-8-12 19:34

感谢回复。本帖一共三份源码，我测试过了都能实现我想要的功能，只是效率都有点低。貌似最佳答案只能给一个人，所以我给运行效率最高的了。

貌似这个问题不能简单的用树型框去处理，应该使用其他方法来处理数据，最后显示在树型框上。

sosoby

真冬 发表于 2024-8-12 23:14
[e=0]

.版本 2

感谢回复。本帖一共三份源码，我测试过了都能实现我想要的功能，只是效率都有点低。貌似最佳答案只能给一个人，所以我给运行效率最高的了。

貌似这个问题不能简单的用树型框去处理，应该使用其他方法来处理数据，最后显示在树型框上。

sosoby

LEOONL 发表于 2024-8-13 00:28
只用一个树型框

感谢回复，您将被选为最佳答案。我收到了三份源码，看起来只有您的处理效率能稍微高一些。
我的树型框里可能有上百条数据，这个处理起来效率确实不太行。。。
也许应该使用其他方法处理好数据，处理完毕，最后显示在树型框上会更好一些。
之所以读取出来的数据是有父子关系的，是因为它是从CAD文件里读取到的。父对象就是图纸标题栏的名称，子对象是图纸里面明细表的名称。

走一回

你的图上是可以通过文本的左边字符来判断的，但是实际上是不太可能这样的，所以还是要通过某些固定不变的标记或索引值来进行分类及相关联的关系。