目录文件字符串搜索工具

.支持库 iext

.如果真 (取文本右边 (寻找的目录, 1) ≠ “\”)
寻找的目录 ＝ 寻找的目录 ＋ “\”
.如果真结束
局_文件名 ＝ 寻找文件 (寻找的目录 ＋ 寻找的文件名, )
.判断循环首 (局_文件名 ≠ “”)
状态条1.置文本 (0, “正在搜索:” ＋ 寻找的目录 ＋ 局_文件名)
.判断开始 (寻找字节集 (读入文件 (寻找的目录 ＋ 局_文件名), 到字节集 (编辑框1.内容), ) ≠ -1)
局_索引 ＝ 超级列表框1.插入表项 (-1, 局_文件名, , , , )
超级列表框1.置标题 (局_索引, 1, 寻找的目录)
.默认

.判断结束
处理事件 ()
局_文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
局_子目录 ＝ 寻找文件 (寻找的目录 ＋ “*.*”, #子目录)
.判断循环首 (局_子目录 ≠ “”)
.如果真 (取文本左边 (局_子目录, 1) ≠ “.”)
处理事件 ()
搜索指定字符串 (寻找的目录 ＋ 局_子目录 ＋ “\”, 寻找的文件名)
.如果真结束
局_子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()