精易论坛

标题: 一句话分段成几行段落显示 [打印本页]

作者: ganen1980 时间: 2020-6-27 10:13
标题: 一句话分段成几行段落显示
本帖最后由 ganen1980 于 2020-6-27 10:18 编辑

.版本 2

.子程序分段换行符, 文本型, , 一句话分段成几行段落显示
.参数原文本, 文本型, , 要处理的文本
.参数字数, 整数型, 可空, 默认；30个字符；一行的字的数目
.局部变量编辑内容, 文本型
.局部变量计数, 整数型

.如果真 (字数＝ 0)
字数＝ 30
.如果真结束
.如果真 (字数％ 2 ＝ 1)
字数＝字数＋ 1
.如果真结束
原文本＝到全角 (原文本)
编辑内容＝ “”
.变量循环首 (1, 取文本长度 (原文本), 字数, 计数)
编辑内容＝编辑内容＋取文本中间 (原文本, 计数, 字数) ＋ #换行符
.变量循环尾 ()
返回 (编辑内容)

欢迎光临精易论坛 (https://125.confly.eu.org/)