“文本_删除指定文件文本行1”bug报告及解决方案

dangerace

“文本_删除指定文件文本行1” 该命令当指定行数为文本最后一行时，无法删除该行。
可用以下案例验证："d:\test\1.csv"

1. 姓名，性别
   
2. 张三，男
   
3. 李四，女
   
4. 王五，女

复制代码

当命令为"调试输出( 文本_删除指定文件文本行1("d:\test\1.csv",4))"时，

调试输出结果为“假”，且上述文本内容不会有任何变化。
    我研究了一下该命令的源码，发现原作者是采用寻找“回车+换行”，也就是字节集｛13,10｝来判断是否为一行的。但是这种方法遇到最后一行时就完蛋了，因为最后一行的末尾通常是没有回车和换行的，也找不到字节集｛13,10｝。所以在计算“行结束”时就报错直接返回“假”了。

我会尽量修正这个问题，提交正确代码，但因水平有限，所以请项目组也尽快考虑如何修正这个问题。

好吧，尝试提交一个解决问题的代码，但是因为采用的是一个比较鲁莽的方法，不知道会不会有什么隐患，不过至少是解决了不能删除最后一行的问题。

  

子程序名	返回值类型	公开	备 注
文本_删除指定文件行1	逻辑型		感谢【@jr21066 】分享开源
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
行号	整数型

变量名	类 型	静态	数组	备 注
内容	字节集
行开始	整数型
行结束	整数型

内容 ＝ 读入文件 (文件路径)
调试输出 (内容)
计次循环首 (行号 － 1, )
行开始 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)
调试输出 (行开始)
如果真 (行开始 ＝ -1)
返回 (假)

计次循环尾 ()
行结束 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)
调试输出 (行结束)
如果真 (行结束 ＝ -1)
行结束 ＝ 取字节集长度 (内容)
调试输出 (行结束)

如果真 (写到文件 (文件路径, 取字节集左边 (内容, 行开始) ＋ 取字节集右边 (内容, 取字节集长度 (内容) － 行结束)))
返回 (真)

返回 (假)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本_删除指定文件行1, 逻辑型, 公开, 感谢【@jr21066 】分享开源<br /> .参数 文件路径, 文本型<br /> .参数 行号, 整数型<br /> .局部变量 内容, 字节集<br /> .局部变量 行开始, 整数型<br /> .局部变量 行结束, 整数型<br /> <br /> 内容 ＝ 读入文件 (文件路径)<br /> 调试输出 (内容)<br /> .计次循环首 (行号 － 1, )<br />     行开始 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)<br />     调试输出 (行开始)<br />     .如果真 (行开始 ＝ -1)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 行结束 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)<br /> 调试输出 (行结束)<br /> .如果真 (行结束 ＝ -1)<br />     行结束 ＝ 取字节集长度 (内容)<br />     调试输出 (行结束)<br /> .如果真结束<br /> <br /> .如果真 (写到文件 (文件路径, 取字节集左边 (内容, 行开始) ＋ 取字节集右边 (内容, 取字节集长度 (内容) － 行结束)))<br />     返回 (真)<br /> .如果真结束<br /> <br /> 返回 (假)

最后说一句，看到源码中第一句是：

  

内容 ＝ 读入文件 (文件路径)

内容 ＝ 读入文件 (文件路径)

我的心就是一颤！这种方法对小文件也许很不错，但是工作中实际遇到的csv文件往往都是几百兆上G大小的，这一全读进内存.....祈祷你的内存足够程序不会崩溃吧！

jr21066

zhumei 发表于 2019-2-21 12:23
有BUG，用了 文本_删除指定变量文本行1 这个命令，写出文本 就不能用了，写出的都是空白的

有没有相应的例子提供为附件.我测试一下.

zhumei

jr21066 发表于 2018-11-18 17:26
感谢测试.修补版本来了.
1.修正定位错误
2.增加文件尾判断

有BUG，用了 文本_删除指定变量文本行1 这个命令，写出文本 就不能用了，写出的都是空白的

UNeverKnownHMIL

发个帖水一下

jr21066

感谢测试.修补版本来了.
1.修正定位错误
2.增加文件尾判断
3.增加错误参数0的处理.

原来的目的是为了增加文本处理速度的.如果是大文件可以考虑直接文件处理了.小的文件如果也直接文件操作反而会变慢的.

  

子程序名	返回值类型	公开	备 注
文本_删除指定文件文本行1	逻辑型		感谢【@jr21066 】分享开源
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型
参_行号	整数型

变量名	类 型	静态	数组	备 注
局_内容	字节集
局_行开始	整数型
局_行结束	整数型

' 真有人来参数0.也不出错了
如果真 (参_行号 ＝ 0)
返回 (假)
局_内容 ＝ 读入文件 (参_文件路径)
计次循环首 (参_行号 － 1, )
' 行开始定位到换行符的后边
局_行开始 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)
如果 (局_行开始 ＝ -1)
返回 (假)
局_行开始 ＝ 局_行开始 ＋ 1

计次循环尾 ()
局_行结束 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)
如果 (局_行结束 ＝ -1)
' 如果文件尾没有换行符就以文件尾为单位
如果 (取字节集长度 (局_内容) ＞ 局_行开始)
局_行结束 ＝ 取字节集长度 (局_内容)
返回 (假)

局_行结束 ＝ 局_行结束 ＋ 1

如果真 (写到文件 (参_文件路径, 取字节集左边 (局_内容, 局_行开始) ＋ 取字节集右边 (局_内容, 取字节集长度 (局_内容) － 局_行结束)))
返回 (真)

返回 (假)

子程序名	返回值类型	公开	备 注
文本_删除指定变量文本行1	文本型		感谢【@jr21066 】分享开源
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型
参_行号	整数型

变量名	类 型	静态	数组	备 注
局_行开始	整数型
局_行结束	整数型

如果真 (参_行号 ＝ 0)
返回 (参_文本)
计次循环首 (参_行号 － 1, )
局_行开始 ＝ 寻找文本 (参_文本, #换行符, 局_行开始 ＋ 1, 假)
如果 (局_行开始 ＝ -1)
返回 (“”)
局_行开始 ＝ 局_行开始 ＋ 1

计次循环尾 ()
局_行结束 ＝ 寻找文本 (参_文本, #换行符, 局_行开始 ＋ 1, 假)
如果 (局_行结束 ＝ -1)
如果 (取文本长度 (参_文本) ＞ 局_行开始)
局_行结束 ＝ 取文本长度 (参_文本)
返回 (“”)

局_行结束 ＝ 局_行结束 ＋ 1
返回 (取文本左边 (参_文本, 局_行开始) ＋ 取文本右边 (参_文本, 取文本长度 (参_文本) － 局_行结束))

.版本 2<br /> <br /> .子程序 文本_删除指定文件文本行1, 逻辑型, 公开, 感谢【<a href="https://bbs.125.la/home.php?mod=space&uid=240689" target="_blank">@jr21066</a> 】分享开源<br /> .参数 参_文件路径, 文本型<br /> .参数 参_行号, 整数型<br /> .局部变量 局_内容, 字节集<br /> .局部变量 局_行开始, 整数型<br /> .局部变量 局_行结束, 整数型<br /> <br /> ' 真有人来参数0.也不出错了<br /> .如果真 (参_行号 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 局_内容 ＝ 读入文件 (参_文件路径)<br /> <br /> .计次循环首 (参_行号 － 1, )<br />     ' 行开始定位到换行符的后边<br />     局_行开始 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)<br />     .如果 (局_行开始 ＝ -1)<br />         返回 (假)<br />     .否则<br />         局_行开始 ＝ 局_行开始 ＋ 1<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 局_行结束 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)<br /> .如果 (局_行结束 ＝ -1)<br />     ' 如果文件尾没有换行符就以文件尾为单位<br />     .如果 (取字节集长度 (局_内容) ＞ 局_行开始)<br />         局_行结束 ＝ 取字节集长度 (局_内容)<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br /> .否则<br />     局_行结束 ＝ 局_行结束 ＋ 1<br /> .如果结束<br /> <br /> .如果真 (写到文件 (参_文件路径, 取字节集左边 (局_内容, 局_行开始) ＋ 取字节集右边 (局_内容, 取字节集长度 (局_内容) － 局_行结束)))<br />     返回 (真)<br /> .如果真结束<br /> <br /> 返回 (假)<br /> <br /> .子程序 文本_删除指定变量文本行1, 文本型, 公开, 感谢【@jr21066 】分享开源<br /> .参数 参_文本, 文本型<br /> .参数 参_行号, 整数型<br /> .局部变量 局_行开始, 整数型<br /> .局部变量 局_行结束, 整数型<br /> <br /> .如果真 (参_行号 ＝ 0)<br />     返回 (参_文本)<br /> .如果真结束<br /> .计次循环首 (参_行号 － 1, )<br />     局_行开始 ＝ 寻找文本 (参_文本, #换行符, 局_行开始 ＋ 1, 假)<br />     .如果 (局_行开始 ＝ -1)<br />         返回 (“”)<br />     .否则<br />         局_行开始 ＝ 局_行开始 ＋ 1<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 局_行结束 ＝ 寻找文本 (参_文本, #换行符, 局_行开始 ＋ 1, 假)<br /> .如果 (局_行结束 ＝ -1)<br />     .如果 (取文本长度 (参_文本) ＞ 局_行开始)<br />         局_行结束 ＝ 取文本长度 (参_文本)<br />     .否则<br />         返回 (“”)<br />     .如果结束<br /> <br /> .否则<br />     局_行结束 ＝ 局_行结束 ＋ 1<br /> .如果结束<br /> 返回 (取文本左边 (参_文本, 局_行开始) ＋ 取文本右边 (参_文本, 取文本长度 (参_文本) － 局_行结束))