分组排序

小白到此

大佬能帮忙看看这个怎么写吗？
按首字分组后，再按后面的数字由大到小排序....
px.e (852.68 KB, 下载次数: 7)

2024-8-11 23:37 上传

点击文件名下载附件

LEOONL

排序文本.e (958.94 KB, 下载次数: 9)

2024-8-12 08:02 上传

点击文件名下载附件
忘记删“----”了

suyunsq

二维数组排序表格排序超级列表框排序(数值型排序、文本型排序)
https://bbs.125.la/forum.php?mod=viewthread&tid=14565451
(出处: 精易论坛)

LEOONL

排序文本.e (959.34 KB, 下载次数: 8)

2024-8-12 00:43 上传

点击文件名下载附件

真冬

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型		0
i1	整数型
b	文本型

a ＝ 分割文本 (编辑框1.内容, #换行符, )
子程序1排序 (a, , , 2, , 真)  ' 2文本排序
子程序1排序 (a, , , 0, 2)  ' 0分类排序
计次循环首 (取数组成员数 (a), i1)
b ＝ b ＋ a [i1] ＋ #换行符
计次循环尾 ()
编辑框1.内容 ＝ b
调试输出 (“新” ＞ “西”)

子程序名	返回值类型	公开	备 注
子程序1排序
参数名	类 型	参考	可空	数组	备 注
参数1来源	文本型
起始位置	整数型
结束位置	整数型
参数2方案					0分类排序。1右边数字排序，2文本排序
参数3分类长度					分类排序左边文本长度
参数4从小到大	逻辑型

变量名	类 型	静态	数组	备 注
i1	整数型
i2	整数型
i3	整数型
a	字节集
a1	逻辑型
b1	文本型
i12	整数型
b2	文本型

如果真 (起始位置 ≤ 0)
起始位置 ＝ 1
如果真 (结束位置 ≤ 0)
结束位置 ＝ 取数组成员数 (参数1来源)
变量循环首 (起始位置, 结束位置, 1, i1)
判断 (参数2方案 ＝ 0)
b1 ＝ 取文本左边 (参数1来源 [i1], 参数3分类长度)
如果真 (b1 ≠ b2 或 i1 ＝ 结束位置)
b2 ＝ b1
' 调试输出 (i12, i1 － 1 ＋ 到整数 (i1 ＝ 结束位置), b1, b2)
如果真 (i12 ≠ 0)
子程序1排序 (参数1来源, i12, i1 － 1 ＋ 到整数 (i1 ＝ 结束位置), 1, 参数3分类长度, 参数4从小到大)
i12 ＝ i1

b1 ＝ “”
变量循环首 (i1 ＋ 1, 结束位置, 1, i2)
判断 (参数2方案 ＝ 2)
判断 (参数4从小到大)
如果真 (参数1来源 [i1] ＞ 参数1来源 [i2])
交换变量 (参数1来源 [i1], 参数1来源 [i2])

如果真 (参数1来源 [i1] ＜ 参数1来源 [i2])
交换变量 (参数1来源 [i1], 参数1来源 [i2])


判断 (参数2方案 ＝ 1)
a ＝ 到字节集 (参数1来源 [i2])
计次循环首 (1 ＋ 到整数 (b1 ＝ “”), i12)
a1 ＝ 假
变量循环首 (取字节集长度 (a), 1, -1, i3)
判断 (a [i3] ≥ #键0 且 a [i3] ≤ #键9 )
a1 ＝ 真
判断 (a1)
判断 (i12 ＝ 1)
b2 ＝ 取文本右边 (参数1来源 [i2], 取字节集长度 (a) － i3)
b1 ＝ 取文本右边 (参数1来源 [i1], 取字节集长度 (a) － i3)
跳出循环 ()



变量循环尾 ()
a ＝ 到字节集 (参数1来源 [i1])
计次循环尾 ()
判断 (参数4从小到大)
如果真 (到数值 (b1) ＞ 到数值 (b2))
交换变量 (b1, b2)
交换变量 (参数1来源 [i1], 参数1来源 [i2])

如果真 (到数值 (b1) ＜ 到数值 (b2))
交换变量 (b1, b2)
交换变量 (参数1来源 [i1], 参数1来源 [i2])





变量循环尾 ()

变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 b, 文本型<br /> <br /> a ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 子程序1排序 (a, , , 2, , 真)  ' 2文本排序<br /> 子程序1排序 (a, , , 0, 2)  ' 0分类排序<br /> .计次循环首 (取数组成员数 (a), i1)<br />     b ＝ b ＋ a [i1] ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ b<br /> 调试输出 (“新” ＞ “西”)<br /> <br /> .子程序 子程序1排序<br /> .参数 参数1来源, 文本型, 数组<br /> .参数 起始位置, 整数型, 可空<br /> .参数 结束位置, 整数型, 可空<br /> .参数 参数2方案, , 可空, 0分类排序。1右边数字排序，2文本排序<br /> .参数 参数3分类长度, , 可空, 分类排序左边文本长度<br /> .参数 参数4从小到大, 逻辑型, 可空<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 i3, 整数型<br /> .局部变量 a, 字节集<br /> .局部变量 a1, 逻辑型<br /> .局部变量 b1, 文本型<br /> .局部变量 i12, 整数型<br /> .局部变量 b2, 文本型<br /> <br /> .如果真 (起始位置 ≤ 0)<br />     起始位置 ＝ 1<br /> .如果真结束<br /> .如果真 (结束位置 ≤ 0)<br />     结束位置 ＝ 取数组成员数 (参数1来源)<br /> .如果真结束<br /> .变量循环首 (起始位置, 结束位置, 1, i1)<br />     .判断开始 (参数2方案 ＝ 0)<br />         b1 ＝ 取文本左边 (参数1来源 [i1], 参数3分类长度)<br />         .如果真 (b1 ≠ b2 或 i1 ＝ 结束位置)<br />             b2 ＝ b1<br />             ' 调试输出 (i12, i1 － 1 ＋ 到整数 (i1 ＝ 结束位置), b1, b2)<br />             .如果真 (i12 ≠ 0)<br />                 子程序1排序 (参数1来源, i12, i1 － 1 ＋ 到整数 (i1 ＝ 结束位置), 1, 参数3分类长度, 参数4从小到大)<br />             .如果真结束<br />             i12 ＝ i1<br />         .如果真结束<br /> <br />     .默认<br />         b1 ＝ “”<br />         .变量循环首 (i1 ＋ 1, 结束位置, 1, i2)<br />             .判断开始 (参数2方案 ＝ 2)<br />                 .判断开始 (参数4从小到大)<br />                     .如果真 (参数1来源 [i1] ＞ 参数1来源 [i2])<br />                         交换变量 (参数1来源 [i1], 参数1来源 [i2])<br />                     .如果真结束<br /> <br />                 .默认<br />                     .如果真 (参数1来源 [i1] ＜ 参数1来源 [i2])<br />                         交换变量 (参数1来源 [i1], 参数1来源 [i2])<br />                     .如果真结束<br /> <br />                 .判断结束<br /> <br />             .判断 (参数2方案 ＝ 1)<br />                 a ＝ 到字节集 (参数1来源 [i2])<br />                 .计次循环首 (1 ＋ 到整数 (b1 ＝ “”), i12)<br />                     a1 ＝ 假<br />                     .变量循环首 (取字节集长度 (a), 1, -1, i3)<br />                         .判断开始 (a [i3] ≥ #键0 且 a [i3] ≤ #键9)<br />                             a1 ＝ 真<br />                         .判断 (a1)<br />                             .判断开始 (i12 ＝ 1)<br />                                 b2 ＝ 取文本右边 (参数1来源 [i2], 取字节集长度 (a) － i3)<br />                             .默认<br />                                 b1 ＝ 取文本右边 (参数1来源 [i1], 取字节集长度 (a) － i3)<br />                             .判断结束<br />                             跳出循环 ()<br />                         .默认<br /> <br />                         .判断结束<br /> <br />                     .变量循环尾 ()<br />                     a ＝ 到字节集 (参数1来源 [i1])<br />                 .计次循环尾 ()<br />                 .判断开始 (参数4从小到大)<br />                     .如果真 (到数值 (b1) ＞ 到数值 (b2))<br />                         交换变量 (b1, b2)<br />                         交换变量 (参数1来源 [i1], 参数1来源 [i2])<br />                     .如果真结束<br /> <br />                 .默认<br />                     .如果真 (到数值 (b1) ＜ 到数值 (b2))<br />                         交换变量 (b1, b2)<br />                         交换变量 (参数1来源 [i1], 参数1来源 [i2])<br />                     .如果真结束<br /> <br />                 .判断结束<br /> <br />             .默认<br /> <br />             .判断结束<br /> <br />         .变量循环尾 ()<br />     .判断结束<br /> <br /> .变量循环尾 ()

笨来无一悟

无视我的回帖吗 上一个帖子我就回答过你了 用 多条件排序 最终优化版 可以应对几乎一切排序问题

笨来无一悟

敲了个例子~~~这个排序的算法 啥类型都可以排