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

子程序名	返回值类型	公开	备注
文本_折行	文本型		把一段长文本按你指定的字数分行
参数名	类型	参考	可空	数组	备注
要处理的文本	文本型
每行字数	整数型				半角字数，如果为空，将不进行分行操作，直接返回文本内容，如果包含文本或全角字符，则需要把每行字数至少设置为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 />
返回 (结果文本)