针对上个帖子的改进

明天自然醒

改进需求来源：https://bbs.125.la/thread-14753416-1-1.html

@寻找星空

均分文本.e (282.07 KB, 下载次数: 2)

2022-11-11 12:55 上传

点击文件名下载附件

.版本 2
.支持库 spec
.支持库 commobj

.子程序 __启动窗口_创建完毕
.局部变量 结果, 文本型, , "0", 分割结果
.局部变量 test, 文本型
.局部变量 t, 整数型

test ＝ 快速生成文本 (10000, “1234567890”, #换行符)

t ＝ 取启动时间 ()
文本_均分文本_按每组成员数 (test, #换行符, 4, 结果)
调试输出 (取启动时间 () － t)

t ＝ 取启动时间 ()
文本_均分文本_按组数 (test, #换行符, 4, 结果)
调试输出 (取启动时间 () － t)

.子程序 文本_均分文本_按组数, 整数型, , by 精易论坛 明天自然醒
.参数 参_文本, 文本型
.参数 参_分隔符, 文本型
.参数 参_组数, 整数型
.参数 传参_结果, 文本型, 参考 数组
.局部变量 obj, 快速文本对象
.局部变量 index, 整数型
.局部变量 buff, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 sqlit_len, 整数型
.局部变量 局_每组成员数, 双精度小数型

obj.置文本 (参_文本)
sqlit_len ＝ 取文本长度 (参_分隔符)
清除数组 (传参_结果)
index ＝ obj.寻找文本 (参_分隔符, index ＋ 1, 真)
.判断循环首 (index ≠ -1)
    加入成员 (buff, index)
    index ＝ obj.寻找文本 (参_分隔符, index ＋ 1, 真)
.判断循环尾 ()

局_每组成员数 ＝ 取数组成员数 (buff) ＼ 参_组数
.如果真 (局_每组成员数 × 参_组数 ＜ 取数组成员数 (buff))
    局_每组成员数 ＝ 局_每组成员数 ＋ 1
.如果真结束

.如果 (局_每组成员数 ＞ 取数组成员数 (buff))
    加入成员 (传参_结果, 参_文本)
    返回 (取数组成员数 (传参_结果))
.否则
    i ＝ 1
    .变量循环首 (局_每组成员数, 取数组成员数 (buff), 局_每组成员数, index)
        加入成员 (传参_结果, obj.取文本 (i, buff [index] ＋ sqlit_len － i))
        i ＝ buff [index] ＋ sqlit_len － 1
        .如果真 (index ＋ 局_每组成员数 ＞ 取数组成员数 (buff))
            加入成员 (传参_结果, obj.取文本 (i, obj.取长度 () － i ＋ 1))
        .如果真结束

    .变量循环尾 ()
.如果结束

返回 (取数组成员数 (传参_结果))


.子程序 文本_均分文本_按每组成员数, 整数型, , by 精易论坛 明天自然醒
.参数 参_文本, 文本型
.参数 参_分隔符, 文本型
.参数 参_每组成员数, 整数型
.参数 传参_结果, 文本型, 参考 数组
.局部变量 obj, 快速文本对象
.局部变量 index, 整数型
.局部变量 buff, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 sqlit_len, 整数型

obj.置文本 (参_文本)
sqlit_len ＝ 取文本长度 (参_分隔符)
清除数组 (传参_结果)
index ＝ obj.寻找文本 (参_分隔符, index ＋ 1, 真)
.判断循环首 (index ≠ -1)
    加入成员 (buff, index)
    index ＝ obj.寻找文本 (参_分隔符, index ＋ 1, 真)
.判断循环尾 ()

.如果 (参_每组成员数 ＞ 取数组成员数 (buff))
    加入成员 (传参_结果, 参_文本)
    返回 (取数组成员数 (传参_结果))
.否则
    i ＝ 1
    .变量循环首 (参_每组成员数, 取数组成员数 (buff), 参_每组成员数, index)
        加入成员 (传参_结果, obj.取文本 (i, buff [index] ＋ sqlit_len － i))
        i ＝ buff [index] ＋ sqlit_len － 1
        .如果真 (index ＋ 参_每组成员数 ＞ 取数组成员数 (buff))
            加入成员 (传参_结果, obj.取文本 (i, obj.取长度 () － i ＋ 1))
        .如果真结束

    .变量循环尾 ()
.如果结束

返回 (取数组成员数 (传参_结果))


.子程序 快速生成文本, 文本型
.参数 行数, 整数型
.参数 文本, 文本型
.参数 分隔符, 文本型
.局部变量 buff, 字节集
.局部变量 byte, 字节集
.局部变量 len, 整数型
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 N, 整数型

byte ＝ 到字节集 (文本) ＋ 到字节集 (分隔符)
len ＝ 行数 × 取字节集长度 (byte)
.如果真 (len ＞ 536870912 × 2)  ' 1GB
    调试输出 (“运行时出错!错误信息：分配 1200000001 字节内存失败!”)
.如果真结束
buff ＝ 取空白字节集 (len)
.循环判断首 ()
    N ＝ N ＋ 1
    .计次循环首 (取字节集长度 (byte), ii)
        i ＝ i ＋ 1
        .' 如果真 (i ＞ len － 取文本长度 (分隔符))  ' //不要分隔符结尾.
            ' 跳出循环 ()
        .如果真结束
        buff ＝ byte [ii]
    .计次循环尾 ()
.循环判断尾 (N ＜ 行数)
返回 (到文本 (buff))

明天自然醒

均分文本.e (15.17 KB, 下载次数: 1)

2022-11-11 18:26 上传

点击文件名下载附件

针对@福仔提出的问题，修改代码，提高稳定准确性，降速十倍左右。原子程序快速的前提下有几率出错。

沉默1212

djhjdjdjdjdjdjdjd

寻找星空

寻找星空 发表于 2022-11-12 00:11
精准度比起你所谓的改良随机触发BUG好，给你个0分就很不错了

还顶Q哦，哎哟哟，解释就是掩饰！

寻找星空

明天自然醒 发表于 2022-11-12 00:10
二次开发？我跟你说话全靠猜？你二次开发还要用分割文本？慢死

精准度比起你所谓的改良随机触发BUG好，给你个0分就很不错了

明天自然醒

寻找星空 发表于 2022-11-12 00:08
二开内部调用谁叫你外部用，你是理解能力有问题还是没有二开能力

二次开发？我跟你说话全靠猜？你二次开发还要用分割文本？慢死

寻找星空

明天自然醒 发表于 2022-11-12 00:04
管你什么二开非二开，有没有返回结果？
没有就别bb，没有任何实用价值。 ...

二开内部调用谁叫你外部用，你是理解能力有问题还是没有二开能力

明天自然醒

寻找星空 发表于 2022-11-11 23:45
说你不认真还是干嘛的，好好看清楚备注和说明，二开和非二开

管你什么二开非二开，有没有返回结果？
没有就别bb，没有任何实用价值。

明天自然醒

寻找星空 发表于 2022-11-11 23:45
说你不认真还是干嘛的，好好看清楚备注和说明，二开和非二开

咋把帖子删了

明天自然醒

寻找星空 发表于 2022-11-11 23:37
二开等自行加判断传参置空

？就这？能说人话不描述的啥玩意？

明天自然醒

寻找星空 发表于 2022-11-11 23:36
你是不是瞎了？没看到我备注？

就这调试输出+qq也配让我细看？