多线程 读入大文件 不崩溃的方法

ak360

今天遇到这个问题，在多线程中用【读入文件("y.txt")】命令，读入比较大点的文件到变量中时（文件才400多M），就会显示分配内存失败，然后程序就崩溃了！
这个问题好像只在多线程中才会存在，不太知道是什么原因！被这个问题搞一天了！

所以就写了这个分段读大文件子程序，能解决多线程读大文件崩溃问题，希望对你也有用吧！




如果在多线程内直接读入比较大的文件，程序就崩溃！
不知道是易语言分配内存多少M比较好，我就分100M一段的方式读入到进数组中！

zifeiyu

............

杰西卡技术传媒

看看是什么，支持开源~！感谢分享

麒麟火

好东西 谢谢分享

梦想ol

支持开源~！感谢分享

蜗牛人生

...............

fjgh

#在这里快速回复#        支持开源~！感谢分享

y2j423633

支持开源~！感谢分享

y2j423633

如果在多线程内直接读入比较大的文件，程序就崩溃！

东方优源

  

子程序名	返回值类型	公开	备 注
分段读入大文件			分段方式读入到数组，多线程读取500M以上文件不崩溃
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型				欲打开文件路径
参_分段大小	长整数型				分段大小单位（M）如100M设置为：100
参_字节集数组	字节集				返回到字节集数组变量

变量名	类 型	静态	数组	备 注
局_文件号	整数型
局_文件大小	长整数型
局_分段大小	长整数型
局_字节集	字节集
局_第几段	整数型
局_移动位置	长整数型

局_文件号 ＝ 打开文件 (参_文件路径, 1, )
局_文件大小 ＝ 取文件长度 (局_文件号)
局_分段大小 ＝ 参_分段大小 × 1024 × 1024
如果 (局_文件大小 ＞ 局_分段大小)  ' 大于 ' 参_分段大小 ' M 文件分段读入
局_移动位置 ＝ 0
计次循环首 (局_文件大小 ÷ 局_分段大小 ＋ 1, 局_第几段)
局_字节集 ＝ {  }
移动读写位置 (局_文件号, 局_移动位置, 局_分段大小)
局_字节集 ＝ 读入字节集 (局_文件号, 局_分段大小)
局_移动位置 ＝ 局_移动位置 ＋ 局_分段大小 × 2
如果真 (局_字节集 ≠ {  })
加入成员 (参_字节集数组, 局_字节集)

计次循环尾 ()
局_字节集 ＝ 读入字节集 (局_文件号, 局_文件大小)
如果真 (局_字节集 ≠ {  })
加入成员 (参_字节集数组, 局_字节集)

关闭文件 (局_文件号)
' 调用方法：分段读入大文件 (取运行目录 () ＋ “\大文件.txt”, 100, 字节集数组)

.版本 2<br /> <br /> .子程序 分段读入大文件, , , 分段方式读入到数组，多线程读取500M以上文件不崩溃<br /> .参数 参_文件路径, 文本型, , 欲打开文件路径<br /> .参数 参_分段大小, 长整数型, , 分段大小单位（M）如100M设置为：100 <br /> .参数 参_字节集数组, 字节集, 参考 数组, 返回到字节集数组变量<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 局_文件大小, 长整数型<br /> .局部变量 局_分段大小, 长整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_第几段, 整数型<br /> .局部变量 局_移动位置, 长整数型<br /> <br /> 局_文件号 ＝ 打开文件 (参_文件路径, 1, )<br /> 局_文件大小 ＝ 取文件长度 (局_文件号)<br /> 局_分段大小 ＝ 参_分段大小 × 1024 × 1024<br /> .如果 (局_文件大小 ＞ 局_分段大小)  ' 大于 ' 参_分段大小 ' M 文件分段读入<br />     局_移动位置 ＝ 0<br />     .计次循环首 (局_文件大小 ÷ 局_分段大小 ＋ 1, 局_第几段)<br />         局_字节集 ＝ {  }<br />         移动读写位置 (局_文件号, 局_移动位置, 局_分段大小)<br />         局_字节集 ＝ 读入字节集 (局_文件号, 局_分段大小)<br />         局_移动位置 ＝ 局_移动位置 ＋ 局_分段大小 × 2<br />         .如果真 (局_字节集 ≠ {  })<br />             加入成员 (参_字节集数组, 局_字节集)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .否则<br />     局_字节集 ＝ 读入字节集 (局_文件号, 局_文件大小)<br />     .如果真 (局_字节集 ≠ {  })<br />         加入成员 (参_字节集数组, 局_字节集)<br />     .如果真结束<br /> <br /> .如果结束<br /> 关闭文件 (局_文件号)<br /> ' 调用方法：分段读入大文件 (取运行目录 () ＋ “\大文件.txt”, 100, 字节集数组)

1. 感谢分享，这样子舒服多了。

复制代码