超级列表框排序

qawsedzz002

超级列表框的排序，看了3天硬是没看懂逻辑，脑子一点思路都没，太可怕了，各位大神都是如何写按表头从大到小或者从小到大的

qawsedzz002

  

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

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

变量名	类 型	静态	数组	备 注
初始数	整数型
索引	整数型

计次循环首 (5, 初始数)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引))
超级列表框1.置标题 (索引, 1, 到文本 (初始数))
超级列表框1.置标题 (索引, 2, 字符 (64 ＋ 初始数))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_表头被单击
参数名	类 型	参考	可空	数组	备 注
被单击列索引	整数型

变量名	类 型	静态	数组	备 注
列标题	文本型
取列数	整数型
取列标题数	整数型
列内容	文本型
数组列内容	文本型		0
i	整数型
i1	整数型
列临时	文本型
接收临时变量	文本型
文本长度	整数型
分割长度	整数型
排序长度	整数型
数组临时	文本型		0
行数	整数型

如果真 (被单击列索引 ≤ 0)
返回 ()
列标题 ＝ 超级列表框1.取列标题 (被单击列索引)
' =====================给标题增加 ↑ 箭头和 ↓ 箭头========================'
判断 (寻找文本 (列标题, “↑”, , 假) ＞ -1)
超级列表框1.置列标题 (被单击列索引, 子文本替换 (列标题, “↑”, “↓”, , , 真))
判断 (寻找文本 (列标题, “↓”, , 假) ＞ -1)
超级列表框1.置列标题 (被单击列索引, 子文本替换 (列标题, “↓”, “↑”, , , 真))
超级列表框1.置列标题 (被单击列索引, 列标题 ＋ 到文本 (“↑”))
计次循环首 (超级列表框1.取列数 () － 1, 取列数)
如果真 (取列数 ≠ 被单击列索引)
超级列表框1.置列标题 (取列数, 文本_替换 (超级列表框1.取列标题 (取列数), , , , “↑”, “”, “↓”, “”, , , , , , ))

计次循环尾 ()
' =========================取列表框的内容并赋值到一起========================'
计次循环首 (超级列表框1.取表项数 (), 取列标题数)
列内容 ＝ 超级列表框1.取标题 (取列标题数 － 1, 被单击列索引)
接收临时变量 ＝ 接收临时变量 ＋ 列内容
计次循环尾 ()
' =========================先分割文本，然后把文本变成数组=====================
数组列内容 ＝ 分割文本 (接收临时变量, , )
文本长度 ＝ 取文本长度 (接收临时变量)
计次循环首 (文本长度, 分割长度)
加入成员 (数组临时, 取文本中间 (接收临时变量, 分割长度, 1))
计次循环尾 ()
' =========================使用冒泡排序进行大小比对============================'
计次循环首 (取数组成员数 (数组临时), i)
计次循环首 (取数组成员数 (数组临时), i1)
如果真 (i ≠ i1)
如果真 (数组临时 [i] ＞ 数组临时 [i1])
列临时 ＝ 数组临时 [i]
数组临时 [i] ＝ 数组临时 [i1]
数组临时 [i1] ＝ 列临时


计次循环尾 ()
计次循环尾 ()
调试输出 (数组临时)
' =========================开始对列表框进行排序============================'
超级列表框1.删除表项 (超级列表框1.取表项数 ())
计次循环首 (取数组成员数 (数组临时), 排序长度)
行数 ＝ 超级列表框1.插入表项 (, , , , , )
如果真 (被单击列索引 ＝ 1)
超级列表框1.置标题 (行数, 被单击列索引, 到文本 (数组临时 [排序长度]))
如果真 (被单击列索引 ＝ 2)
超级列表框1.置标题 (行数, 被单击列索引, 到文本 (数组临时 [排序长度]))

计次循环尾 ()
大佬帮忙看看啊 搞不定了，我知道有很多例子和源码 ，主要全部看不懂啊，看看我这个加点啥才能让他正常排序 12345 ABCDE 排序后是 54321 EFDCBA

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 初始数, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (5, 初始数)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引))<br />     超级列表框1.置标题 (索引, 1, 到文本 (初始数))<br />     超级列表框1.置标题 (索引, 2, 字符 (64 ＋ 初始数))<br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_表头被单击<br /> .参数 被单击列索引, 整数型<br /> .局部变量 列标题, 文本型<br /> .局部变量 取列数, 整数型<br /> .局部变量 取列标题数, 整数型<br /> .局部变量 列内容, 文本型<br /> .局部变量 数组列内容, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 i1, 整数型<br /> .局部变量 列临时, 文本型<br /> .局部变量 接收临时变量, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 分割长度, 整数型<br /> .局部变量 排序长度, 整数型<br /> .局部变量 数组临时, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> <br /> .如果真 (被单击列索引 ≤ 0)<br />     返回 ()<br /> .如果真结束<br /> 列标题 ＝ 超级列表框1.取列标题 (被单击列索引)<br /> ' =====================给标题增加 ↑ 箭头和 ↓ 箭头========================'<br /> .判断开始 (寻找文本 (列标题, “↑”, , 假) ＞ -1)<br />     超级列表框1.置列标题 (被单击列索引, 子文本替换 (列标题, “↑”, “↓”, , , 真))<br /> .判断 (寻找文本 (列标题, “↓”, , 假) ＞ -1)<br />     超级列表框1.置列标题 (被单击列索引, 子文本替换 (列标题, “↓”, “↑”, , , 真))<br /> .默认<br />     超级列表框1.置列标题 (被单击列索引, 列标题 ＋ 到文本 (“↑”))<br /> .判断结束<br /> .计次循环首 (超级列表框1.取列数 () － 1, 取列数)<br />     .如果真 (取列数 ≠ 被单击列索引)<br />         超级列表框1.置列标题 (取列数, 文本_替换 (超级列表框1.取列标题 (取列数), , , , “↑”, “”, “↓”, “”, , , , , , ))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' =========================取列表框的内容并赋值到一起========================'<br /> .计次循环首 (超级列表框1.取表项数 (), 取列标题数)<br />     列内容 ＝ 超级列表框1.取标题 (取列标题数 － 1, 被单击列索引)<br />     接收临时变量 ＝ 接收临时变量 ＋ 列内容<br /> .计次循环尾 ()<br /> ' =========================先分割文本，然后把文本变成数组=====================<br /> 数组列内容 ＝ 分割文本 (接收临时变量, , )<br /> 文本长度 ＝ 取文本长度 (接收临时变量)<br /> .计次循环首 (文本长度, 分割长度)<br />     加入成员 (数组临时, 取文本中间 (接收临时变量, 分割长度, 1))<br /> .计次循环尾 ()<br /> ' =========================使用冒泡排序进行大小比对============================'<br /> .计次循环首 (取数组成员数 (数组临时), i)<br />     .计次循环首 (取数组成员数 (数组临时), i1)<br />         .如果真 (i ≠ i1)<br />             .如果真 (数组临时 <i> ＞ 数组临时 [i1])<br />                 列临时 ＝ 数组临时 <i><br />                 数组临时 <i> ＝ 数组临时 [i1]<br />                 数组临时 [i1] ＝ 列临时<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (数组临时)<br /> ' =========================开始对列表框进行排序============================'<br /> <br /> 超级列表框1.删除表项 (超级列表框1.取表项数 ())<br /> .计次循环首 (取数组成员数 (数组临时), 排序长度)<br />     行数 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .如果真 (被单击列索引 ＝ 1)<br />         超级列表框1.置标题 (行数, 被单击列索引, 到文本 (数组临时 [排序长度]))<br />     .如果真结束<br />     .如果真 (被单击列索引 ＝ 2)<br />         超级列表框1.置标题 (行数, 被单击列索引, 到文本 (数组临时 [排序长度]))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 大佬帮忙看看啊 搞不定了，我知道有很多例子和源码 ，主要全部看不懂啊，看看我这个加点啥才能让他正常排序 12345 ABCDE 排序后是 54321 EFDCBA

houtian

qawsedzz002 发表于 2024-3-17 21:35
大佬空了 帮我看看吧  搞不定 多维数组 不会弄

超级列表框的数值可以看做是二维数组, 比如
数组[1][1] = 超级列表框第一行,第一列  也就是 取标题(0,0)
数组[1][2] = 超级列表框第一行,第二列  也就是 取标题(0,1)
数组[2][1] = 超级列表框第二行,第一列  也就是 取标题(1,0)

opozyl

https://bbs.125.la/forum.php?mod ... 6%E6%8E%92%E5%BA%8F

opozyl

opozyl 发表于 2024-3-14 17:53
https://bbs.125.la/forum.php?mod=viewthread&tid=14103644&highlight=%E8%B6%85%E7%BA%A7%E5%88%97%E8%A1 ...

可以试试希尔排序模块

xf702

精易模块中的列排序，简单，方便，直接。。。

qawsedzz002

xf702 发表于 2024-3-14 18:47
精易模块中的列排序，简单，方便，直接。。。

命令是啥 有例子吗 不懂啊

zzh233

opozyl 发表于 2024-3-14 17:54
可以试试希尔排序模块

希尔排序模块的确速度快 但是就是比较麻烦 需要修改源码的列数来适应 打算修改一下 改成自适应列数

Av0x

zzh233 发表于 2024-3-14 19:14
希尔排序模块的确速度快 但是就是比较麻烦 需要修改源码的列数来适应 打算修改一下 改成自适应列数
...

改成自适应后记得发下模块哈

zzh233

Av0x 发表于 2024-3-14 19:36
改成自适应后记得发下模块哈

嗯 因为 他需要修改列数来保存排序前的每列数据 所以 我觉得可以改成 保存数组就行了

houtian

用万能的冒泡算法排序, 虽然效率低,  但是简单啊