怎么按照字符数量分割文本

丹阳

例如一串文本：测试abc文本你好]哈哈
想按照6个或5个字符给分割成多行
想要的结果为：
1=测试ab（默认6个字符长度）
2=c文本（5个字符长度，因为“你”占2个字符，则取5个字符）
3=你好]（“哈”占2个字符，则取5个）
4=哈哈（剩余的不足6个字符 放最后一行）

lisher

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ 文本_折行 (“村梦工23厂枯]一134克林)霉素12442”, 5, , , )
调试输出 (结果)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 文本_折行 (“村梦工23厂枯]一134克林)霉素12442”, 5, , , )<br /> 调试输出 (结果)

补充内容 (2023-5-18 09:18):
楼主，快把你的VX聊天加上群聊功能啊！！！！

ff1213

取文本左边 取文本中间 与取文本右边 这三个命令  

airaz

文本_逐字分割(, )
文本在变，你要分割的又不一样  用这个把 不用考虑英文还是中文

Suky

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型

变量名	类 型	静态	数组	备 注
文本组	文本型		0
文本	文本型
长度1	整数型
长度2	整数型
n	整数型

文本_逐字分割 (原始文本, 文本组)
调试输出 (文本组)
计次循环首 (取数组成员数 (文本组), n)
长度1 ＝ 取文本长度 (文本)
长度2 ＝ 取文本长度 (文本组 [n])
如果真 (长度1 ＋ 长度2 ＞ 6)
长度1 ＝ 长度2
调试输出 (文本)  ' 循环过程中输出符合条件的文本
文本 ＝ 文本组 [n]
到循环尾 ()
文本 ＝ 文本 ＋ 文本组 [n]
计次循环尾 ()
调试输出 (文本)  ' 循环结束后输出最后的文本

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .参数 原始文本, 文本型<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 长度1, 整数型<br /> .局部变量 长度2, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 文本_逐字分割 (原始文本, 文本组)<br /> 调试输出 (文本组)<br /> .计次循环首 (取数组成员数 (文本组), n)<br />     长度1 ＝ 取文本长度 (文本)<br />     长度2 ＝ 取文本长度 (文本组 [n])<br />     .如果真 (长度1 ＋ 长度2 ＞ 6)<br />         长度1 ＝ 长度2<br />         调试输出 (文本)  ' 循环过程中输出符合条件的文本<br />         文本 ＝ 文本组 [n]<br />         到循环尾 ()<br />     .如果真结束<br />     文本 ＝ 文本 ＋ 文本组 [n]<br /> .计次循环尾 ()<br /> 调试输出 (文本)  ' 循环结束后输出最后的文本

钥匙key

没看懂。这个直接用正则。指定字符数量不是最方便吗？忽略半角全角。单纯计数。一个汉字也计数为1而不是2.

补充内容 (2023-5-18 08:58):
(\S){5} 取5个分割。
(\S){6} 取6个分割。

丹阳

lisher 发表于 2023-5-18 09:17
[e=0].版本 2
.支持库 spec

在写手机端