取出符合要求的数字

千城偶吧

如何取出符合条件的数字？
大佬帮忙写个源码看看

假设设置了3个文本数组，每组5个成员，后期可能更多的数组  每组数字不会重复 固定5个成员  但00会重复，00需要排除掉
a1= 01 18 26 34 48
a2= 03 14 23 31 00
a3= 08 19 37 41 00

比如我点1开头 排序就是
18 14 19 01 26 34 48 03 23 31 08 37 41

比如我点3和0开头 排序就是
34 31 41 01 03 08 18 26 48 14 23 19 41

比如我点4和1和3开头 排序就是
48 14 41 18 19 34 31 37 01 26 03 23 08
这个排序是 先取每组有没有4头 没有就取1头 ，然后取3头 头子都取完后就按每组剩下的依次

数字开头一般是 0  1  2  3  4 开头

请问如何写代码 执行这种排序结果？

zainex

你可以先分组，然后不断重复移动这个过程：
[e=1].版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 选择开头2, 文本型
.参数 数组, 文本型, 数组
.参数 开头, 整数型, 数组
.局部变量 备份, 文本型, , "0"
.局部变量 移动过, 逻辑型
.局部变量 尾部, 文本型
.局部变量 数, 整数型
.局部变量 成员, 文本型, , "0"
.局部变量 值, 整数型
.局部变量 存在, 逻辑型
.局部变量 量, 整数型
.局部变量 首部, 文本型

复制数组 (备份, 数组)
.循环判断首 ()
    移动过 ＝ 假
    尾部 ＝ “”
    .计次循环首 (取数组成员数 (数组), 数)
        成员 ＝ 分割文本 (数组 [数], “ ”, )
        .计次循环首 (取数组成员数 (开头), 值)
            存在 ＝ 假
            .计次循环首 (取数组成员数 (成员), 量)
                .如果真 (成员 [量] ＝ “”)
                    到循环尾 ()
                .如果真结束
                .如果真 (取代码 (成员 [量], ) － 取代码 (“0”, ) ＝ 开头 [值])
                    首部 ＝ 首部 ＋ 成员 [量] ＋ “ ”
                    删除成员 (成员, 量, )
                    移动过 ＝ 真
                    存在 ＝ 真
                    跳出循环 ()
                .如果真结束

            .计次循环尾 ()
            .如果真 (存在 ＝ 真)
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()
        数组 [数] ＝ “”
        .计次循环首 (取数组成员数 (成员), 量)
            数组 [数] ＝ 数组 [数] ＋ 成员 [量] ＋ “ ”
        .计次循环尾 ()
        尾部 ＝ 尾部 ＋ 数组 [数]
    .计次循环尾 ()
.循环判断尾 (移动过 ＝ 真)
复制数组 (数组, 备份)
返回 (首部 ＋ 尾部)


.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.局部变量 数组, 文本型, , "0"

文本 ＝ 文本 ＋ “01 18 26 34 48” ＋ #换行符
文本 ＝ 文本 ＋ “03 14 23 31 00” ＋ #换行符
文本 ＝ 文本 ＋ “08 19 37 41 00” ＋ #换行符
文本 ＝ 子文本替换 (文本, “00”, “”, , , 真)
数组 ＝ 分割文本 (文本, #换行符, )
调试输出 (数组)
调试输出 (选择开头2 (数组, { 1 }))
调试输出 (选择开头2 (数组, { 3, 0 }))
调试输出 (选择开头2 (数组, { 4, 1, 3 }))
[/e。
还有就是，按照你自己设计的规则，除了第一个，你后面给的两个例子都是错误的。
{ 3, 0 }
正确：34 31 37 01 03 08 18 26 48 14 23 19 41
错误：34 31 41 01 03 08 18 26 48 14 23 19 41
{ 4, 1, 3 }
正确：48 14 41 18 31 19 34 37 01 26 03 23 08
错误：48 14 41 18 19 34 31 37 01 26 03 23 08

千城偶吧

这个那天一个大佬写，但是它不可以依次取，比如4.1.3头，1组有4，2组没有4就该取1头了，这个就直接跳过这组，去3组取4头了 ，我不会改呀~~

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
选择开头	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
开头	整数型

变量名	类 型	静态	数组	备 注
数组	文本型		0
尾部	文本型
数	整数型
首部	文本型
值	整数型
结果	文本型

文本 ＝ 子文本替换 (文本, “00”, “”, , , 真)  ' 删除00
尾部 ＝ 文本
计次循环首 (取数组成员数 (开头), 数)
数组 ＝ 分割文本 (尾部, “ ”, )
首部 ＝ “”
尾部 ＝ “”
计次循环首 (取数组成员数 (数组), 值)
如果真 (数组 [值] ＝ “”)
到循环尾 ()
如果 (取代码 (数组 [值], ) － 取代码 (“0”, ) ＝ 开头 [数])
首部 ＝ 首部 ＋ 数组 [值] ＋ “ ”
尾部 ＝ 尾部 ＋ 数组 [值] ＋ “ ”

计次循环尾 ()
结果 ＝ 结果 ＋ 首部
计次循环尾 ()
返回 (结果 ＋ 尾部)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
选项	整数型		0
结果	文本型

文本 ＝ 文本 ＋ “01 18 26 34 48 ”
文本 ＝ 文本 ＋ “03 14 23 31 00 ”
文本 ＝ 文本 ＋ “08 19 29 37 00 ”
调试输出 (文本)
选项 ＝ { 1 }
结果 ＝ 选择开头 (文本, 选项)
调试输出 (结果)
选项 ＝ { 1, 2 }
结果 ＝ 选择开头 (文本, 选项)
调试输出 (结果)
调试输出 (选择开头 (文本, { 1, 2, 3 }))
调试输出 (选择开头 (文本, { 4, 2, 0 }))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 选择开头, 文本型<br /> .参数 文本, 文本型<br /> .参数 开头, 整数型, 数组<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 尾部, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 首部, 文本型<br /> .局部变量 值, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 文本 ＝ 子文本替换 (文本, “00”, “”, , , 真)  ' 删除00<br /> 尾部 ＝ 文本<br /> .计次循环首 (取数组成员数 (开头), 数)<br />     数组 ＝ 分割文本 (尾部, “ ”, )<br />     首部 ＝ “”<br />     尾部 ＝ “”<br />     .计次循环首 (取数组成员数 (数组), 值)<br />         .如果真 (数组 [值] ＝ “”)<br />             到循环尾 ()<br />         .如果真结束<br />         .如果 (取代码 (数组 [值], ) － 取代码 (“0”, ) ＝ 开头 [数])<br />             首部 ＝ 首部 ＋ 数组 [值] ＋ “ ”<br />         .否则<br />             尾部 ＝ 尾部 ＋ 数组 [值] ＋ “ ”<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     结果 ＝ 结果 ＋ 首部<br /> .计次循环尾 ()<br /> 返回 (结果 ＋ 尾部)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 选项, 整数型, , "0"<br /> .局部变量 结果, 文本型<br /> <br /> 文本 ＝ 文本 ＋ “01 18 26 34 48 ”<br /> 文本 ＝ 文本 ＋ “03 14 23 31 00 ”<br /> 文本 ＝ 文本 ＋ “08 19 29 37 00 ”<br /> 调试输出 (文本)<br /> 选项 ＝ { 1 }<br /> 结果 ＝ 选择开头 (文本, 选项)<br /> 调试输出 (结果)<br /> 选项 ＝ { 1, 2 }<br /> 结果 ＝ 选择开头 (文本, 选项)<br /> 调试输出 (结果)<br /> 调试输出 (选择开头 (文本, { 1, 2, 3 }))<br /> 调试输出 (选择开头 (文本, { 4, 2, 0 }))

千城偶吧

zainex 发表于 2025-5-7 14:50
你可以先分组，然后不断重复移动这个过程：
[e=1].版本 2
.支持库 spec

不是哥 你一直在线啊？

辽阳小哲

看看是不是你要的效果：

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (子程序1 ())
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		3
筛选值数组	整数型		0
过滤值	文本型
i
a
n
temp	文本型		0
匹配文本	文本型
不匹配文本	文本型

过滤值 ＝ “00”
筛选值数组 ＝ { 4, 1, 3 }
文本数组 [1] ＝ “01,18,26,34,48”
文本数组 [2] ＝ “03,14,23,31,00”
文本数组 [3] ＝ “08,19,37,41,00”
计次循环首 (取数组成员数 (筛选值数组), i)
计次循环首 (取数组成员数 (文本数组), a)
temp ＝ 分割文本 (文本数组 [a], “,”, )
计次循环首 (取数组成员数 (temp), n)
如果真 (temp [n] ＝ 过滤值)
到循环尾 ()
如果 (到文本 (筛选值数组 [i]) ＝ 取文本左边 (temp [n], 1))
匹配文本 ＝ 匹配文本 ＋ temp [n] ＋ “,”
不匹配文本 ＝ 子文本替换 (不匹配文本, temp [n] ＋ “,”, “”, , , 真)  ' // 去掉重复数据
文本数组 [a] ＝ 子文本替换 (文本数组 [a], temp [n], 过滤值, , , 真)  ' // 防止重复添加
不匹配文本 ＝ 子文本替换 (不匹配文本, temp [n] ＋ “,”, “”, , , 真)  ' // 去掉重复数据
不匹配文本 ＝ 不匹配文本 ＋ temp [n] ＋ “,”  ' // 加入不匹配文本

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
返回 (匹配文本 ＋ 不匹配文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (子程序1 ())<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1, 文本型<br /> .局部变量 文本数组, 文本型, , "3"<br /> .局部变量 筛选值数组, 整数型, , "0"<br /> .局部变量 过滤值, 文本型<br /> .局部变量 i<br /> .局部变量 a<br /> .局部变量 n<br /> .局部变量 temp, 文本型, , "0"<br /> .局部变量 匹配文本, 文本型<br /> .局部变量 不匹配文本, 文本型<br /> <br /> 过滤值 ＝ “00”<br /> 筛选值数组 ＝ { 4, 1, 3 }<br /> 文本数组 [1] ＝ “01,18,26,34,48”<br /> 文本数组 [2] ＝ “03,14,23,31,00”<br /> 文本数组 [3] ＝ “08,19,37,41,00”<br /> <br /> .计次循环首 (取数组成员数 (筛选值数组), i)<br />     .计次循环首 (取数组成员数 (文本数组), a)<br />         temp ＝ 分割文本 (文本数组 [a], “,”, )<br />         .计次循环首 (取数组成员数 (temp), n)<br />             .如果真 (temp [n] ＝ 过滤值)<br />                 到循环尾 ()<br />             .如果真结束<br />             .如果 (到文本 (筛选值数组 <i>) ＝ 取文本左边 (temp [n], 1))<br />                 匹配文本 ＝ 匹配文本 ＋ temp [n] ＋ “,”<br />                 不匹配文本 ＝ 子文本替换 (不匹配文本, temp [n] ＋ “,”, “”, , , 真)  ' // 去掉重复数据<br />                 文本数组 [a] ＝ 子文本替换 (文本数组 [a], temp [n], 过滤值, , , 真)  ' // 防止重复添加<br />             .否则<br />                 不匹配文本 ＝ 子文本替换 (不匹配文本, temp [n] ＋ “,”, “”, , , 真)  ' // 去掉重复数据<br />                 不匹配文本 ＝ 不匹配文本 ＋ temp [n] ＋ “,”  ' // 加入不匹配文本<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (匹配文本 ＋ 不匹配文本)

补充内容 (2025-5-7 15:01):
代码有点儿乱，对付看吧先