救命。数组中的数字排序。。。。

linxueyue

如题，数据是这样的，文本数组[1]="76-----随机文本"，文本数组[2]=”99-----随机文本2“，文本数组[N]=”XX-----随机文本N“，把所有的数组成员，前面的数字排序，从高到底，取第一个，需要怎么写呢？谢谢，还有，精易论坛真的非常好，我N年前就发帖求助，一直都有高手回帖，，，可惜自己一直是菜鸟，，不知道何时才能回贴帮助一下菜鸟，，

华武

https://bbs.125.la/forum.php?mod=viewthread&tid=14857557  这个里面有一个例子源码，源码里有两个整数型按大或按小排序的函数，你拿去改成文本型就可以了，数组就用 数组_合并 ()这个来合一下

补充内容 (2025-6-13 06:34):
或者试试  数组_排序 () ？

补充内容 (2025-6-13 07:00):
混合型的单维数组排序发了，但是在审核，你等等回贴

华武

局_数组 ＝ { “50----文字一”, “12----程序集”, “30----子程序”, “1我----被单击”, “8----看看”, “60----测试”, “01----依旧” }
[06:58:31] * Windows 10
[06:58:32] * “01----依旧”
[06:58:32] * “1我----被单击”
[06:58:32] * “8----看看”
[06:58:32] * “12----程序集”
[06:58:32] * “30----子程序”
[06:58:32] * “50----文字一”
[06:58:32] * “60----测试”
[06:58:36] 被调试易程序运行完毕


代码是之前找AI写各种规则排序法的时候让AI写的，刚才拿来测了一下，你可以拿去多测一下

  

子程序名	返回值类型	公开	备 注
混合型排序
参数名	类 型	参考	可空	数组	备 注
数组	文本型
升序	逻辑型				默认为真  从小到大

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
临时	文本型
比较结果	整数型

如果真 (是否为空 (升序))
升序 ＝ 真
计次循环首 (取数组成员数 (数组) － 1, i)
计次循环首 (取数组成员数 (数组) － i, j)
比较结果 ＝ 混合型比较 (数组 [j], 数组 [j ＋ 1])
如果真 (升序 且 比较结果 ＞ 0 或 取反 (升序) 且 比较结果 ＜ 0)
临时 ＝ 数组 [j]
数组 [j] ＝ 数组 [j ＋ 1]
数组 [j ＋ 1] ＝ 临时

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
混合型比较	整数型
参数名	类 型	参考	可空	数组	备 注
文本1	文本型
文本2	文本型

变量名	类 型	静态	数组	备 注
i	整数型
len1	整数型
len2	整数型
类型1	整数型
类型2	整数型
数字值1	整数型
数字值2	整数型
数字结束位置1	整数型
数字结束位置2	整数型

len1 ＝ 取文本长度 (文本1)
len2 ＝ 取文本长度 (文本2)
i ＝ 1
判断循环首 (i ≤ len1 且 i ≤ len2)
如果 (是否为数字 (取文本中间 (文本1, i, 1)) 且 是否为数字 (取文本中间 (文本2, i, 1)))
数字值1 ＝ 提取数字 (文本1, i, 数字结束位置1)
数字值2 ＝ 提取数字 (文本2, i, 数字结束位置2)
如果真 (数字值1 ≠ 数字值2)
返回 (数字值1 － 数字值2)

i ＝ 数字结束位置1
类型1 ＝ 取字符类型 (取代码 (取文本中间 (文本1, i, 1), ))
类型2 ＝ 取字符类型 (取代码 (取文本中间 (文本2, i, 1), ))
如果真 (类型1 ≠ 类型2)
返回 (类型1 － 类型2)

如果真 (取代码 (取文本中间 (文本1, i, 1), ) ≠ 取代码 (取文本中间 (文本2, i, 1), ))
返回 (取代码 (取文本中间 (文本1, i, 1), ) － 取代码 (取文本中间 (文本2, i, 1), ))

i ＝ i ＋ 1

判断循环尾 ()
返回 (len1 － len2)

子程序名	返回值类型	公开	备 注
提取数字	整数型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
起始位置	整数型
结束位置	整数型

变量名	类 型	静态	数组	备 注
数字文本	文本型
i	整数型

i ＝ 起始位置
判断循环首 (i ≤ 取文本长度 (文本))
如果 (是否为数字 (取文本中间 (文本, i, 1)))
数字文本 ＝ 数字文本 ＋ 取文本中间 (文本, i, 1)
跳出循环 ()
i ＝ i ＋ 1
判断循环尾 ()
结束位置 ＝ i
返回 (到整数 (数字文本))

子程序名	返回值类型	公开	备 注
是否为数字	逻辑型
参数名	类 型	参考	可空	数组	备 注
字符	文本型

变量名	类 型	静态	数组	备 注
字符代码	整数型

字符代码 ＝ 取代码 (字符, )
返回 (字符代码 ≥ 48 且 字符代码 ≤ 57)

子程序名	返回值类型	公开	备 注
取字符类型	整数型
参数名	类 型	参考	可空	数组	备 注
字符代码	整数型

如果真 (字符代码 ≥ 48 且 字符代码 ≤ 57)  ' 数字
返回 (1)
如果真 (字符代码 ≥ 97 且 字符代码 ≤ 122)  ' 小写字母
返回 (2)
如果真 (字符代码 ≥ 65 且 字符代码 ≤ 90)  ' 大写字母
返回 (3)
返回 (4)

.版本 2<br /> <br /> .子程序 混合型排序<br /> .参数 数组, 文本型, 数组<br /> .参数 升序, 逻辑型, 可空, 默认为真  从小到大<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 比较结果, 整数型<br /> <br /> .如果真 (是否为空 (升序))<br />     升序 ＝ 真<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (数组) － 1, i)<br />     .计次循环首 (取数组成员数 (数组) － i, j)<br />         比较结果 ＝ 混合型比较 (数组 [j], 数组 [j ＋ 1])<br />         .如果真 (升序 且 比较结果 ＞ 0 或 取反 (升序) 且 比较结果 ＜ 0)<br />             临时 ＝ 数组 [j]<br />             数组 [j] ＝ 数组 [j ＋ 1]<br />             数组 [j ＋ 1] ＝ 临时<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 混合型比较, 整数型<br /> .参数 文本1, 文本型<br /> .参数 文本2, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 len1, 整数型<br /> .局部变量 len2, 整数型<br /> .局部变量 类型1, 整数型<br /> .局部变量 类型2, 整数型<br /> .局部变量 数字值1, 整数型<br /> .局部变量 数字值2, 整数型<br /> .局部变量 数字结束位置1, 整数型<br /> .局部变量 数字结束位置2, 整数型<br /> <br /> len1 ＝ 取文本长度 (文本1)<br /> len2 ＝ 取文本长度 (文本2)<br /> i ＝ 1<br /> .判断循环首 (i ≤ len1 且 i ≤ len2)<br />     .如果 (是否为数字 (取文本中间 (文本1, i, 1)) 且 是否为数字 (取文本中间 (文本2, i, 1)))<br />         数字值1 ＝ 提取数字 (文本1, i, 数字结束位置1)<br />         数字值2 ＝ 提取数字 (文本2, i, 数字结束位置2)<br /> <br />         .如果真 (数字值1 ≠ 数字值2)<br />             返回 (数字值1 － 数字值2)<br />         .如果真结束<br /> <br />         i ＝ 数字结束位置1<br />     .否则<br />         类型1 ＝ 取字符类型 (取代码 (取文本中间 (文本1, i, 1), ))<br />         类型2 ＝ 取字符类型 (取代码 (取文本中间 (文本2, i, 1), ))<br /> <br />         .如果真 (类型1 ≠ 类型2)<br />             返回 (类型1 － 类型2)<br />         .如果真结束<br /> <br />         .如果真 (取代码 (取文本中间 (文本1, i, 1), ) ≠ 取代码 (取文本中间 (文本2, i, 1), ))<br />             返回 (取代码 (取文本中间 (文本1, i, 1), ) － 取代码 (取文本中间 (文本2, i, 1), ))<br />         .如果真结束<br /> <br />         i ＝ i ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 返回 (len1 － len2)<br /> <br /> .子程序 提取数字, 整数型<br /> .参数 文本, 文本型<br /> .参数 起始位置, 整数型<br /> .参数 结束位置, 整数型, 参考<br /> .局部变量 数字文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 起始位置<br /> .判断循环首 (i ≤ 取文本长度 (文本))<br />     .如果 (是否为数字 (取文本中间 (文本, i, 1)))<br />         数字文本 ＝ 数字文本 ＋ 取文本中间 (文本, i, 1)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> 结束位置 ＝ i<br /> 返回 (到整数 (数字文本))<br /> <br /> .子程序 是否为数字, 逻辑型<br /> .参数 字符, 文本型<br /> .局部变量 字符代码, 整数型<br /> <br /> 字符代码 ＝ 取代码 (字符, )<br /> 返回 (字符代码 ≥ 48 且 字符代码 ≤ 57)<br /> <br /> .子程序 取字符类型, 整数型<br /> .参数 字符代码, 整数型<br /> <br /> .如果真 (字符代码 ≥ 48 且 字符代码 ≤ 57)  ' 数字<br />     返回 (1)<br /> .如果真结束<br /> .如果真 (字符代码 ≥ 97 且 字符代码 ≤ 122)  ' 小写字母<br />     返回 (2)<br /> .如果真结束<br /> .如果真 (字符代码 ≥ 65 且 字符代码 ≤ 90)  ' 大写字母<br />     返回 (3)<br /> .如果真结束<br /> 返回 (4)

华武

[JavaScript] 纯文本查看 复制代码

局_数组 ＝ { “50----文字一”, “12----程序集”, “30----子程序”, “1我----被单击”, “8----看看”, “60----测试”, “01----依旧” }

[06:58:31] * Windows 10
[06:58:32] * “01----依旧”
[06:58:32] * “1我----被单击”
[06:58:32] * “8----看看”
[06:58:32] * “12----程序集”
[06:58:32] * “30----子程序”
[06:58:32] * “50----文字一”
[06:58:32] * “60----测试”
[06:58:36] 被调试易程序运行完毕

代码在审核，你等等

afu45

  

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

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

' 生成测试用数据
置随机数种子 ()
计次循环首 (10, i)
加入成员 (文本数组, 到文本 (取随机数 (1, 99)) ＋ “-----” ＋ 文本_取随机汉字 (5, ) ＋ 到文本 (i))
计次循环尾 ()
调试输出 (文本数组)
' 开始处理
txt ＝ 数组_合并 (文本数组, #换行符 )
结果文本 ＝ 文本_分割文本排序_快速 (txt, , “-----”, 1, 2, 假, )
调试输出 (结果文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 结果文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 txt, 文本型<br /> <br /> ' 生成测试用数据<br /> 置随机数种子 ()<br /> .计次循环首 (10, i)<br />     加入成员 (文本数组, 到文本 (取随机数 (1, 99)) ＋ “-----” ＋ 文本_取随机汉字 (5, ) ＋ 到文本 (i))<br /> .计次循环尾 ()<br /> 调试输出 (文本数组)<br /> ' 开始处理<br /> <br /> txt ＝ 数组_合并 (文本数组, #换行符)<br /> 结果文本 ＝ 文本_分割文本排序_快速 (txt, , “-----”, 1, 2, 假, )<br /> 调试输出 (结果文本)

萧楚楠

精易模块，数组排序1（数组）

华武

华武 发表于 2025-6-13 07:00
局_数组 ＝ { “50----文字一”, “12----程序集”, “30----子程序”, “1我----被单击”, “8----看看”, ...

没听明白你的意思，你不是要把数组里带有数字的文本进行按大排序后，取第一个吗? 代码不是可以帮你把数组按大/按小排序了吗？排完  文本数组[1] 不就是你想要的最大的那个了吗？

补充内容 (2025-6-14 09:14):
afu45 的方法更简单，就是精易模块里面集成了一个和我上面的类似排序代码，afu45自己写的，直接调用进行排序后取第一个，或者你没有讲清楚？

afu45

文本_分割文本排序_快速（） 精易模块
https://ec.125.la/

我又不乱来6

数组_排序 () ？