模糊寻找返回文本所有整行内容

有图有码有真相,功能就不用我说了。
.子程序 模糊寻找文本行, 文本型, , 批量寻找时,返回以换行符分隔的文本
.参数 文件名, 文本型, , 完整的文件路径
.参数 寻找的文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空
.参数 是否批量寻找, 逻辑型, 可空, 真:批量寻找; 假:只返回第一条匹配的行文本.
.局部变量 文件号, 整数型
.局部变量 行文本, 文本型
.局部变量 临时文本, 文本型

文件号 ＝ 打开文件 (文件名, , )
移到文件首 (文件号)
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
临时文本 ＝ 读入一行 (文件号)
.如果真 (寻找文本 (临时文本, 寻找的文本, 0, 是否区分大小写) ≠ -1)
.如果 (是否批量寻找)
行文本 ＝ 行文本 ＋ 临时文本 ＋ #换行符
.否则
行文本 ＝ 临时文本
跳出循环 ()
.如果结束

.如果真结束

.判断循环尾 ()
关闭文件 (文件号)