文本_取指定文件文本行1_的命令修正和改进

jr21066

修改源代码的错误
1.定位不准的错误.
2.增加结尾换行符的处理
3.增加错误参数0的处理

同时修改的有另一帖:
https://bbs.125.la/thread-14266421-1-1.html

  

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

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

如果真 (参_行号 ＝ 0)
返回 (“”)
局_内容 ＝ 读入文件 (参_文件路径)
计次循环首 (参_行号 － 1, )
局_行开始 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)
如果 (局_行开始 ＝ -1)
返回 (“”)
局_行开始 ＝ 局_行开始 ＋ 2

计次循环尾 ()
如果真 (局_行开始 ＝ 0)
局_行开始 ＝ 1
局_行结束 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)
如果 (局_行结束 ＝ -1)
如果 (取字节集长度 (局_内容) ＞ 局_行开始)
局_行结束 ＝ 取字节集长度 (局_内容) ＋ 1
返回 (“”)

局_行结束 ＝ 局_行结束 ＋ 2
返回 (到文本 (取字节集中间 (局_内容, 局_行开始, 局_行结束 － 局_行开始)))

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

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

如果真 (参_行号 ＝ 0)
返回 (“”)

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

计次循环尾 ()
如果真 (局_行开始 ＝ 0)
局_行开始 ＝ 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 />     返回 (“”)<br /> .如果真结束<br /> 局_内容 ＝ 读入文件 (参_文件路径)<br /> .计次循环首 (参_行号 － 1, )<br />     局_行开始 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)<br />     .如果 (局_行开始 ＝ -1)<br />         返回 (“”)<br />     .否则<br />         局_行开始 ＝ 局_行开始 ＋ 2<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (局_行开始 ＝ 0)<br />     局_行开始 ＝ 1<br /> .如果真结束<br /> 局_行结束 ＝ 寻找字节集 (局_内容, { 13, 10 }, 局_行开始 ＋ 1)<br /> .如果 (局_行结束 ＝ -1)<br />     .如果 (取字节集长度 (局_内容) ＞ 局_行开始)<br />         局_行结束 ＝ 取字节集长度 (局_内容) ＋ 1<br />     .否则<br />         返回 (“”)<br />     .如果结束<br /> <br /> .否则<br />     局_行结束 ＝ 局_行结束 ＋ 2<br /> .如果结束<br /> 返回 (到文本 (取字节集中间 (局_内容, 局_行开始, 局_行结束 － 局_行开始)))<br /> <br /> .子程序 文本_取指定变量文本行1, 文本型, 公开, 感谢【@jr21066 】分享开源<br /> .参数 参_文本, 文本型<br /> .参数 参_行号, 整数型<br /> .局部变量 局_行开始, 整数型<br /> .局部变量 局_行结束, 整数型<br /> <br /> .如果真 (参_行号 ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> .计次循环首 (参_行号 － 1, )<br />     局_行开始 ＝ 寻找文本 (参_文本, #换行符, 局_行开始 ＋ 1, 假)<br />     .如果 (局_行开始 ＝ -1)<br />         返回 (“”)<br />     .否则<br />         局_行开始 ＝ 局_行开始 ＋ 2<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (局_行开始 ＝ 0)<br />     局_行开始 ＝ 1<br /> .如果真结束<br /> 局_行结束 ＝ 寻找文本 (参_文本, #换行符, 局_行开始 ＋ 1, 假)<br /> .如果 (局_行结束 ＝ -1)<br />     .如果 (取文本长度 (参_文本) ＞ 局_行开始)<br />         局_行结束 ＝ 取文本长度 (参_文本)<br />     .否则<br />         返回 (“”)<br />     .如果结束<br /> <br /> .否则<br />     局_行结束 ＝ 局_行结束 ＋ 1<br /> .如果结束<br /> 返回 (取文本中间 (参_文本, 局_行开始, 局_行结束 － 局_行开始 ＋ 1))

zhujunwang

支持！！！！！！！！！！！！！！！！！！！！

zhujunwang

支持！！！！！！！！！！！！！！

项目部002

收到，立即着手处理

dangerace

这两天一直在调试楼主的这个新代码，发现略微还有点瑕疵需要完善。等我调试好了再和楼主沟通一下。主要是取行内容时，末尾的回车和换行符的处理。