修复黑月编译的【读入一行()】问题！

hmyroot

最近在写Hosts文件修改程序遇到一个黑月编译的BUG，在易语言里调试运行没有任何问题，但用黑月编译就无法读入每一行，这种BUG有点坑因为没有任何错误提示，黑月编译的时候其实是将易语言的所有命令转为黑月自己的命令再编译，所以遇到这种错误非常麻烦。既然这个命令用不了但问题总得要解决，然后花了一个下午的研究终于搞掂这个BUG了，完美模仿易语言的读入一行()。黑月编译程序不知道还有没有大佬维护？@邓学彬 @被封七号
修复黑月读入一行()BUG.7z (61.4 KB, 下载次数: 12)

2021-2-7 18:13 上传

点击文件名下载附件
下载积分: 精币 -2 枚

黑月编译后无法读入每一行，原因在处理换行符的时候出错


易语言自带的可以读入每一行


完美模仿易语言的读入一行()

  

子程序名	返回值类型	公开	备 注
读入一行_黑月专版	字节集		本命令用作从文件中当前读写位置读取并返回一行文本数据，如果读入失败将返回空字节集并且自动将当前文件读写位置移到文件尾部
参数名	类 型	参考	可空	数组	备 注
文件号	整数型				该文件号由“打开文件”命令所返回的整数
抛弃换行符	逻辑型				如果为真，行末的回车符及换行符将被抛弃{13,10}

变量名	类 型	静态	数组	备 注
文件字节集	字节集
记录位置	整数型		2
换行处理	字节集

记录位置 [1] ＝ 取读写位置 (文件号)
如果真 (记录位置 [1] ＝ -1)
移到文件尾 (文件号)
返回 ({  })
文件字节集 ＝ 读入字节集 (文件号, 取文件长度 (文件号) － 记录位置 [1])
' 调试输出 (文件字节集)
记录位置 [2] ＝ 寻找字节集 (文件字节集, { 13, 10 }, 1)
如果真 (记录位置 [2] ＝ -1)
记录位置 [2] ＝ 记录位置 [1]
移动读写位置 (文件号, 1, 记录位置 [1])
换行处理 ＝ 读入字节集 (文件号, 记录位置 [2] + 1)
' 调试输出 (取读写位置 (文件号))
如果真 (抛弃换行符)
换行处理 ＝ 取字节集左边 (换行处理, 取字节集长度 (换行处理) － 2)
返回 (换行处理)

.版本 2<br /> <br /> .子程序 读入一行_黑月专版, 字节集, 公开, 本命令用作从文件中当前读写位置读取并返回一行文本数据，如果读入失败将返回空字节集并且自动将当前文件读写位置移到文件尾部<br /> .参数 文件号, 整数型, , 该文件号由“打开文件”命令所返回的整数<br /> .参数 抛弃换行符, 逻辑型, 可空, 如果为真，行末的回车符及换行符将被抛弃{13,10}<br /> .局部变量 文件字节集, 字节集<br /> .局部变量 记录位置, 整数型, , "2"<br /> .局部变量 换行处理, 字节集<br /> <br /> 记录位置 [1] ＝ 取读写位置 (文件号)<br /> .如果真 (记录位置 [1] ＝ -1)<br />     移到文件尾 (文件号)<br />     返回 ({  })<br /> .如果真结束<br /> 文件字节集 ＝ 读入字节集 (文件号, 取文件长度 (文件号) － 记录位置 [1])<br /> ' 调试输出 (文件字节集)<br /> 记录位置 [2] ＝ 寻找字节集 (文件字节集, { 13, 10 }, 1)<br /> .如果真 (记录位置 [2] ＝ -1)<br />     记录位置 [2] ＝ 记录位置 [1]<br /> .如果真结束<br /> 移动读写位置 (文件号, 1, 记录位置 [1])<br /> 换行处理 ＝ 读入字节集 (文件号, 记录位置 [2] + 1)<br /> ' 调试输出 (取读写位置 (文件号))<br /> .如果真 (抛弃换行符)<br />     换行处理 ＝ 取字节集左边 (换行处理, 取字节集长度 (换行处理) － 2)<br /> .如果真结束<br /> 返回 (换行处理)

hmyroot

最新_修复删除换行符问题

  

子程序名	返回值类型	公开	备 注
读入一行_黑月专版	字节集		本命令用作从文件中当前读写位置读取并返回一行文本数据，如果读入失败将返回空字节集并且自动将当前文件读写位置移到文件尾部
参数名	类 型	参考	可空	数组	备 注
文件号	整数型				该文件号由“打开文件”命令所返回的整数
抛弃换行符	逻辑型				如果为真，行末的回车符及换行符将被抛弃{13,10}

变量名	类 型	静态	数组	备 注
文件字节集	字节集
记录位置	整数型		2
换行处理	字节集

记录位置 [1] ＝ 取读写位置 (文件号)
如果真 (记录位置 [1] ＝ -1)
移到文件尾 (文件号)
返回 ({  })
文件字节集 ＝ 读入字节集 (文件号, 取文件长度 (文件号) － 记录位置 [1])
' 调试输出 (到文本 (文件字节集))
记录位置 [2] ＝ 寻找字节集 (文件字节集, { 13, 10 }, 1)
如果真 (记录位置 [2] ＝ -1)
记录位置 [2] ＝ 记录位置 [1]
移动读写位置 (文件号, 1, 记录位置 [1])
换行处理 ＝ 读入字节集 (文件号, 记录位置 [2] ＋ 1)
' 调试输出 (取读写位置 (文件号))
调试输出 (换行处理)
如果真 (抛弃换行符)
如果真 (倒找字节集 (换行处理, { 13, 10 }, ) ≠ -1)
换行处理 ＝ 取字节集左边 (换行处理, 取字节集长度 (换行处理) － 2)

返回 (换行处理)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 读入一行_黑月专版, 字节集, , 本命令用作从文件中当前读写位置读取并返回一行文本数据，如果读入失败将返回空字节集并且自动将当前文件读写位置移到文件尾部<br /> .参数 文件号, 整数型, , 该文件号由“打开文件”命令所返回的整数<br /> .参数 抛弃换行符, 逻辑型, 可空, 如果为真，行末的回车符及换行符将被抛弃{13,10}<br /> .局部变量 文件字节集, 字节集<br /> .局部变量 记录位置, 整数型, , "2"<br /> .局部变量 换行处理, 字节集<br /> <br /> 记录位置 [1] ＝ 取读写位置 (文件号)<br /> .如果真 (记录位置 [1] ＝ -1)<br />     移到文件尾 (文件号)<br />     返回 ({  })<br /> .如果真结束<br /> 文件字节集 ＝ 读入字节集 (文件号, 取文件长度 (文件号) － 记录位置 [1])<br /> ' 调试输出 (到文本 (文件字节集))<br /> 记录位置 [2] ＝ 寻找字节集 (文件字节集, { 13, 10 }, 1)<br /> .如果真 (记录位置 [2] ＝ -1)<br />     记录位置 [2] ＝ 记录位置 [1]<br /> .如果真结束<br /> 移动读写位置 (文件号, 1, 记录位置 [1])<br /> 换行处理 ＝ 读入字节集 (文件号, 记录位置 [2] ＋ 1)<br /> ' 调试输出 (取读写位置 (文件号))<br /> 调试输出 (换行处理)<br /> .如果真 (抛弃换行符)<br />     .如果真 (倒找字节集 (换行处理, { 13, 10 }, ) ≠ -1)<br />         换行处理 ＝ 取字节集左边 (换行处理, 取字节集长度 (换行处理) － 2)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (换行处理)

凌哥

同时支持 \r\n, \n\r, \r, \n 四种格式+高性能

  

子程序名	返回值类型	公开	备 注
L_文件读写_读入一行	文本型		从文件中当前读写位置读取并返回一行文本数据，自动判断换行符格式，支持各种换行符格式
参数名	类 型	参考	可空	数组	备 注
文件句柄	整数型
读入缓冲区长度	整数型				单位:字节; 默认为128; 根据你每一行数据大概多长来设置的话能够提升性能
返回_换行符格式	文本型				返回识别到的换行符格式

变量名	类 型	静态	数组	备 注
局_缓冲区	字节集
局_当前缓冲区长度	整数型
局_当前缓冲区指针	整数型
局_当前字节	字节型
局_下一个字节	字节型
局_偏移	整数型
局_读到文件尾	逻辑型
局_当前行	字节集
i	整数型
i2	整数型

如果真 (读入缓冲区长度 ≤ 0)
读入缓冲区长度 ＝ 128
循环判断首 ()
局_缓冲区 ＝ L_文件读写_读入字节集 (文件句柄, 读入缓冲区长度)  ' 每次读64字节
局_当前缓冲区长度 ＝ L_字节集_取长度 (局_缓冲区)
如果真 (局_当前缓冲区长度 ＝ 0)
返回 (取字节集数据 (局_当前行, #文本型, ))
如果真 (局_当前缓冲区长度 ≠ 读入缓冲区长度)
局_读到文件尾 ＝ 真
局_当前缓冲区指针 ＝ L_指针_取字节集指针 (局_缓冲区)
计次循环首 (局_当前缓冲区长度, i)
局_当前字节 ＝ L_指针_到字节型 (局_当前缓冲区指针 ＋ i － 1)
如果真 (局_当前字节 ＝ 10 或 局_当前字节 ＝ 13)
局_当前行 ＝ 局_当前行 ＋ 指针到字节集 (局_当前缓冲区指针, i － 1)
如果 (i ＝ 局_当前缓冲区长度)
局_下一个字节 ＝ 取字节集数据 (L_文件读写_读入字节集 (文件句柄, 1), #字节型, )
如果真 (局_下一个字节 ≠ 0)
' 如果下一个字节不是10或13 读写位置就退回一位
局_偏移 ＝ 0
如果 (局_当前字节 ＝ 10)
如果真 (局_下一个字节 ≠ 13)
局_偏移 ＝ 1

如果真 (局_下一个字节 ≠ 10)
局_偏移 ＝ 1

L_文件读写_移动读写位置 (文件句柄, －局_偏移, 1)  ' 退回多读取的数据

局_下一个字节 ＝ L_指针_到字节型 (局_当前缓冲区指针 ＋ i)
' 如果下一个字节是10或者13 读写位置退回时额外前进一位
局_偏移 ＝ 0
如果 (局_当前字节 ＝ 10)
如果真 (局_下一个字节 ＝ 13)
局_偏移 ＝ 1

如果真 (局_下一个字节 ＝ 10)
局_偏移 ＝ 1

L_文件读写_移动读写位置 (文件句柄, i － 局_当前缓冲区长度 ＋ 局_偏移, 1)  ' 退回多读取的数据

如果 (局_当前字节 ＝ 10)
如果 (局_下一个字节 ＝ 13)
返回_换行符格式 ＝ 字符 (10) ＋ 字符 (13)
返回_换行符格式 ＝ 字符 (10)

如果 (局_下一个字节 ＝ 10)
返回_换行符格式 ＝ 字符 (13) ＋ 字符 (10)
返回_换行符格式 ＝ 字符 (13)


' 调试输出 (局_当前行, i － 局_当前缓冲区长度)
返回 (取字节集数据 (局_当前行, #文本型, ))

计次循环尾 ()
局_当前行 ＝ 局_当前行 ＋ 局_缓冲区
如果真 (L_文件读写_是否在文件尾 (文件句柄))
返回 (取字节集数据 (局_当前行, #文本型, ))

循环判断尾 (文件句柄 ≠ 0)
返回 (“”)

.版本 2<br /> <br /> .子程序 L_文件读写_读入一行, 文本型, 公开, 从文件中当前读写位置读取并返回一行文本数据，自动判断换行符格式，支持各种换行符格式<br /> .参数 文件句柄, 整数型<br /> .参数 读入缓冲区长度, 整数型, 可空, 单位:字节; 默认为128; 根据你每一行数据大概多长来设置的话能够提升性能<br /> .参数 返回_换行符格式, 文本型, 参考 可空, 返回识别到的换行符格式<br /> .局部变量 局_缓冲区, 字节集<br /> .局部变量 局_当前缓冲区长度, 整数型<br /> .局部变量 局_当前缓冲区指针, 整数型<br /> .局部变量 局_当前字节, 字节型<br /> .局部变量 局_下一个字节, 字节型<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_读到文件尾, 逻辑型<br /> .局部变量 局_当前行, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> <br /> .如果真 (读入缓冲区长度 ≤ 0)<br />     读入缓冲区长度 ＝ 128<br /> .如果真结束<br /> .循环判断首 ()<br />     局_缓冲区 ＝ L_文件读写_读入字节集 (文件句柄, 读入缓冲区长度)  ' 每次读64字节<br />     局_当前缓冲区长度 ＝ L_字节集_取长度 (局_缓冲区)<br />     .如果真 (局_当前缓冲区长度 ＝ 0)<br />         返回 (取字节集数据 (局_当前行, #文本型, ))<br />     .如果真结束<br />     .如果真 (局_当前缓冲区长度 ≠ 读入缓冲区长度)<br />         局_读到文件尾 ＝ 真<br />     .如果真结束<br />     局_当前缓冲区指针 ＝ L_指针_取字节集指针 (局_缓冲区)<br />     .计次循环首 (局_当前缓冲区长度, i)<br />         局_当前字节 ＝ L_指针_到字节型 (局_当前缓冲区指针 ＋ i － 1)<br /> <br />         .如果真 (局_当前字节 ＝ 10 或 局_当前字节 ＝ 13)<br />             局_当前行 ＝ 局_当前行 ＋ 指针到字节集 (局_当前缓冲区指针, i － 1)<br />             .如果 (i ＝ 局_当前缓冲区长度)<br />                 局_下一个字节 ＝ 取字节集数据 (L_文件读写_读入字节集 (文件句柄, 1), #字节型, )<br />                 .如果真 (局_下一个字节 ≠ 0)<br />                     ' 如果下一个字节不是10或13 读写位置就退回一位<br />                     局_偏移 ＝ 0<br />                     .如果 (局_当前字节 ＝ 10)<br />                         .如果真 (局_下一个字节 ≠ 13)<br />                             局_偏移 ＝ 1<br />                         .如果真结束<br /> <br />                     .否则<br />                         .如果真 (局_下一个字节 ≠ 10)<br />                             局_偏移 ＝ 1<br />                         .如果真结束<br /> <br />                     .如果结束<br />                     L_文件读写_移动读写位置 (文件句柄, －局_偏移, 1)  ' 退回多读取的数据<br />                 .如果真结束<br /> <br />             .否则<br />                 局_下一个字节 ＝ L_指针_到字节型 (局_当前缓冲区指针 ＋ i)<br />                 ' 如果下一个字节是10或者13 读写位置退回时额外前进一位<br />                 局_偏移 ＝ 0<br />                 .如果 (局_当前字节 ＝ 10)<br />                     .如果真 (局_下一个字节 ＝ 13)<br />                         局_偏移 ＝ 1<br />                     .如果真结束<br /> <br />                 .否则<br />                     .如果真 (局_下一个字节 ＝ 10)<br />                         局_偏移 ＝ 1<br />                     .如果真结束<br /> <br />                 .如果结束<br />                 L_文件读写_移动读写位置 (文件句柄, i － 局_当前缓冲区长度 ＋ 局_偏移, 1)  ' 退回多读取的数据<br />             .如果结束<br /> <br />             .如果 (局_当前字节 ＝ 10)<br />                 .如果 (局_下一个字节 ＝ 13)<br />                     返回_换行符格式 ＝ 字符 (10) ＋ 字符 (13)<br />                 .否则<br />                     返回_换行符格式 ＝ 字符 (10)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (局_下一个字节 ＝ 10)<br />                     返回_换行符格式 ＝ 字符 (13) ＋ 字符 (10)<br />                 .否则<br />                     返回_换行符格式 ＝ 字符 (13)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />             ' 调试输出 (局_当前行, i － 局_当前缓冲区长度)<br />             返回 (取字节集数据 (局_当前行, #文本型, ))<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     局_当前行 ＝ 局_当前行 ＋ 局_缓冲区<br />     .如果真 (L_文件读写_是否在文件尾 (文件句柄))<br />         返回 (取字节集数据 (局_当前行, #文本型, ))<br />     .如果真结束<br /> <br /> .循环判断尾 (文件句柄 ≠ 0)<br /> 返回 (“”)

凌哥

为了能更快捷地访问GitHub 顺手写了个hosts配置类
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14665792

被封七号

感谢楼主反馈的问题，该问题已得到修复，可前往黑月问题反馈群(820528017)，在群共享中的测试版本目录中下载。

薆要执著

你应该在黑月的官方git上提iss修复问题  这样黑月就更新了

hmyroot

薆要执著 发表于 2021-2-7 16:44
你应该在黑月的官方git上提iss修复问题  这样黑月就更新了

我没有Git账号，懒得上

y2j423633

薆要执著 发表于 2021-2-7 16:44
你应该在黑月的官方git上提iss修复问题  这样黑月就更新了

求最新版的黑月安装包不知道有没有呢

寡人i

支持一下

飞飞怕冷

这个不错下来备用