:223.42KB : :1 :2023-01-29 16:46:10
文本_折行命令重新编写如果开发者对于本文件有需要的可以参考,自己折腾好久才发现有问题,折行字符数不准,还有字符数在2和3个时直接卡死,于是就自己写了一个。
.如果真 (文本_删首尾空 (欲处理的文本) = “” 或 每行字符数 < 2)
返回 ()
.如果真结束
换行分割文本 = 分割文本 (欲处理的文本, #换行符, )
.计次循环首 (取数组成员数 (换行分割文本), a)
.判断开始 (取文本长度 (换行分割文本 [a]) ≤ 每行字符数)
加入成员 (存放数组, 换行分割文本 [a])
.默认
重组文本 = “”
重组字数 = 0
文本_逐字分割 (换行分割文本 [a], 逐字分割文本) ' 把文本逐字分割,存入 自动折行分割文本 的文本数组中
.计次循环首 (取数组成员数 (逐字分割文本), b)
重组字数 = 重组字数 + 取文本长度 (逐字分割文本 [b])
.判断开始 (重组字数 ≤ 每行字符数)
重组文本 = 重组文本 + 逐字分割文本 [b]
.默认
加入成员 (存放数组, 重组文本)
重组文本 = 逐字分割文本 [b]
重组字数 = 取文本长度 (逐字分割文本 [b])
.判断结束
.计次循环尾 ()
加入成员 (存放数组, 重组文本)
.判断结束
.计次循环尾 ()
.如果真 (重新组合文本 = 真)
.计次循环首 (取数组成员数 (存放数组), a)
重组后的文本 = 重组后的文本 + 存放数组 [a] + #换行符
.计次循环尾 ()
重组后的文本 = 取文本左边 (重组后的文本, 取文本长度 (重组后的文本) - 2)