易语言大文本分段读写代码分享
平常我们在编写程序的时候需要处理一些大文本数据,一般的文本可以直接读入内存来操作,这样速度快,但是遇到特别大的文本,有时候全部读入内存会造成程序占用运行内存太多,程序运行卡顿,甚至超出易语言32位程序调用内存大小限制造成程序崩溃,今天我来和大家分享一个大文本分段读入的代码,希望能帮助大家。
.版本 2
.子程序 读入子程序, 文本型
.参数 文件号
.局部变量 文件长度, 整数型
.局部变量 总体内容, 文本型
文件长度 = 取文件长度 (文件号)
.判断循环首 (是否在文件尾 (文件号, ) = 假)
处理事件 ()
.判断开始 (文件长度 ≤ 1024)
总体内容 = 到文本 (读入字节集 (文件号, 文件长度))
.判断 (文件长度 - 取读写位置 (文件号) ≥ 1024)
总体内容 = 总体内容 + 到文本 (读入字节集 (文件号, 1024))
.默认
总体内容 = 总体内容 + 到文本 (读入字节集 (文件号, 文件长度 - 取读写位置 (文件号)))
.判断结束
.判断循环尾 ()
关闭文件 (文件号)
返回 (总体内容)