将少于20长度的文本合并

cq10086123

送您春季的风
吹走您的烦恼
送您春季的花
点缀您的容颜
送您春季的雨
滋润您的心田
送你整个春天
愿您的生活阳光灿烂
清明时节祝您心情快乐！
阵阵春风吹绿芽
缕缕春光明心扉
丝丝春雨润万物
声声问候暖情怀
清明节了
只言片语伴随你
愿你照顾好自己
关心亲人和好友
平安健康！

类似这种一行一行的文字内容，如果第一行内容少于20长度，就和第一行合并，如何合并完后依旧少于20长度，就接着和下一行合并。 当合并完成，继续判断下一行是否少于20长度，然后接着重复操作，请问该如何实现

鹏书

  

子程序名	返回值类型	公开	备 注
_按钮5_被单击

变量名	类 型	静态	数组	备 注
a	文本型		0
ret	文本型
i	整数型
temp	文本型

a ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (a), i)
temp ＝ temp ＋ a [i]
如果真 (取文本长度 (temp) ≥ 20)
ret ＝ ret ＋ temp ＋ #换行符
temp ＝ “”

计次循环尾 ()
调试输出 (ret)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 ret, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> a ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (a), i)<br />     temp ＝ temp ＋ a <i><br />     .如果真 (取文本长度 (temp) ≥ 20)<br />         ret ＝ ret ＋ temp ＋ #换行符<br />         temp ＝ “”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (ret)

云少i

先  分割文本（） ，     再   计次循环（）     取      取文本长度（），再根据文本长度合并（相加）。。。

cq10086123

云少i 发表于 2024-6-20 10:48
先  分割文本（） ，     再   计次循环（）     取      取文本长度（），再根据文本长度合并（相加）。。 ...

就是在这里出问题。会超素组报错，不知道怎么解决

云少i

代码贴出来。。。

fire9

递归。      

Suky

  

变量名	类 型	静态	数组	备 注
文本组	文本型		0
文本1	文本型
结果	文本型
k	整数型

文本组 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本组), )
k ＝ k ＋ 1
文本1 ＝ 文本组 [k]
判断循环首 (取文本长度 (文本1) ＜ 20)
文本1 ＝ 文本1 ＋ 文本组 [k ＋ 1]
k ＝ k ＋ 1
判断循环尾 ()
结果 ＝ 结果 ＋ 文本1 ＋ #换行符
计次循环尾 ()
调试输出 (结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 文本1, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 k, 整数型<br /> <br /> 文本组 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (文本组), )<br />     k ＝ k ＋ 1<br />     文本1 ＝ 文本组 [k]<br />     .判断循环首 (取文本长度 (文本1) ＜ 20)<br />         文本1 ＝ 文本1 ＋ 文本组 [k ＋ 1]<br />         k ＝ k ＋ 1<br />     .判断循环尾 ()<br />     结果 ＝ 结果 ＋ 文本1 ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (结果)

补充内容 (2024-6-20 14:23):
还是6楼的代码处理方案好一点，建议看6楼@鹏书