英语句子，满25个字数换行输出！来个高手给我解答解答！

liangjingfan

比如我现在有：The more you take, themore you leave behind. What am l?  
What is cut on a tablebut is never eaten?
两个问题，我现在用的是 文本_取长度（） 第一个 句子文本长度是54 第二个句子文本长度是42
要求：25个字数换行输出，前提是不能把这些英文单词分开  
比如第一个句子，分开输出是   
The more you take,       现在这句是18字数 加下一个单词就超过25个字符了

themore you leave behind.   现在这句是25字数 加下一个单词就超过25个字符了
What am l?  
这样三句，我写的 老是会添加多一个单词 出错，可以来一个老哥给我写个例子吗？求求了  

鹏书

  

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

变量名	类 型	静态	数组	备 注
txt	文本型
ret	文本型

txt ＝ “The more you take, themore you leave behind. What am l?  ”
判断循环首 (txt ≠ “”)
判断 (取文本长度 (txt) ≤ 25)
ret ＝ ret ＋ txt
跳出循环 ()
判断 (取文本中间 (txt, 25, 1) ＝ “ ” 或 取文本中间 (txt, 26, 1) ＝ “ ”)
ret ＝ ret ＋ 取文本左边 (txt, 25) ＋ #换行符
txt ＝ 文本替换 (txt, 1, 25, “”)

ret ＝ ret ＋ 取文本左边 (txt, 倒找文本 (txt, “ ”, 25, 假)) ＋ #换行符
txt ＝ 文本替换 (txt, 1, 倒找文本 (txt, “ ”, 25, 假), “”)

判断循环尾 ()
调试输出 (ret)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 txt, 文本型<br /> .局部变量 ret, 文本型<br /> <br /> txt ＝ “The more you take, themore you leave behind. What am l?  ”<br /> <br /> .判断循环首 (txt ≠ “”)<br />     .判断开始 (取文本长度 (txt) ≤ 25)<br />         ret ＝ ret ＋ txt<br />         跳出循环 ()<br />     .判断 (取文本中间 (txt, 25, 1) ＝ “ ” 或 取文本中间 (txt, 26, 1) ＝ “ ”)<br />         ret ＝ ret ＋ 取文本左边 (txt, 25) ＋ #换行符<br />         txt ＝ 文本替换 (txt, 1, 25, “”)<br /> <br />     .默认<br />         ret ＝ ret ＋ 取文本左边 (txt, 倒找文本 (txt, “ ”, 25, 假)) ＋ #换行符<br />         txt ＝ 文本替换 (txt, 1, 倒找文本 (txt, “ ”, 25, 假), “”)<br /> <br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> <br /> 调试输出 (ret)

空格算长度

xf702

分割，编辑框加入文本

鹏书

空格不算长度的吗

鹏书

鹏书 发表于 2024-4-28 18:25
[e=0].版本 2
.支持库 spec

中间的25  26 分开判断 分开处理就不会出现单词前面有空格的情况

frankiy

电脑都给我整死机了

liangjingfan

看了各位大佬们的解答，感觉豁然开朗呀

liangjingfan

鹏书 发表于 2024-4-28 18:26
中间的25  26 分开判断 分开处理就不会出现单词前面有空格的情况

我看你的代码有点傻眼 ，研究了好久

青梅

\b[A-z\ \,]{1,24}[\.\?\ ] 直接用正则就能实现

鹏书

liangjingfan 发表于 2024-4-28 20:25
我看你的代码有点傻眼 ，研究了好久

你运行代码一步一步调整就知道了啊