文本分页逻辑：文本_分页

墨影0620

大神勿喷qwq

  

子程序名	返回值类型	公开	备 注
文本_分页	整数型		返回总页码数
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
每页行数	整数型
分页后的文本	文本型

变量名	类 型	静态	数组	备 注
计次	整数型
文本	文本型		0
准备合并的数组	文本型		0
临时	文本型

准备合并的数组 ＝ 分割文本 (原文本, #换行符, )
计次循环首 (取数组成员数 (准备合并的数组), 计次)
临时 ＝ 临时 ＋ 准备合并的数组 [计次] ＋ 选择 (计次 ％ 每页行数 ＝ 0 或 计次 ＝ 取数组成员数 (准备合并的数组), “”, #换行符 )
如果真 (计次 ％ 每页行数 ＝ 0 或 计次 ＝ 取数组成员数 (准备合并的数组))
加入成员 (文本, 临时)
临时 ＝ “”

计次循环尾 ()
复制数组 (分页后的文本, 文本)
返回 (取数组成员数 (文本))

.版本 2<br /> <br /> .子程序 文本_分页, 整数型, 公开, 返回总页码数<br /> .参数 原文本, 文本型<br /> .参数 每页行数, 整数型<br /> .参数 分页后的文本, 文本型, 数组<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 准备合并的数组, 文本型, , "0"<br /> .局部变量 临时, 文本型<br /> <br /> 准备合并的数组 ＝ 分割文本 (原文本, #换行符, )<br /> .计次循环首 (取数组成员数 (准备合并的数组), 计次)<br />     临时 ＝ 临时 ＋ 准备合并的数组 [计次] ＋ 选择 (计次 ％ 每页行数 ＝ 0 或 计次 ＝ 取数组成员数 (准备合并的数组), “”, #换行符)<br />     .如果真 (计次 ％ 每页行数 ＝ 0 或 计次 ＝ 取数组成员数 (准备合并的数组))<br />         加入成员 (文本, 临时)<br />         临时 ＝ “”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 复制数组 (分页后的文本, 文本)<br /> 返回 (取数组成员数 (文本))

sinue9528

很好，感谢分享，支持一下

Nice回忆

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

sampo

可以分割多大的原文本？

CsYuns

可以分割多大的原文本

hl513344

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