求助整理排序

我很低调

整理求助.e (2.63 KB, 下载次数: 9)

2024-8-25 19:50 上传

点击文件名下载附件   要求 点击整理按钮 把 状态  是 排列到一起 把 否 的排列到一起    点击打乱  是 否 混合打乱即可

LEOONL

  

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

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

整理打乱 (3)

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

整理打乱 (2)

子程序名	返回值类型	公开	备 注
整理打乱
参数名	类 型	参考	可空	数组	备 注
类型	整数型

变量名	类 型	静态	数组	备 注
文本	文本型
n	整数型
q	整数型
排序	文本型		0
分割	文本型		0

计次循环首 (超级列表框1.取表项数 (), n)
计次循环首 (超级列表框1.取列数 (), q)
文本 ＝ 文本 ＋ 超级列表框1.取标题 (n － 1, q － 1) ＋ “----”
计次循环尾 ()
文本 ＝ 文本 ＋ #换行符
计次循环尾 ()
超级列表框1.全部删除 ()
文本_分割文本排序_快速 (文本, #换行符, “----”, 类型, 1, , 排序)
计次循环首 (取数组成员数 (排序), n)
分割 ＝ 分割文本 (排序 [n], “----”, )
超级列表框1.插入表项 (, 到文本 (n), , , , )
计次循环首 (取数组成员数 (分割) － 1, q)
超级列表框1.置标题 (n － 1, q, 分割 [q ＋ 1])
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 整理打乱 (3)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 整理打乱 (2)<br /> <br /> .子程序 整理打乱<br /> .参数 类型, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 q, 整数型<br /> .局部变量 排序, 文本型, , "0"<br /> .局部变量 分割, 文本型, , "0"<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     .计次循环首 (超级列表框1.取列数 (), q)<br />         文本 ＝ 文本 ＋ 超级列表框1.取标题 (n － 1, q － 1) ＋ “----”<br />     .计次循环尾 ()<br />     文本 ＝ 文本 ＋ #换行符<br /> .计次循环尾 ()<br /> 超级列表框1.全部删除 ()<br /> 文本_分割文本排序_快速 (文本, #换行符, “----”, 类型, 1, , 排序)<br /> .计次循环首 (取数组成员数 (排序), n)<br />     分割 ＝ 分割文本 (排序 [n], “----”, )<br />     超级列表框1.插入表项 (, 到文本 (n), , , , )<br />     .计次循环首 (取数组成员数 (分割) － 1, q)<br />         超级列表框1.置标题 (n － 1, q, 分割 [q ＋ 1])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

我很低调

LEOONL 发表于 2024-8-25 20:11
[e=0].版本 2
.支持库 iext

代码太多了能不能简化一下

深寒

都是力气活，好像没什么技术含量。

整理求助.e (6.1 KB, 下载次数: 4)

2024-8-25 20:19 上传

点击文件名下载附件

我很低调

深寒 发表于 2024-8-25 20:20
都是力气活，好像没什么技术含量。

你这代码不行  我9行代码就搞定的事 你用这么多代码

我很低调

LEOONL 发表于 2024-8-25 20:11
[e=0].版本 2
.支持库 iext

我自己写好了还是给你最佳吧