分层目录结构文本转换为树型框数据

调试模式下7600项1.7秒分析导入3.8万项50多秒编译后的话会更快，文件内容需要先进行排序，可以借用一些文本编辑工具排序这里只讨论如何建造树。
.计次循环首 (取数组成员数 (一层组), c1) ' 判断一层是否存在相同项目
.如果真 (一层组 [c1].名称 ＝ Ftz [1])
here ＝ 1
here2 ＝ 0
.计次循环首 (取数组成员数 (二层组), c2) ' 判断二层是否存在相同项目
.如果真 (二层组 [c2].名称 ＝ Ftz [2])
here2 ＝ 1
树型框1.加入项目 (二层组 [c2].索引, Ftz [3], , , , , ) ' 存在2层，直接添加3层
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (here2 ＝ 0) ' 没有相同2层，添加2层和3层。并将2层加入判断数组
父项目号 ＝ 树型框1.加入项目 (一层组 [c1].索引, Ftz [2], , , , , )
树型框1.加入项目 (父项目号, Ftz [3], , , , , )
树形项目.名称 ＝ Ftz [2]
树形项目.索引 ＝ 父项目号
加入成员 (二层组, 树形项目)