文本取行文本 取出制定行的多行文本

斗战胜猴

文本取行文本
从制定行开始 取出制定行数的文本


补充内容 (2025-7-7 16:42):
.版本 2

.子程序 文本取行文本, 整数型, 公开, 返回 实际已取行数
.参数 参_原始文本, 文本型
.参数 参_行文本数组, 文本型, 参考 数组
.参数 参_起始行, 整数型, 可空
.参数 参_取出行数, 整数型, 可空
.参数 参_是否清空多余行, 逻辑型, 可空
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_指针, 整数型
.局部变量 局_行数, 整数型
.局部变量 局_换行符, 文本型
.局部变量 局_计次, 整数型
.局部变量 局_已取行数, 整数型

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

    .如果真结束
    局_起始位置 ＝ 局_结束位置
.计次循环尾 ()
.如果真 (参_是否清空多余行)
    重定义数组 (参_行文本数组, 真, 局_已取行数)
.如果真结束
返回 (局_已取行数)


补充内容 (2025-7-9 16:40):
空换行时有bug，修复发评论区了

斗战胜猴

修复空换行时的bug

  

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

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

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

局_起始位置 ＝ 局_结束位置
计次循环尾 ()
如果真 (参_是否清空多余行)
重定义数组 (参_行文本数组, 真, 局_已取行数)
返回 (局_已取行数)

.版本 2<br /> <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 />         参_行文本数组 [局_已取行数] ＝ 指针_到文本 (局_指针 ＋ 局_起始位置, 选择 (局_长度 ＞ 0, 局_长度, 2))<br />         .如果真 (局_已取行数 ＝ 参_取出行数)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     局_起始位置 ＝ 局_结束位置<br /> .计次循环尾 ()<br /> .如果真 (参_是否清空多余行)<br />     重定义数组 (参_行文本数组, 真, 局_已取行数)<br /> .如果真结束<br /> 返回 (局_已取行数)

zytyz

这个一般在什么场景下会用到啊？

查过

感谢发布原创作品，精易因你更精彩！6666666666666

豆豆灰常开心

感谢楼主分享！

wh1234567

感谢分享

lxn2wyf

支持开源~！感谢分享你的内容

s1255301153

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

lassgo

支持开源~！感谢分享你的内容