批量打开文本支持快速搜索

.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
透明标签1提示.标题 ＝ 文件名
文件名 ＝ 寻找文件 (目录 ＋ “*” ＋ “.TXT”, )
.判断循环首 (文件名 ≠ “”)
处理事件 ()
索引 ＝ 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (索引, 0, 目录 ＋ 文件名)
超级列表框1.置标题 (索引, 1, 到文本 (取文件时间 (目录 ＋ 文件名)))
数量 ＝ 数量 ＋ 1
透明标签1数量.标题 ＝ “合计：” ＋ 到文本 (数量) ＋ “个文件”
加入成员 (TXT数组, 目录 ＋ 文件名)
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本右边 (文件名, 1) ≠ “.”)
搜索TXT (目录 ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()