精易模块中的“文本_折行”命令对比

不苦小和尚

kingtt 发表于 2022-8-1 20:03
请注意审题，我不是来求源码的，我自己编了一个简短的代码，另：就折个行而已，你的代码这么长也不嫌太麻 ...

就是精易模块修复的

kingtt

不苦小和尚 发表于 2022-8-1 19:42
修改了一下，你试下
[e=2].版本 2
.支持库 spec

请注意审题，我不是来求源码的，我自己编了一个简短的代码，另：就折个行而已，你的代码这么长也不嫌太麻烦吗

不苦小和尚

修改了一下，你试下

  

子程序名	返回值类型	公开	备 注
文本_折行	文本型		把一段长文本按你指定的字数分行
参数名	类 型	参考	可空	数组	备 注
要处理的文本	文本型
每行字数	整数型				半角字数，如果为空，将不进行分行操作，直接返回文本内容，如果包含文本或全角字符，则需要把每行字数至少设置为2
是否强行分行	逻辑型				为真则强行按设定长度分行。为假则保留连续半角数字或字母为一行。默认为假。
是否全角	逻辑型				是否将半角转换为全角,如果为空即不转换
首空字节数	整数型				在每行前面加入空格,如果为空,为0,即不加空格

变量名	类 型	静态	数组	备 注
操作文本	文本型
开始位置	整数型
读取长度	整数型
开始计算半角	逻辑型
半角位置	整数型
结果文本	文本型

如果真 (是否为空 (每行字数))
返回 (要处理的文本)
如果真 (是否为空 (是否强行分行))
是否强行分行 ＝ 假
如果真 (是否全角 ＝ 真)
要处理的文本 ＝ 子文本替换 (要处理的文本, “...”, “…”, 1, , 真)
要处理的文本 ＝ 子文本替换 (要处理的文本, “->”, “→”, 1, , 真)
要处理的文本 ＝ 子文本替换 (要处理的文本, “<-”, “←”, 1, , 真)
要处理的文本 ＝ 子文本替换 (要处理的文本, “--”, “—”, 1, , 真)
要处理的文本 ＝ 到全角 (要处理的文本)
如果真 (首空字节数 ≥ 1)
要处理的文本 ＝ 取空白文本 (首空字节数) ＋ 要处理的文本
要处理的文本 ＝ 子文本替换 (要处理的文本, #换行符, #换行符 ＋ 取空白文本 (首空字节数), 1, , 真)
操作文本 ＝ 要处理的文本
判断循环首 (取文本长度 (操作文本) ＞ 每行字数)
判断循环首 (读取长度 ＜ 每行字数)
' 首先这里存在2个情况，一个是如果为全角或汉字。则他们1位是2个长度，直接取是取不出来的。
如果 (取代码 (操作文本, 读取长度 ＋ 1) ≥ 127 或 取代码 (操作文本, 读取长度 ＋ 1) ＜ 0)
' 如果不是半角的话。则需要把读取长度增加到2
半角位置 ＝ 0
开始计算半角 ＝ 假
如果真 (读取长度 ＝ 每行字数 － 1)
输出调试文本 (“文本_折行 - 注意：检测到文本中包含中文或全角字符，需要把每行字数至少设置为2.”)
' 返回 (“”)
跳出循环 ()
读取长度 ＝ 读取长度 ＋ 2
判断 (取文本中间 (操作文本, 读取长度 ＋ 1, 1) ＝ “ ”)
读取长度 ＝ 读取长度 ＋ 1
半角位置 ＝ 0
开始计算半角 ＝ 假
判断 (取文本中间 (操作文本, 读取长度 ＋ 1, 2) ＝ #换行符 )
读取长度 ＝ 读取长度 ＋ 2
跳出循环 ()
如果真 (开始计算半角 ＝ 假)
半角位置 ＝ 读取长度
开始计算半角 ＝ 真
读取长度 ＝ 读取长度 ＋ 1


判断循环尾 ()
如果真 (读取长度 ≥ 每行字数)
如果 (是否强行分行 ＝ 假)
读取长度 ＝ 选择 (半角位置 ＝ 0, 每行字数, 选择 (取代码 (操作文本, 每行字数 ＋ 1) ≥ 127 或 取代码 (操作文本, 每行字数 ＋ 1) ＜ 0, 每行字数, 半角位置))
开始计算半角 ＝ 假
半角位置 ＝ 0
读取长度 ＝ 每行字数

如果真 (是否强行分行 ＝ 假)
如果 (取文本中间 (操作文本, 读取长度 － 1, 2) ＝ “《” 或 取文本中间 (操作文本, 读取长度 － 1, 2) ＝ “（” 或 取文本中间 (操作文本, 读取长度 － 1, 2) ＝ #左引号 或 取文本中间 (操作文本, 读取长度 － 1, 2) ＝ “〈” 或 取文本中间 (操作文本, 读取长度 － 11, 2) ＝ “‘”)
读取长度 ＝ 读取长度 － 2
如果真 (取文本中间 (操作文本, 读取长度, 2) ＝ “》” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “）” 或 取文本中间 (操作文本, 读取长度, 2) ＝ #右引号 或 取文本中间 (操作文本, 读取长度, 2) ＝ “〉” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “，” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “。” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “？” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “：” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “’” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “；” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “、”)
调试输出 (取代码 (操作文本, 读取长度))
如果 (取代码 (操作文本, 读取长度) ≥ 127 或 取代码 (操作文本, 读取长度) ＜ 0)
读取长度 ＝ 读取长度 － 2
读取长度 ＝ 读取长度 － 1



如果 (取文本中间 (操作文本, 读取长度 － 1, 2) ＝ #换行符 )
结果文本 ＝ 结果文本 ＋ 取文本左边 (操作文本, 读取长度)
结果文本 ＝ 结果文本 ＋ 取文本左边 (操作文本, 读取长度) ＋ #换行符
操作文本 ＝ 取文本右边 (操作文本, 取文本长度 (操作文本) － 读取长度)
读取长度 ＝ 0
判断循环尾 ()
结果文本 ＝ 结果文本 ＋ 操作文本
返回 (结果文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本_折行, 文本型, 公开, 把一段长文本按你指定的字数分行<br /> .参数 要处理的文本, 文本型<br /> .参数 每行字数, 整数型, 可空, 半角字数，如果为空，将不进行分行操作，直接返回文本内容，如果包含文本或全角字符，则需要把每行字数至少设置为2<br /> .参数 是否强行分行, 逻辑型, 可空, 为真则强行按设定长度分行。为假则保留连续半角数字或字母为一行。默认为假。<br /> .参数 是否全角, 逻辑型, 可空, 是否将半角转换为全角,如果为空即不转换<br /> .参数 首空字节数, 整数型, 可空, 在每行前面加入空格,如果为空,为0,即不加空格<br /> .局部变量 操作文本, 文本型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 读取长度, 整数型<br /> .局部变量 开始计算半角, 逻辑型<br /> .局部变量 半角位置, 整数型<br /> .局部变量 结果文本, 文本型<br /> <br /> .如果真 (是否为空 (每行字数))<br />     返回 (要处理的文本)<br /> .如果真结束<br /> .如果真 (是否为空 (是否强行分行))<br />     是否强行分行 ＝ 假<br /> .如果真结束<br /> .如果真 (是否全角 ＝ 真)<br />     要处理的文本 ＝ 子文本替换 (要处理的文本, “...”, “…”, 1, , 真)<br />     要处理的文本 ＝ 子文本替换 (要处理的文本, “->”, “→”, 1, , 真)<br />     要处理的文本 ＝ 子文本替换 (要处理的文本, “<-”, “←”, 1, , 真)<br />     要处理的文本 ＝ 子文本替换 (要处理的文本, “--”, “—”, 1, , 真)<br />     要处理的文本 ＝ 到全角 (要处理的文本)<br /> .如果真结束<br /> .如果真 (首空字节数 ≥ 1)<br />     要处理的文本 ＝ 取空白文本 (首空字节数) ＋ 要处理的文本<br />     要处理的文本 ＝ 子文本替换 (要处理的文本, #换行符, #换行符 ＋ 取空白文本 (首空字节数), 1, , 真)<br /> .如果真结束<br /> 操作文本 ＝ 要处理的文本<br /> .判断循环首 (取文本长度 (操作文本) ＞ 每行字数)<br />     .判断循环首 (读取长度 ＜ 每行字数)<br />         ' 首先这里存在2个情况，一个是如果为全角或汉字。则他们1位是2个长度，直接取是取不出来的。<br />         .如果 (取代码 (操作文本, 读取长度 ＋ 1) ≥ 127 或 取代码 (操作文本, 读取长度 ＋ 1) ＜ 0)<br />             ' 如果不是半角的话。则需要把读取长度增加到2<br />             半角位置 ＝ 0<br />             开始计算半角 ＝ 假<br />             .如果真 (读取长度 ＝ 每行字数 － 1)<br />                 输出调试文本 (“文本_折行 - 注意：检测到文本中包含中文或全角字符，需要把每行字数至少设置为2.”)<br />                 ' 返回 (“”)<br />                 跳出循环 ()<br />             .如果真结束<br />             读取长度 ＝ 读取长度 ＋ 2<br />         .否则<br />             .判断开始 (取文本中间 (操作文本, 读取长度 ＋ 1, 1) ＝ “ ”)<br />                 读取长度 ＝ 读取长度 ＋ 1<br />                 半角位置 ＝ 0<br />                 开始计算半角 ＝ 假<br />             .判断 (取文本中间 (操作文本, 读取长度 ＋ 1, 2) ＝ #换行符)<br />                 读取长度 ＝ 读取长度 ＋ 2<br />                 跳出循环 ()<br />             .默认<br />                 .如果真 (开始计算半角 ＝ 假)<br />                     半角位置 ＝ 读取长度<br />                     开始计算半角 ＝ 真<br />                 .如果真结束<br />                 读取长度 ＝ 读取长度 ＋ 1<br />             .判断结束<br /> <br />         .如果结束<br /> <br />     .判断循环尾 ()<br />     .如果真 (读取长度 ≥ 每行字数)<br />         .如果 (是否强行分行 ＝ 假)<br />             读取长度 ＝ 选择 (半角位置 ＝ 0, 每行字数, 选择 (取代码 (操作文本, 每行字数 ＋ 1) ≥ 127 或 取代码 (操作文本, 每行字数 ＋ 1) ＜ 0, 每行字数, 半角位置))<br />             开始计算半角 ＝ 假<br />             半角位置 ＝ 0<br />         .否则<br />             读取长度 ＝ 每行字数<br />         .如果结束<br /> <br />     .如果真结束<br />     .如果真 (是否强行分行 ＝ 假)<br />         .如果 (取文本中间 (操作文本, 读取长度 － 1, 2) ＝ “《” 或 取文本中间 (操作文本, 读取长度 － 1, 2) ＝ “（” 或 取文本中间 (操作文本, 读取长度 － 1, 2) ＝ #左引号 或 取文本中间 (操作文本, 读取长度 － 1, 2) ＝ “〈” 或 取文本中间 (操作文本, 读取长度 － 11, 2) ＝ “‘”)<br />             读取长度 ＝ 读取长度 － 2<br />         .否则<br />             .如果真 (取文本中间 (操作文本, 读取长度, 2) ＝ “》” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “）” 或 取文本中间 (操作文本, 读取长度, 2) ＝ #右引号 或 取文本中间 (操作文本, 读取长度, 2) ＝ “〉” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “，” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “。” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “？” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “：” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “’” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “；” 或 取文本中间 (操作文本, 读取长度, 2) ＝ “、”)<br />                 调试输出 (取代码 (操作文本, 读取长度))<br /> <br />                 .如果 (取代码 (操作文本, 读取长度) ≥ 127 或 取代码 (操作文本, 读取长度) ＜ 0)<br />                     读取长度 ＝ 读取长度 － 2<br />                 .否则<br />                     读取长度 ＝ 读取长度 － 1<br />                 .如果结束<br /> <br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .如果真结束<br />     .如果 (取文本中间 (操作文本, 读取长度 － 1, 2) ＝ #换行符)<br />         结果文本 ＝ 结果文本 ＋ 取文本左边 (操作文本, 读取长度)<br />     .否则<br />         结果文本 ＝ 结果文本 ＋ 取文本左边 (操作文本, 读取长度) ＋ #换行符<br />     .如果结束<br />     操作文本 ＝ 取文本右边 (操作文本, 取文本长度 (操作文本) － 读取长度)<br />     读取长度 ＝ 0<br /> .判断循环尾 ()<br /> 结果文本 ＝ 结果文本 ＋ 操作文本<br /> 返回 (结果文本)

不苦小和尚

没用过这个，不至于这么慢吧，模块是最新的吗

sangco

...把文字转数组, 然后X个输一个换行符不就行了麻

yzl666

这个是干什么用的

30345

膜拜神贴，后面的请保持队形~