文本按行截取

斗战胜猴

  

子程序名	返回值类型	公开	备 注
文本取行文本	整数型		返回 实际已取行数
参数名	类 型	参考	可空	数组	备 注
参_原始文本	文本型
参_行文本数组	文本型
参_起始行	整数型
参_取出行数	整数型
参_是否清空多余行	逻辑型

变量名	类 型	静态	数组	备 注
局_起始位置	整数型
局_结束位置	整数型
局_指针	整数型
局_行数	整数型
局_换行符	文本型
局_计次	整数型
局_已取行数	整数型

局_行数 ＝ 文本取行数 (参_原始文本)
参_起始行 ＝ 选择 (参_起始行 ≤ 0, 1, 参_起始行)
参_取出行数 ＝ 选择 (参_取出行数 ≤ 0, 局_行数 － 参_起始行 ＋ 1, 参_取出行数)
重定义数组 (参_行文本数组, 假, 参_取出行数)
局_指针 ＝ PtrStr (参_原始文本)
局_起始位置 ＝ 0
局_换行符 ＝ 字符 (10)
局_已取行数 ＝ 0
计次循环首 (局_行数, 局_计次)
局_结束位置 ＝ 寻找文本s (参_原始文本, 局_换行符, 局_起始位置 ＋ 1, 真)
如果真 (局_计次 ≥ 参_起始行 且 局_已取行数 ＜ 参_取出行数)
局_已取行数 ＝ 局_已取行数 ＋ 1
参_行文本数组 [局_已取行数] ＝ 指针_到文本 (局_指针 ＋ 局_起始位置, 局_结束位置 － 局_起始位置 － 2)
局_起始位置 ＝ 局_结束位置
计次循环尾 ()
如果真 (参_是否清空多余行)
重定义数组 (参_行文本数组, 真, 局_已取行数)
返回 (局_已取行数)

.版本 2<br /> <br /> .子程序 文本取行文本, 整数型, 公开, 返回 实际已取行数<br /> .参数 参_原始文本, 文本型<br /> .参数 参_行文本数组, 文本型, 参考 数组<br /> .参数 参_起始行, 整数型, 可空<br /> .参数 参_取出行数, 整数型, 可空<br /> .参数 参_是否清空多余行, 逻辑型, 可空<br /> .局部变量 局_起始位置, 整数型<br /> .局部变量 局_结束位置, 整数型<br /> .局部变量 局_指针, 整数型<br /> .局部变量 局_行数, 整数型<br /> .局部变量 局_换行符, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_已取行数, 整数型<br /> <br /> 局_行数 ＝ 文本取行数 (参_原始文本)<br /> 参_起始行 ＝ 选择 (参_起始行 ≤ 0, 1, 参_起始行)<br /> 参_取出行数 ＝ 选择 (参_取出行数 ≤ 0, 局_行数 － 参_起始行 ＋ 1, 参_取出行数)<br /> 重定义数组 (参_行文本数组, 假, 参_取出行数)<br /> 局_指针 ＝ PtrStr (参_原始文本)<br /> 局_起始位置 ＝ 0<br /> 局_换行符 ＝ 字符 (10)<br /> 局_已取行数 ＝ 0<br /> .计次循环首 (局_行数, 局_计次)<br />     局_结束位置 ＝ 寻找文本s (参_原始文本, 局_换行符, 局_起始位置 ＋ 1, 真)<br />     .如果真 (局_计次 ≥ 参_起始行 且 局_已取行数 ＜ 参_取出行数)<br />         局_已取行数 ＝ 局_已取行数 ＋ 1<br />         参_行文本数组 [局_已取行数] ＝ 指针_到文本 (局_指针 ＋ 局_起始位置, 局_结束位置 － 局_起始位置 － 2)<br />     .如果真结束<br />     局_起始位置 ＝ 局_结束位置<br /> .计次循环尾 ()<br /> .如果真 (参_是否清空多余行)<br />     重定义数组 (参_行文本数组, 真, 局_已取行数)<br /> .如果真结束<br /> 返回 (局_已取行数)

bin00

66666666666666666

萧楚楠

你可以打开文件，然后一个线程读一段去处理，推荐用原子锁。   又快又稳       不要用数组，随用随取随放，可以参考一下虚表的原理