超级列表框 这个排序去重复该怎么写

大连移动

排序去重.e (8.13 KB, 下载次数: 7)

2025-3-27 15:55 上传

点击文件名下载附件
去重保留这四列都一样的数据

算法艺术家

  

子程序名	返回值类型	公开	备 注
超级列表框去重复			以某列为参照 进行对比去重复
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
对比列	整数型

变量名	类 型	静态	数组	备 注
i	整数型
局索引	整数型
局哈希	哈希表_ASM
局标题	文本型

局哈希.创建 ( #文本型, #整数型, 16)
变量循环首 (超级列表框.取表项数 () － 1, 0, -1, 局索引)
局标题 ＝ 超级列表框.取标题 (局索引, 对比列)
判断 (局哈希.cha询 (局标题) ＝ 真)
超级列表框.删除表项 (局索引)
局哈希.添加 (局标题, 0)

变量循环尾 ()
局哈希.清空 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框去重复, , 公开, 以某列为参照 进行对比去重复<br /> .参数 超级列表框, 超级列表框<br /> .参数 对比列, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 局索引, 整数型<br /> .局部变量 局哈希, 哈希表_ASM<br /> .局部变量 局标题, 文本型<br /> <br /> 局哈希.创建 (#文本型, #整数型, 16)<br /> <br /> .变量循环首 (超级列表框.取表项数 () － 1, 0, -1, 局索引)<br />     局标题 ＝ 超级列表框.取标题 (局索引, 对比列)<br />     .判断开始 (局哈希.cha询 (局标题) ＝ 真)<br />         超级列表框.删除表项 (局索引)<br />     .默认<br />         局哈希.添加 (局标题, 0)<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> 局哈希.清空 ()

补充内容 (2025-3-27 16:39):
如果4列都参与去重 那局标题就等于所有列加起来

是可可吖

@算法艺术家

星马豪

创建个数组把4个数值文本相加去重就行了

廿六

创建个数组把4个数值文本相加去重就行了

aipca

  

子程序名	返回值类型	公开	备 注
_按钮_清除重复并排序_被单击

变量名	类 型	静态	数组	备 注
计次	整数型
重复次数	整数型
总文本	文本型		0
i	整数型
索引	整数型
重建	文本型		0

' 去除重复
计次循环首 (超级列表框1.取表项数 (), 计次)
加入成员 (总文本, 超级列表框1.取标题 (计次 － 1, 1) ＋ “，” ＋ 超级列表框1.取标题 (计次 － 1, 2) ＋ “，” ＋ 超级列表框1.取标题 (计次 － 1, 3) ＋ “，” ＋ 超级列表框1.取标题 (计次 － 1, 4))
计次循环尾 ()
数组_去重复 (总文本)
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (总文本), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (i))
重建 ＝ 分割文本 (总文本 [i], “，”, )
超级列表框1.置标题 (索引, 1, 重建 [1])
超级列表框1.置标题 (索引, 2, 重建 [2])
超级列表框1.置标题 (索引, 3, 重建 [3])
超级列表框1.置标题 (索引, 4, 重建 [4])
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_清除重复并排序_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 重复次数, 整数型<br /> .局部变量 总文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 重建, 文本型, , "0"<br /> <br /> ' 去除重复<br /> .计次循环首 (超级列表框1.取表项数 (), 计次)<br />     加入成员 (总文本, 超级列表框1.取标题 (计次 － 1, 1) ＋ “，” ＋ 超级列表框1.取标题 (计次 － 1, 2) ＋ “，” ＋ 超级列表框1.取标题 (计次 － 1, 3) ＋ “，” ＋ 超级列表框1.取标题 (计次 － 1, 4))<br /> .计次循环尾 ()<br /> 数组_去重复 (总文本)<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取数组成员数 (总文本), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (i))<br />     重建 ＝ 分割文本 (总文本 <i>, “，”, )<br />     超级列表框1.置标题 (索引, 1, 重建 [1])<br />     超级列表框1.置标题 (索引, 2, 重建 [2])<br />     超级列表框1.置标题 (索引, 3, 重建 [3])<br />     超级列表框1.置标题 (索引, 4, 重建 [4])<br /> .计次循环尾 ()

大连移动

算法艺术家 发表于 2025-3-27 16:21
[e=3].版本 2
.支持库 iext

这个哈希表的能给个例子么,没用过

算法艺术家

  

子程序名	返回值类型	公开	备 注
超级列表框排序	整数型		返回排序时间,选中后排序还选中，必须项目数值不为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], 数据 ＋ “:”, “”, , , 真)
跳出循环 ()
' 易语言Q群87137652
计次循环尾 ()如果 (类型 ≠ 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	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框排序, 整数型, 公开, 返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1<br /> .参数 对象, 超级列表框<br /> .参数 列索引, 整数型, , 索引值从 0 开始。<br /> .参数 实际数据, 文本型, 可空 数组, 格式 {“今天:0”,“明天:1”}    # iiiou添加该参数<br /> .参数 类型, 整数型, 可空, 0=数值;1=文本;2=日期时间;3=逻辑;4=图片索引   # iiiou添加类型4<br /> .参数 区分大小写, 逻辑型, 可空, 真为区分,默认为真<br /> .参数 排序方式, 逻辑型, 可空, 真为小到大,默认为真<br /> .局部变量 排序时间, 整数型<br /> .局部变量 排序变量, 文本型, , "0"<br /> .局部变量 序号数组, 整数型, , "0"<br /> .局部变量 表项数值, 整数型, , "0"<br /> .局部变量 图片数组, 整数型, , "0", # iiiou添加<br /> .局部变量 状态图片, 整数型, , "0", # iiiou添加<br /> .局部变量 变量, 整数型<br /> .局部变量 数据, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 单元数, 整数型<br /> .局部变量 选中项, 整数型<br /> .局部变量 i, , , , # iiiou添加<br /> <br /> 排序时间 ＝ 取启动时间 ()<br /> 类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 4, 类型, 1)<br /> 区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)<br /> 排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)<br /> .如果真 (对象.现行选中项 ≠ -1)<br />     .如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)<br />         对象.置表项数值 (对象.现行选中项, 1)<br />     .如果真结束<br />     选中项 ＝ 对象.取表项数值 (对象.现行选中项)<br /> .如果真结束<br /> .计次循环首 (对象.取表项数 (), 变量)<br />     .如果 (类型 ＝ 4)  ' # iiiou添加<br />         数据 ＝ 到文本 (对象.取图片 (变量 － 1, 列索引))<br />     .否则<br />         数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))<br />     .如果结束<br />     .计次循环首 (取数组成员数 (实际数据), i)  ' # iiiou添加<br />         .如果真 (取文本左边 (实际数据 <i>, 取文本长度 (数据) ＋ 1) ＝ 数据 ＋ “:”)<br />             数据 ＝ 子文本替换 (实际数据 <i>, 数据 ＋ “:”, “”, , , 真)<br />             跳出循环 ()<br />         .如果真结束<br />         ' 易语言Q群87137652<br />     .计次循环尾 ()<br />     .如果 (类型 ≠ 3)<br />         .如果 (类型 ＝ 4)  ' # iiiou添加<br />             单元数 ＝ 运算_二分查找 (排序变量, 数据, 0, 区分大小写)<br />         .否则<br />             单元数 ＝ 运算_二分查找 (排序变量, 数据, 类型, 区分大小写)<br />         .如果结束<br />         插入成员 (排序变量, 单元数, 数据)<br />         插入成员 (序号数组, 单元数, 变量 － 1)<br />         插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))<br />         插入成员 (状态图片, 单元数, 对象.取当前状态图片 (变量 － 1))  ' # iiiou添加<br />     .否则<br />         插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)<br />         插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))<br />         插入成员 (状态图片, 选择 (数据 ＝ “假”, 变量, 1), 对象.取当前状态图片 (变量 － 1))  ' # iiiou添加<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 列数 ＝ 对象.取列数 ()<br /> 行数 ＝ 取数组成员数 (序号数组)<br /> 单元数 ＝ 行数 × 列数<br /> 重定义数组 (排序变量, 假, 单元数)<br /> 重定义数组 (图片数组, 假, 单元数)  ' # iiiou添加<br /> .计次循环首 (单元数, 变量)<br />     排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)<br />     图片数组 [变量] ＝ 对象.取图片 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)  ' # iiiou添加<br /> .计次循环尾 ()<br /> .计次循环首 (单元数, 变量)<br />     对象.置标题 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])<br />     对象.置表项数值 ((变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])  ' 本来加个判断的,算啦,为了提高速度,多重复置表项数值几次吧:)<br />     .如果真 (图片数组 [变量] ≠ -1)<br />         对象.置图片 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 图片数组 [变量])  ' # iiiou添加<br />     .如果真结束<br />     .如果真 (状态图片 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)] ≠ -1)<br />         对象.置状态图片 ((变量 － 1) ＼ 列数, 状态图片 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])  ' # iiiou添加<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (选中项 ≠ 0)<br />     .计次循环首 (对象.取表项数 (), 变量)<br />         .如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)<br />             对象.现行选中项 ＝ 变量 － 1<br />             对象.保证显示 (变量 － 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> 返回 (取启动时间 () － 排序时间)

算法艺术家

大连移动 发表于 2025-3-27 16:26
这个哈希表的能给个例子么,没用过

bbs.125.la/forum.php?mod=viewthread&tid=14516715&highlight  论坛里开源的模块

廿六

大连移动 发表于 2025-3-27 16:26
这个哈希表的能给个例子么,没用过

开源大赛的开源的，搜哈希表就行了，然后5楼应该是没注意审题，
局标题 ＝ 超级列表框.取标题 (局索引, 对比列)
局标题 =  超级列表框.取标题 (局索引, 0) + 超级列表框.取标题 (局索引, 1) + 超级列表框.取标题 (局索引, 3) +超级列表框.取标题 (局索引, 4)
替换成这样才能保证4项数据全部相同才删除