关于代码优化的问题

destinyx8099

像这样给连续的内容从1开始编号，有更简单方便的方法吗，感觉怪怪的

Suky

直接从头开始重新顺序编码不就好了？
都不需要再做判断

sunfly

整个二维数组 1=数量  2=数据 3=编码
编码的增加用数组逐一对比还是寻找文本自由发挥
每放一个数据 寻找文本一下文本 ！=-1就编码+1， =-1就加进文本编码=1

尝试写了一下自己测试我测试了好像可以
.版本 2
.支持库 commobj
.支持库 DeelxRegEx

.子程序 编号, , 公开
.局部变量 数量, 整数型
.局部变量 编码, 整数型
.局部变量 文本, 快速文本对象
.局部变量 i, 整数型
.局部变量 组, 文本型, , "100,3"
.局部变量 zz, 正则表达式DEELX
.局部变量 正则组, 文本型, , "0"

置随机数种子 ()
文本.添加 (“ ”)
.计次循环首 (100, i)
    数量 ＝ 数量 ＋ 1
    组 [1] ＝ 到文本 (数量)
    组 [2] ＝ 到文本 (取随机数 (1, 100))
    文本.添加 (组 [2], “ ”)
    zz.创建 (“ ” ＋ 组 [2] ＋ “ ”, , )
    正则组 ＝ zz.取所有匹配文本 (文本.取文本 (, ), )
    组 [3] ＝ 到文本 (取数组成员数 (正则组))
    清除数组 (正则组)
.计次循环尾 ()

.计次循环首 (100, i)
    编辑框1.内容 ＝ 编辑框1.内容 ＋ 组 [1] ＋ “    ” ＋ 组 [2] ＋ “    ” ＋ 组 [3] ＋ #换行符
.计次循环尾 ()
返回 ()




补充内容 (2023-11-7 01:53):
数据如何在循环里提取这个得看您如何产生了 这里用随机数替代了

补充内容 (2023-11-7 01:55):
为什么 组 [1] 复制进来是 组  [1]了？

补充内容 (2023-11-7 01:55):
组[循环变量][1]  

sunfly

上面刚回测了一下，正则匹配这里出了问题
比如随机数9时  前面出现 59 也算
我用“  ”9“  ”替代 但是如果是 9 9 9这样就出现了数据匹配不正确第2个就没法匹配出来了（把随机数随便换个数字测一下就明白说的问题了）
如果考虑把数据加入数组一一对比那每加一个数据要在数组里重复，计算量大了
请其他高手解决正则匹配这个问题吧能力有限哈哈

sunfly

改了一下 用数组对比取次数 ，个人不建议用这个笨办法 数据量大了速度慢 这个貌似没有问题了
正则还没细学 没法准确在 59  97  9   这个文本中准确匹配只取9算1次 如果能写用正则直接取次数可以避免统计累计的烦琐写法
参考不谢

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

.子程序 编号1, , 公开
.局部变量 数量, 整数型
.局部变量 编码, 整数型
.局部变量 文本, 快速文本对象
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 组, 文本型, , "100,3"
.局部变量 比较组, 文本型, , "0"
.局部变量 zz, 正则表达式DEELX
.局部变量 正则组, 文本型, , "0"

置随机数种子 ()
.计次循环首 (100, i)
    编码 ＝ 0
    数量 ＝ 数量 ＋ 1
    组 [i] [1] ＝ 到文本 (数量)
    组 [i] [2] ＝ 到文本 (取随机数 (1, 100))  ' “39”  '
    加入成员 (比较组, 组 [i] [2])
    .计次循环首 (取数组成员数 (比较组), j)
        .如果真 (比较组 [j] ＝ 组 [i] [2])
            编码 ＝ 编码 ＋ 1
        .如果真结束

    .计次循环尾 ()
    .如果 (编码 ＝ 0)
        组 [i] [3] ＝ “1”
    .否则
        组 [i] [3] ＝ 到文本 (编码)
    .如果结束


    ' 文本.添加 (组 [i] [2], “ ”)
    ' 编辑框2.内容 ＝ 编辑框2.内容 ＋ 文本.取文本 (, ) ＋ #换行符
    ' 延迟 (1)
    ' zz.创建 (“ ” ＋ 组 [i] [2] ＋ “ ”, , )
    ' 正则组 ＝ zz.取所有匹配文本 (文本.取文本 (, ), )
    ' 组 [i] [3] ＝ 到文本 (取数组成员数 (正则组))
    ' 清除数组 (正则组)
.计次循环尾 ()

.计次循环首 (100, i)
    编辑框1.内容 ＝ 编辑框1.内容 ＋ 组 [i] [1] ＋ “    ” ＋ 组 [i] [2] ＋ “    ” ＋ 组 [i] [3] ＋ #换行符
.计次循环尾 ()
返回 ()