文本_取指定文件及变量文本行 改进

jr21066

用寻找来代替分割,分割实在太费时间了

  

子程序名	返回值类型	公开	备 注
文本_取指定文件文本行1	文本型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
行号	整数型

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

内容 ＝ 读入文件 (文件路径)
计次循环首 (行号 － 1, )
行开始 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)
计次循环尾 ()
行结束 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)
如果 (行结束 ＝ -1 或 行开始 ＝ -1)
返回 (“”)
返回 (到文本 (取字节集中间 (内容, 行开始 ＋ 2, 行结束 － 行开始 － 2)))

子程序名	返回值类型	公开	备 注
文本_取指定变量文本行1	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
行号	整数型

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

计次循环首 (行号 － 1, )
行开始 ＝ 寻找文本 (文本, #换行符, 行开始 ＋ 1, 假)
计次循环尾 ()
行结束 ＝ 寻找文本 (文本, #换行符, 行开始 ＋ 1, 假)
如果 (行结束 ＝ -1 或 行开始 ＝ -1)
返回 (“”)
返回 (取文本中间 (文本, 行开始 ＋ 2, 行结束 － 行开始 － 2))

.版本 2<br /> <br /> .子程序 文本_取指定文件文本行1, 文本型, 公开<br /> .参数 文件路径, 文本型<br /> .参数 行号, 整数型<br /> .局部变量 内容, 字节集<br /> .局部变量 行开始, 整数型<br /> .局部变量 行结束, 整数型<br /> <br /> 内容 ＝ 读入文件 (文件路径)<br /> .计次循环首 (行号 － 1, )<br />     行开始 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)<br /> .计次循环尾 ()<br /> 行结束 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)<br /> .如果 (行结束 ＝ -1 或 行开始 ＝ -1)<br />     返回 (“”)<br /> .否则<br />     返回 (到文本 (取字节集中间 (内容, 行开始 ＋ 2, 行结束 － 行开始 － 2)))<br /> .如果结束<br /> <br /> <br /> .子程序 文本_取指定变量文本行1, 文本型, 公开<br /> .参数 文本, 文本型<br /> .参数 行号, 整数型<br /> .局部变量 行开始, 整数型<br /> .局部变量 行结束, 整数型<br /> <br /> .计次循环首 (行号 － 1, )<br />     行开始 ＝ 寻找文本 (文本, #换行符, 行开始 ＋ 1, 假)<br /> .计次循环尾 ()<br /> 行结束 ＝ 寻找文本 (文本, #换行符, 行开始 ＋ 1, 假)<br /> .如果 (行结束 ＝ -1 或 行开始 ＝ -1)<br />     返回 (“”)<br /> .否则<br />     返回 (取文本中间 (文本, 行开始 ＋ 2, 行结束 － 行开始 － 2))<br /> .如果结束

jr21066

判断有点保险.是吧.改的保险一些

  

子程序名	返回值类型	公开	备 注
文本_取指定文件文本行1	文本型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
行号	整数型

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

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

计次循环尾 ()
行结束 ＝ 寻找字节集 (内容, { 13, 10 }, 行开始 ＋ 1)
如果 (行结束 ＝ -1)
返回 (“”)
返回 (到文本 (取字节集中间 (内容, 行开始 ＋ 2, 行结束 － 行开始 － 2)))

子程序名	返回值类型	公开	备 注
文本_取指定变量文本行1	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
行号	整数型

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

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

计次循环尾 ()
行结束 ＝ 寻找文本 (文本, #换行符, 行开始 ＋ 1, 假)
如果 (行结束 ＝ -1)
返回 (“”)
返回 (取文本中间 (文本, 行开始 ＋ 2, 行结束 － 行开始 － 2))

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