精易论坛

标题: 超级列表框排序问题 [打印本页]

作者: 毛豆2024    时间: 4 天前
标题: 超级列表框排序问题
超级列表框排序 (超级列表框1, 1, , 0, , 真)
大佬们,怎么排序出来是这样子的,后面的秒数不会按照从小到大。只能排序前面的

作者: Ruang    时间: 4 天前
源码发出来调试看看
作者: 毛豆2024    时间: 4 天前
源码在这里

BOSS计时器.rar

233.31 KB, 下载次数: 3


作者: 毛豆2024    时间: 4 天前
Ruang 发表于 2025-5-8 14:49
源码发出来调试看看

源码发了,在楼下
作者: lisher    时间: 4 天前
我这边上传论坛附件不知道为啥一直上传不上去,用网盘传吧....
https://wwmh.lanzoul.com/iL6FO2vojjhi

作者: aipca    时间: 4 天前
超级列表框排序 (超级列表框1, 1, , 2, , 真)
第4个参数用时间型,用 2
作者: 毛豆2024    时间: 4 天前
aipca 发表于 2025-5-8 15:03
超级列表框排序 (超级列表框1, 1, , 2, , 真)
第4个参数用时间型,用 2

日期我也试了。也是乱的,不懂为什么。
作者: aipca    时间: 4 天前
毛豆2024 发表于 2025-5-8 15:09
日期我也试了。也是乱的,不懂为什么。

所有的都要改  是不是有地方漏改了,我本地试了下没问题
作者: aipca    时间: 4 天前
毛豆2024 发表于 2025-5-8 15:09
日期我也试了。也是乱的,不懂为什么。
  
计次循环首 (61, i)
判断 (i < 10)
组合框1.加入项目 (“0”到文本 (i - 1), )
组合框2.加入项目 (“0”到文本 (i - 1), )
组合框3.加入项目 (“0”到文本 (i - 1), )
判断 (i ≥ 10 i < 25)
组合框1.加入项目 (到文本 (i - 1), )



组合框2.加入项目 (到文本 (i - 1), )
组合框3.加入项目 (到文本 (i - 1), )
计次循环尾 ()


把这里改了 你0列写入的格式不是标准的时间格式。是因为你的组合框插入的是数字格式 不是时间双字节格式


作者: aipca    时间: 4 天前
才发现上面写的也不对 为啥用的不是60 用61这么奇怪数?重新改了下
  
计次循环首 (60, i)
判断 (i ≤ 10)
组合框1.加入项目 (“0”到文本 (i - 1), )
组合框2.加入项目 (“0”到文本 (i - 1), )
组合框3.加入项目 (“0”到文本 (i - 1), )
判断 (i > 10 i ≤ 24)
组合框1.加入项目 (到文本 (i - 1), )
组合框2.加入项目 (到文本 (i - 1), )
组合框3.加入项目 (到文本 (i - 1), )
判断 (i > 24)
组合框2.加入项目 (到文本 (i - 1), )
组合框3.加入项目 (到文本 (i - 1), )



计次循环尾 ()


作者: aipca    时间: 4 天前
上传个附件吧

BOSS计时器.E

978.54 KB, 下载次数: 0


作者: 大熊猫玩编程    时间: 4 天前
望采纳。。。

  
子程序名返回值类型公开备 注
排序时间  
变量名类 型静态数组备 注
i整数型 
时间参数文本型 
临时数组文本型0
j整数型 
最后位置整数型 
未比数据数量整数型 
位置变量整数型 
临时数组1文本型0
表项整数型 
时间数组文本型0
交换变量文本型 
位置变量1整数型 
未比数据数量1整数型 
计次循环首 (超级列表框1.取表项数 (), i)
时间参数 = 超级列表框1.取标题 (i - 1, 1)
如果真 (时间参数 = “”)
到循环尾 ()
调试输出 (时间参数, i)
加入成员 (时间数组, 时间参数)
计次循环尾 ()
未比数据数量 = 取数组成员数 (时间数组)
未比数据数量1 = 未比数据数量
调试输出 (“未比数据数量:”, 未比数据数量)
判断循环首 (未比数据数量 > 0)
最后位置 = 0
变量循环首 (1, 未比数据数量 - 1, 1, 位置变量)
文本_分割文本 (时间数组 [位置变量], “:”, , 临时数组)
文本_分割文本 (时间数组 [位置变量 + 1], “:”, , 临时数组1)
调试输出 (“位置变量:”, 位置变量, 临时数组 [1])
如果真 (到整数 (临时数组 [1])到整数 (临时数组1 [1]))
交换变量 = 时间数组 [位置变量]  ' 数据组可以是变量、文件、数据库(这里用的是变量)
时间数组 [位置变量] = 时间数组 [位置变量 + 1]
时间数组 [位置变量 + 1] = 交换变量  ' 以上3行代码是交换用的
最后位置 = 位置变量

变量循环尾 ()
未比数据数量 = 最后位置  ' 下一行排序从第一个数开始到上次排序的最后被改变的位数
判断循环尾 ()
判断循环首 (未比数据数量1 > 0)
最后位置 = 0
变量循环首 (1, 未比数据数量1 - 1, 1, 位置变量1)
文本_分割文本 (时间数组 [位置变量1], “:”, , 临时数组)
文本_分割文本 (时间数组 [位置变量1 + 1], “:”, , 临时数组1)
调试输出 (“位置变量:”, 位置变量1, 临时数组 [2])
如果真 (到整数 (临时数组 [2])到整数 (临时数组1 [2]) 到整数 (临时数组 [1])到整数 (临时数组1 [1]))
交换变量 = 时间数组 [位置变量1]  ' 数据组可以是变量、文件、数据库(这里用的是变量)
时间数组 [位置变量1] = 时间数组 [位置变量1 + 1]
时间数组 [位置变量1 + 1] = 交换变量  ' 以上3行代码是交换用的
最后位置 = 位置变量1

变量循环尾 ()
未比数据数量1 = 最后位置  ' 下一行排序从第一个数开始到上次排序的最后被改变的位数
判断循环尾 ()
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (时间数组), j)
调试输出 (时间数组 [j])
表项 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 到文本 (j + 1))
超级列表框1.置标题 (表项, 1, 时间数组 [j])
计次循环尾 ()


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


作者: 壹吧    时间: 4 天前
https://125.confly.eu.org/forum.php?mod ... 45&pid=30292736


人家发的可用啊,可以排序喔, 你咋想的。

作者: 走一回    时间: 4 天前
如果后面出现14、23,估计你的排序方法还会出错的。可以考虑全部转化成秒来用整数进行排序。
作者: 1752328925    时间: 4 天前
没什么问题,日期小的在前面
作者: 熬夜    时间: 4 天前
给你个思路  比如 时间2000年 2000-1-1 0:0:0

你把你要排序的都加上
2000-1-1 0:16:17
2000-1-1 1:16:17

然后时间差 相减   进行结果对比大小 就可以 知道时间大小了

作者: 算法艺术家    时间: 4 天前
  
子程序名返回值类型公开备 注
超级列表框排序整数型 返回排序时间,选中后排序还选中,必须项目数值不为0 没有默认为1
参数名类 型参考可空数组备 注
对象超级列表框
列索引整数型索引值从 0 开始。
实际数据文本型格式 {“今天:0”,“明天:1”}    # iiiou添加该参数
类型整数型0=数值;1=文本;2=日期时间;3=逻辑;4=图片索引   # iiiou添加类型4
区分大小写逻辑型真为区分,默认为真
排序方式逻辑型真为小到大,默认为真
变量名类 型静态数组备 注
排序时间整数型 
排序变量文本型0
序号数组整数型0
表项数值整数型0
图片数组整数型0# iiiou添加
状态图片整数型0# iiiou添加
变量整数型 
数据文本型 
列数整数型 
行数整数型 
单元数整数型 
选中项整数型 
i# iiiou添加
排序时间 = 取启动时间 ()
类型 = 选择 (类型 ≥ 0 类型 ≤ 4, 类型, 1)
区分大小写 = 选择 (是否为空 (区分大小写), 真, 区分大小写)
排序方式 = 选择 (是否为空 (排序方式), 真, 排序方式)
如果真 (对象.现行选中项 ≠ -1)
如果真 (对象.取表项数值 (对象.现行选中项) = 0)
对象.置表项数值 (对象.现行选中项, 1)
选中项 = 对象.取表项数值 (对象.现行选中项)
计次循环首 (对象.取表项数 (), 变量)
如果 (类型 = 4)  ' # iiiou添加
数据 = 到文本 (对象.取图片 (变量 - 1, 列索引))
数据 = 删首尾空 (对象.取标题 (变量 - 1, 列索引))
计次循环首 (取数组成员数 (实际数据), i)  ' # iiiou添加
如果真 (取文本左边 (实际数据 [i], 取文本长度 (数据) + 1) = 数据 + “:”)
数据 = 子文本替换 (实际数据 [i], 数据 + “:”, “”, , , )
跳出循环 ()

计次循环尾 ()
如果 (类型 ≠ 3)
如果 (类型 = 4)  ' # iiiou添加
单元数 = 运算_二分查找 (排序变量, 数据, 0, 区分大小写)
单元数 = 运算_二分查找 (排序变量, 数据, 类型, 区分大小写)
插入成员 (排序变量, 单元数, 数据)
插入成员 (序号数组, 单元数, 变量 - 1)
插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 - 1))
插入成员 (状态图片, 单元数, 对象.取当前状态图片 (变量 - 1))  ' # iiiou添加
插入成员 (序号数组, 选择 (数据 = “假”, 变量, 1), 变量 - 1)
插入成员 (表项数值, 选择 (数据 = “假”, 变量, 1), 对象.取表项数值 (变量 - 1))
插入成员 (状态图片, 选择 (数据 = “假”, 变量, 1), 对象.取当前状态图片 (变量 - 1))  ' # iiiou添加

计次循环尾 ()
列数 = 对象.取列数 ()
行数 = 取数组成员数 (序号数组)
单元数 = 行数 × 列数
重定义数组 (排序变量, 假, 单元数)
重定义数组 (图片数组, 假, 单元数)  ' # iiiou添加
计次循环首 (单元数, 变量)
排序变量 [变量] = 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数)�� (变量 - 1) \ 列数)], (变量 - 1) % 列数)
图片数组 [变量] = 对象.取图片 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数)�� (变量 - 1) \ 列数)], (变量 - 1) % 列数)  ' # iiiou添加
计次循环尾 ()
计次循环首 (单元数, 变量)
对象.置标题 ( (变量 - 1)列数, (变量 - 1) % 列数, 排序变量 [变量])
对象.置表项数值 ( (变量 - 1) \ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数)�� (变量 - 1) \ 列数)])  ' 本来加个判断的,算啦,为了提高速度,多重复置表项数值几次吧:)
如果真 (图片数组 [变量] ≠ -1)
对象.置图片 ( (变量 - 1)列数, (变量 - 1) % 列数, 图片数组 [变量])  ' # iiiou添加
如果真 (状态图片 [取绝对值 (选择 (排序方式, -1, 行数)�� (变量 - 1) \ 列数)] ≠ -1)
对象.置状态图片 ( (变量 - 1) \ 列数, 状态图片 [取绝对值 (选择 (排序方式, -1, 行数)�� (变量 - 1) \ 列数)])  ' # iiiou添加

计次循环尾 ()
如果真 (选中项 ≠ 0)
计次循环首 (对象.取表项数 (), 变量)
如果真 (对象.取表项数值 (变量 - 1) = 选中项)
对象.现行选中项 = 变量 - 1
对象.保证显示 (变量 - 1)
跳出循环 ()

计次循环尾 ()
返回 (取启动时间 () - 排序时间)


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






欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4