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

文件内容需要先进行排序，可以借用一些文本编辑工具排序，这里只讨论如何建造树。
清除数组 (上一个)
缩进 ＝ 0
tree ＝ { }
文本数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\QGLGDF.log”)), #换行符, )
' 加入成员 (xx, 文本数组) '给数组加量
' 加入成员 (文本数组, xx)
' 加入成员 (xx, 文本数组)
' 加入成员 (文本数组, xx)
' 清除数组 (xx)
成员数 ＝ 取数组成员数 (文本数组)
快速排序2_ (文本数组, 1, 成员数)
输出调试文本 (成员数)
.计次循环首 (成员数, rq)
t ＝ 分割文本 (文本数组 [rq], “\”, )
nn ＝ 取数组成员数 (t)
.如果真 (nn ＞ 取数组成员数 (上一个))
重定义数组 (上一个, 真, nn)
.如果真结束
.计次循环首 (nn, rq1)
.如果真 (文本比较 (上一个 [rq1], t [rq1], 假) ≠ 0 或 rq1 ＝ nn) ' 加上“或”后面的判断就可以不忽略完全重复的项目
缩进 ＝ rq1
上一个 [rq1] ＝ t [rq1]
到树框数据 (tree, t [rq1], 0, 0, 0, 0, 缩进)
x ＝ x ＋ 1
.如果真结束

.计次循环尾 ()
_启动窗口.标题 ＝ 到文本 (rq) ＋ “/” ＋ 到文本 (成员数)
处理事件 ()
.计次循环尾 ()
输出调试文本 (x)
树型框1.项目 ＝ tree