精易论坛
标题:
文本分页逻辑:文本_分页
[打印本页]
作者:
墨影0620
时间:
2019-3-26 11:32
标题:
文本分页逻辑:文本_分页
大神勿喷qwq
子程序名
返回值类型
公开
备 注
文本_分页
整数型
返回总页码数
参数名
类 型
参考
可空
数组
备 注
原文本
文本型
每页行数
整数型
分页后的文本
文本型
变量名
类 型
静态
数组
备 注
计次
整数型
文本
文本型
0
准备合并的数组
文本型
0
临时
文本型
准备合并的数组 =
分割文本
(
原文本,
#换行符,
)
计次循环首
(
取数组成员数
(
准备合并的数组
)
, 计次
)
临时 = 临时 + 准备合并的数组
[
计次
]
+
选择
(
计次 % 每页行数 = 0
或
计次 =
取数组成员数
(
准备合并的数组
)
,
“”
,
#换行符
)
如果真
(
计次 % 每页行数 = 0
或
计次 =
取数组成员数
(
准备合并的数组
)
)
加入成员
(
文本, 临时
)
临时 =
“”
计次循环尾
(
)
复制数组
(
分页后的文本, 文本
)
返回
(
取数组成员数
(
文本
)
)
.版本 2
.子程序 文本_分页, 整数型, 公开, 返回总页码数
.参数 原文本, 文本型
.参数 每页行数, 整数型
.参数 分页后的文本, 文本型, 数组
.局部变量 计次, 整数型
.局部变量 文本, 文本型, , "0"
.局部变量 准备合并的数组, 文本型, , "0"
.局部变量 临时, 文本型
准备合并的数组 = 分割文本 (原文本, #换行符, )
.计次循环首 (取数组成员数 (准备合并的数组), 计次)
临时 = 临时 + 准备合并的数组 [计次] + 选择 (计次 % 每页行数 = 0 或 计次 = 取数组成员数 (准备合并的数组), “”, #换行符)
.如果真 (计次 % 每页行数 = 0 或 计次 = 取数组成员数 (准备合并的数组))
加入成员 (文本, 临时)
临时 = “”
.如果真结束
.计次循环尾 ()
复制数组 (分页后的文本, 文本)
返回 (取数组成员数 (文本))
作者:
sinue9528
时间:
2019-3-26 12:05
很好,感谢分享,支持一下
作者:
Nice回忆
时间:
2019-3-26 23:32
感谢发布原创作品,精易因你更精彩!
作者:
sampo
时间:
2019-3-28 20:01
可以分割多大的原文本?
作者:
CsYuns
时间:
2019-3-30 19:24
可以分割多大的原文本
作者:
hl513344
时间:
2019-4-11 08:27
感谢发布原创作品,精易因你更精彩!
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4