求个取txt高效例子

feiliu

比如txt里面有10001行数据  每次取100行  怎么不重复高效的取完

南影

moxi520 发表于 2024-6-16 05:05
不知道你要的效果是不是这样？

改成快速文本就更快，之前的要操作组件就慢了。

快速文本.e (1.22 MB, 下载次数: 10)

2024-6-16 06:09 上传

点击文件名下载附件

暮烟疏雨

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
file	整数型
数组	文本型		0
i	整数型

file ＝ 打开文件 (“123.txt”, , )
计次循环首 (10001, i)
加入成员 (数组, 读入一行 (file))
' 乱码的话用换编码转换
如果真 (i ％ 100 ＝ 0)
调试输出 (数组_合并_快速 (数组, “”))
数组清零 (数组)

如果真 (i ＝ 10001 且 10001 ％ 100 ≠ 0)
调试输出 (数组_合并_快速 (数组, “”))

计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 file, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> file ＝ 打开文件 (“123.txt”, , )<br /> <br /> .计次循环首 (10001, i)<br />     加入成员 (数组, 读入一行 (file))<br />     ' 乱码的话用换编码转换<br />     .如果真 (i ％ 100 ＝ 0)<br />         调试输出 (数组_合并_快速 (数组, “”))<br />         数组清零 (数组)<br />     .如果真结束<br /> <br />     .如果真 (i ＝ 10001 且 10001 ％ 100 ≠ 0)<br />         调试输出 (数组_合并_快速 (数组, “”))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

将 123.txt替换成想要的即可
每次调试输出都是取完100行/取余下的

南影

不知道你要的效果是不是这样？
demo.e (296.32 KB, 下载次数: 2)

2024-6-16 05:05 上传

点击文件名下载附件