超级列表框顺序排列

白小川

有大佬帮忙改一下吗，打开后，自动排列顺序



超级列表框.e (1.03 MB, 下载次数: 5)

6 天前 上传

点击文件名下载附件 作战数据.zip (1.91 KB, 下载次数: 1)

6 天前 上传

点击文件名下载附件



补充内容 (2025-3-20 11:36):
根据 “生命数值”排序

补充内容 (2025-3-20 11:36):
根据 “生命”数值来排序

aipca

懒人模块 最方便 或是使用扩展界面库一—EX的收费版本

补充内容 (2025-3-20 11:41):
超级列表框排序 (超级列表框1, 4, 0, , )

补充内容 (2025-3-20 11:42):
超级列表框排序 (超级列表框1, 4, 0, , )

拾肆

  

子程序名	返回值类型	公开	备 注
超列_排序	整数型		返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1
参数名	类 型	参考	可空	数组	备 注
对象	超级列表框
列索引	整数型				索引值从 0 开始。
类型	整数型				0=数值;1=文本;2=日期时间;3=逻辑
区分大小写	逻辑型				真为区分,默认为真
排序方式	逻辑型				真为小到大,默认为真

变量名	类 型	静态	数组	备 注
排序时间	整数型
排序变量	文本型		0
序号数组	整数型		0
表项数值	整数型		0
变量	整数型
数据	文本型
列数	整数型
行数	整数型
单元数	整数型
选中项	整数型

排序时间 ＝ 取启动时间 ()
类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 3, 类型, 1)
区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)
排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)
如果真 (对象.现行选中项 ≠ -1)
如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)
对象.置表项数值 (对象.现行选中项, 1)
选中项 ＝ 对象.取表项数值 (对象.现行选中项)
计次循环首 (对象.取表项数 (), 变量)
数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))
如果 (类型 ≠ 3)
单元数 ＝ 二分查找 (排序变量, 数据, 类型, 区分大小写)
插入成员 (排序变量, 单元数, 数据)
插入成员 (序号数组, 单元数, 变量 － 1)
插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))
插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)
插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))

计次循环尾 ()
列数 ＝ 对象.取列数 ()
行数 ＝ 取数组成员数 (序号数组)
单元数 ＝ 行数 × 列数
重定义数组 (排序变量, 假, 单元数)
计次循环首 (单元数, 变量)
排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)
计次循环尾 ()
计次循环首 (单元数, 变量)
对象.置标题 ( (变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])
对象.置表项数值 ( (变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)])
计次循环尾 ()
如果真 (选中项 ≠ 0)
计次循环首 (对象.取表项数 (), 变量)
如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)
对象.现行选中项 ＝ 变量 － 1
对象.保证显示 (变量 － 1)
跳出循环 ()

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

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列_排序, 整数型, 公开, 返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1<br /> .参数 对象, 超级列表框<br /> .参数 列索引, 整数型, , 索引值从 0 开始。<br /> .参数 类型, 整数型, 可空, 0=数值;1=文本;2=日期时间;3=逻辑<br /> .参数 区分大小写, 逻辑型, 可空, 真为区分,默认为真<br /> .参数 排序方式, 逻辑型, 可空, 真为小到大,默认为真<br /> .局部变量 排序时间, 整数型<br /> .局部变量 排序变量, 文本型, , "0"<br /> .局部变量 序号数组, 整数型, , "0"<br /> .局部变量 表项数值, 整数型, , "0"<br /> .局部变量 变量, 整数型<br /> .局部变量 数据, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 单元数, 整数型<br /> .局部变量 选中项, 整数型<br /> <br /> 排序时间 ＝ 取启动时间 ()<br /> 类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 3, 类型, 1)<br /> 区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)<br /> 排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)<br /> .如果真 (对象.现行选中项 ≠ -1)<br />     .如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)<br />         对象.置表项数值 (对象.现行选中项, 1)<br />     .如果真结束<br />     选中项 ＝ 对象.取表项数值 (对象.现行选中项)<br /> .如果真结束<br /> .计次循环首 (对象.取表项数 (), 变量)<br />     数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))<br />     .如果 (类型 ≠ 3)<br />         单元数 ＝ 二分查找 (排序变量, 数据, 类型, 区分大小写)<br />         插入成员 (排序变量, 单元数, 数据)<br />         插入成员 (序号数组, 单元数, 变量 － 1)<br />         插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))<br />     .否则<br />         插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)<br />         插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 列数 ＝ 对象.取列数 ()<br /> 行数 ＝ 取数组成员数 (序号数组)<br /> 单元数 ＝ 行数 × 列数<br /> 重定义数组 (排序变量, 假, 单元数)<br /> .计次循环首 (单元数, 变量)<br />     排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)<br /> .计次循环尾 ()<br /> .计次循环首 (单元数, 变量)<br />     对象.置标题 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])<br />     对象.置表项数值 ((变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])<br /> .计次循环尾 ()<br /> .如果真 (选中项 ≠ 0)<br />     .计次循环首 (对象.取表项数 (), 变量)<br />         .如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)<br />             对象.现行选中项 ＝ 变量 － 1<br />             对象.保证显示 (变量 － 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (取启动时间 () － 排序时间)

aipca

连上个一起修改吧

白小川

拾肆 发表于 2025-3-20 12:09
[e=1].版本 2
.支持库 iext

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“二分查找”。
编译现行易程序失败或被中止!

拾肆

  

子程序名	返回值类型	公开	备 注
二分查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
K	整数型
M	整数型
J	整数型
数A	双精度小数型
数B	双精度小数型
文本	文本型

K ＝ 1
M ＝ 取数组成员数 (数组)
如果真 (M ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数A ＝ 到数值 (待查)
如果真 (数A ≥ 到数值 (数组 [M]))
返回 (M ＋ 1)
如果真 (数A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
数B ＝ 到数值 (数组 [J])
如果真 (数A ＝ 数B)
K ＝ J
跳出循环 ()
如果 (数A ＜ 数B)
M ＝ J
K ＝ J

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [M], 区分大小写) ≥ 0)
返回 (M ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
如果真 (文本比较 (待查, 数组 [J], 区分大小写) ＝ 0)
K ＝ J
跳出循环 ()
如果 (文本比较 (待查, 数组 [J], 区分大小写) ＜ 0)
M ＝ J
K ＝ J

判断循环尾 ()
判断 (类型 ＝ 2)
数A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型, )
如果真 (数A ≥ 取字节集数据 (到字节集 (到时间 (数组 [M])), #双精度小数型, ))
返回 (M ＋ 1)
如果真 (数A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型, ))
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
数B ＝ 取字节集数据 (到字节集 (到时间 (数组 [J])), #双精度小数型, )
如果真 (数A ＝ 数B)
K ＝ J
跳出循环 ()
如果 (数A ＜ 数B)
M ＝ J
K ＝ J

判断循环尾 ()


返回 (K ＋ 1)

.版本 2<br /> <br /> .子程序 二分查找, 整数型<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 K, 整数型<br /> .局部变量 M, 整数型<br /> .局部变量 J, 整数型<br /> .局部变量 数A, 双精度小数型<br /> .局部变量 数B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> K ＝ 1<br /> M ＝ 取数组成员数 (数组)<br /> .如果真 (M ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />     数A ＝ 到数值 (待查)<br />     .如果真 (数A ≥ 到数值 (数组 [M]))<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (数A ≤ 到数值 (数组 [1]))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         数B ＝ 到数值 (数组 [J])<br />         .如果真 (数A ＝ 数B)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数A ＜ 数B)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />     .如果真 (文本比较 (待查, 数组 [M], 区分大小写) ≥ 0)<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         .如果真 (文本比较 (待查, 数组 [J], 区分大小写) ＝ 0)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (文本比较 (待查, 数组 [J], 区分大小写) ＜ 0)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 2)<br />     数A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型, )<br />     .如果真 (数A ≥ 取字节集数据 (到字节集 (到时间 (数组 [M])), #双精度小数型, ))<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (数A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型, ))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         数B ＝ 取字节集数据 (到字节集 (到时间 (数组 [J])), #双精度小数型, )<br />         .如果真 (数A ＝ 数B)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数A ＜ 数B)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (K ＋ 1)

是可可吖

新改.e (1.22 MB, 下载次数: 13)

6 天前 上传

点击文件名下载附件

排序也搞定了，基本上都给你改好了，你自己不要瞎改了


补充内容 (2025-3-20 12:21):
自带的排序也不行，有些排的还是不对

白小川

aipca 发表于 2025-3-20 12:14
连上个一起修改吧

aipca

白小川 发表于 2025-3-20 13:35

排序模块 不是在上面附件提供了吗？

补充内容 (2025-3-20 13:37):
传送门：https://bbs.125.la/forum.php?mod ... 04&pid=30007213

白小川

是可可吖 发表于 2025-3-20 12:18
排序也搞定了，基本上都给你改好了，你自己不要瞎改了

排序还是有点不对付