txt文本读入问题

suu520

本地读取txt文本 不用导入列表框  数据很大 一行行读取的 有例子吗  一次读取一个 根据线程来 现在用的这个太卡了 取一个要十几分钟

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	类_线程池
文件号	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 取运行目录 () ＋ “\data.txt”
文件号 ＝ 打开文件 (路径, , )
如果真 (文件号 ＝ 0)
调试输出 (“打开失败”)
返回
如果真 (线程池.创建 (1, , , ))
线程池.投递任务 (&读取线程, , )

子程序名	返回值类型	公开	备 注
读取线程			线程内逐行读取避免卡界面

变量名	类 型	静态	数组	备 注
一行	文本型
耗时	整数型

耗时 ＝ 取启动时间 ()
循环判断首 ()
一行 ＝ 读入一行 (文件号)
如果真 (取反 (是否在文件尾 (文件号, 真)))
调试输出 (一行)
系统处理事件 ()
循环判断尾 (是否在文件尾 (文件号, 真) ＝ 假)
耗时 ＝ 取启动时间 () － 耗时
调试输出 (“读完耗时(毫秒)：”, 耗时)
关闭文件 (文件号)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

线程池.销毁 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 类_线程池<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\data.txt”<br /> 文件号 ＝ 打开文件 (路径, , )<br /> .如果真 (文件号 ＝ 0)<br />     调试输出 (“打开失败”)<br />     返回<br /> .如果真结束<br /> .如果真 (线程池.创建 (1, , , ))<br />     线程池.投递任务 (&读取线程, , )<br /> .如果真结束<br /> <br /> .子程序 读取线程, , , 线程内逐行读取避免卡界面<br /> .局部变量 一行, 文本型<br /> .局部变量 耗时, 整数型<br /> <br /> 耗时 ＝ 取启动时间 ()<br /> .循环判断首 ()<br />     一行 ＝ 读入一行 (文件号)<br />     .如果真 (取反 (是否在文件尾 (文件号, 真)))<br />         调试输出 (一行)<br />     .如果真结束<br />     系统处理事件 ()<br /> .循环判断尾 (是否在文件尾 (文件号, 真) ＝ 假)<br /> 耗时 ＝ 取启动时间 () － 耗时<br /> 调试输出 (“读完耗时(毫秒)：”, 耗时)<br /> 关闭文件 (文件号)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> 线程池.销毁 ()

用精易模块


补充内容 (2026-7-15 16:30):
系统处理事件 ()是防止卡死，等循环处理完就好了

suu520

Marvin 发表于 2026-7-14 23:51
[e=1].版本 2
.支持库 spec

也用到鱼刺线程的吗

Marvin

suu520 发表于 2026-7-15 00:03
也用到鱼刺线程的吗

用精易模块就可以了

谷驰先生

启动线程

算法艺术家

.版本 2

.子程序 逐行读取文本, , , 使用打开文件号+寻找字节集方式逐行读取
.参数 文件路径, 文本型
.局部变量 文件号, 整数型
.局部变量 缓冲区, 字节集
.局部变量 换行位置, 整数型
.局部变量 一行内容, 文本型
.局部变量 已读取位置, 整数型
.局部变量 文件总长度, 整数型
.局部变量 剩余长度, 整数型
.局部变量 读取长度, 整数型

文件号 ＝ 打开文件 (文件路径, #读入, )
如果真 (文件号 ＝ 0)
    输出调试文本 ("文件打开失败！")
    返回
如果真结束

' 获取文件总长度
移动读写位置 (文件号, #文件尾, 0)
文件总长度 ＝ 取读写位置 (文件号)
移到文件首 (文件号)

已读取位置 ＝ 0

.判断循环首 (已读取位置 ＜ 文件总长度)
    ' 每次读取一定长度的数据到缓冲区（这里取4096字节）
    剩余长度 ＝ 文件总长度 － 已读取位置
    读取长度 ＝ 选择 (剩余长度 ＞ 4096, 4096, 剩余长度)
    缓冲区 ＝ 读入字节集 (文件号, 读取长度)

    ' 在缓冲区中寻找换行符 {13,10}
    换行位置 ＝ 寻找字节集 (缓冲区, { 13, 10 }, )

    .判断循环首 (换行位置 ≠ -1)
        ' 截取从缓冲区开头到换行符之前的内容，作为一行
        一行内容 ＝ 到文本 (取字节集左边 (缓冲区, 换行位置 － 1))
        输出调试文本 (一行内容)  ' 这里可以替换为你的处理逻辑

        ' 更新已读取位置（加上这一行的长度和换行符的2个字节）
        已读取位置 ＝ 已读取位置 ＋ 换行位置 ＋ 1  ' 换行位置是{13}的位置，+1跳过{13,10}

        ' 移动文件读写位置到下一行开头
        移动读写位置 (文件号, #文件首, 已读取位置)

        ' 重新读取缓冲区
        剩余长度 ＝ 文件总长度 － 已读取位置
        如果真 (剩余长度 ≤ 0)
            跳出循环 ()
        如果真结束
        读取长度 ＝ 选择 (剩余长度 ＞ 4096, 4096, 剩余长度)
        缓冲区 ＝ 读入字节集 (文件号, 读取长度)
        换行位置 ＝ 寻找字节集 (缓冲区, { 13, 10 }, )
    .判断循环尾 ()

    ' 如果缓冲区中没有找到换行符，说明已到文件末尾或剩余内容不足一行
    .如果真 (换行位置 ＝ -1 且 取字节集长度 (缓冲区) ＞ 0)
        ' 处理最后一行（没有换行符结尾的内容）
        一行内容 ＝ 到文本 (缓冲区)
        输出调试文本 (一行内容)
        已读取位置 ＝ 文件总长度
    .如果真结束

.判断循环尾 ()

关闭文件 (文件号)

我很低调

一行一行读.e (2.63 KB, 下载次数: 0)

昨天 08:46 上传

点击文件名下载附件 是这样吗？

我的yyy123

学习学习