大文件读写模块

.子程序 条件查询, 文本型, 公开, 返回符合某条件的所有行文本
.参数 欲查询文本, 文本型, 可空, 欲查询文本
.参数 起始行, 长整数型, 可空, 默认为文件首
.参数 终止行, 长整数型, 可空, 默认为文件尾
.局部变量 行文本, 文本型
.局部变量 查询结果, 文本型
.局部变量 当前行, 长整数型

.如果真 (是否为空 (起始行))
起始行 ＝ 1
.如果真结束
.如果真 (是否为空 (终止行))
终止行 ＝ 取总行数 ()
.如果真结束
移到文件首 (handle)
.判断循环首 (是否在文件尾 (handle, 真) ＝ 假)
行文本 ＝ 读入一行 (handle)
当前行 ＝ 当前行 ＋ 1
.判断开始 (当前行 ＜ 起始行)
到循环尾 ()
.判断 (当前行 ＞ 终止行)
跳出循环 ()
.判断 (寻找文本 (行文本, 欲查询文本, 1, 真) ＞ 0)
查询结果 ＝ 查询结果 ＋ 到文本 (当前行) ＋ 字符 (9) ＋ 行文本 ＋ #换行符
.默认

.判断结束

.判断循环尾 ()
返回 (查询结果)