超级列表框删除相同数据保留最大数据，然后时间排序

灵感吖

超级列表框删除相同ID数据保留长度最大数据，然后时间排序，请问应该如何实现，麻烦大佬帮实现一下感激不尽

3awen

  

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

变量名	类 型	静态	数组	备 注
序号	整数型
编号	文本型
长度	整数型
时间	日期时间型
正文	文本型
第二序号	文本型
第二编号	文本型
第二长度	整数型
第二时间	日期时间型
第二正文	文本型
编号组	文本型		0
还有编号	整数型
i	整数型
项目数组	文本型		0

序号 ＝ 0
判断循环首 (序号 ≥ 0)
编号 ＝ 超级列表框2.取标题 (序号, 1)
如果 (编号 ＝ “”)
跳出循环 ()
加入成员 (编号组, 编号)
' 长度 ＝ 到整数 (超级列表框2.取标题 (序号, 3))
' 时间 ＝ 到时间 (超级列表框2.取标题 (序号, 2))
' 正文 ＝ 超级列表框2.取标题 (序号, 4)
' 调试输出 (序号, 编号, 时间, 长度, 正文)
序号 ＝ 序号 ＋ 1

判断循环尾 ()
还有编号 ＝ 数组_去重复 (编号组)
计次循环首 (还有编号, i)
编号 ＝ 编号组 [i]
序号 ＝ 0
第二长度 ＝ 0
判断循环首 (序号 ≥ 0)
第二编号 ＝ 超级列表框2.取标题 (序号, 1)
如果真 (第二编号 ＝ 编号)
长度 ＝ 到整数 (超级列表框2.取标题 (序号, 3))
如果真 (长度 ＞ 第二长度)  ' '''这里用来，取最长的长度
第二序号 ＝ 超级列表框2.取标题 (序号, 0)
第二长度 ＝ 长度
第二时间 ＝ 到时间 (超级列表框2.取标题 (序号, 2))
第二正文 ＝ 超级列表框2.取标题 (序号, 4)

如果真 (第二编号 ＝ “”)
跳出循环 ()
序号 ＝ 序号 ＋ 1
判断循环尾 ()
调试输出 (第二序号, 编号, 第二长度, 第二时间, 第二正文)
加入成员 (项目数组, 到文本 (第二时间) ＋ “，” ＋ 第二序号 ＋ “，” ＋ 编号 ＋ “，” ＋ 到文本 (第二长度) ＋ “，” ＋ 第二正文)
计次循环尾 ()
' '''清空表
超级列表框2.全部删除 ()
' '''时间排序
数组_排序1 (项目数组, 真)
' '''写入表
计次循环首 (取数组成员数 (项目数组), i)
调试输出 (项目数组 [i])
编号组 ＝ 分割文本 (项目数组 [i], “，”, )
超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (i － 1, 0, 编号组 [2])
超级列表框2.置标题 (i － 1, 1, 编号组 [3])
超级列表框2.置标题 (i － 1, 2, 编号组 [1])
超级列表框2.置标题 (i － 1, 3, 编号组 [4])
超级列表框2.置标题 (i － 1, 4, 编号组 [5])
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 序号, 整数型<br /> .局部变量 编号, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 正文, 文本型<br /> .局部变量 第二序号, 文本型<br /> .局部变量 第二编号, 文本型<br /> .局部变量 第二长度, 整数型<br /> .局部变量 第二时间, 日期时间型<br /> .局部变量 第二正文, 文本型<br /> .局部变量 编号组, 文本型, , "0"<br /> .局部变量 还有编号, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 项目数组, 文本型, , "0"<br /> <br /> 序号 ＝ 0<br /> .判断循环首 (序号 ≥ 0)<br />     编号 ＝ 超级列表框2.取标题 (序号, 1)<br />     .如果 (编号 ＝ “”)<br />         跳出循环 ()<br />     .否则<br />         加入成员 (编号组, 编号)<br />         ' 长度 ＝ 到整数 (超级列表框2.取标题 (序号, 3))<br />         ' 时间 ＝ 到时间 (超级列表框2.取标题 (序号, 2))<br />         ' 正文 ＝ 超级列表框2.取标题 (序号, 4)<br />         ' 调试输出 (序号, 编号, 时间, 长度, 正文)<br />         序号 ＝ 序号 ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 还有编号 ＝ 数组_去重复 (编号组)<br /> .计次循环首 (还有编号, i)<br />     编号 ＝ 编号组 <i><br />     序号 ＝ 0<br />     第二长度 ＝ 0<br />     .判断循环首 (序号 ≥ 0)<br />         第二编号 ＝ 超级列表框2.取标题 (序号, 1)<br />         .如果真 (第二编号 ＝ 编号)<br />             长度 ＝ 到整数 (超级列表框2.取标题 (序号, 3))<br />             .如果真 (长度 ＞ 第二长度)  ' '''这里用来，取最长的长度<br />                 第二序号 ＝ 超级列表框2.取标题 (序号, 0)<br />                 第二长度 ＝ 长度<br />                 第二时间 ＝ 到时间 (超级列表框2.取标题 (序号, 2))<br />                 第二正文 ＝ 超级列表框2.取标题 (序号, 4)<br />             .如果真结束<br /> <br />         .如果真结束<br />         .如果真 (第二编号 ＝ “”)<br />             跳出循环 ()<br />         .如果真结束<br />         序号 ＝ 序号 ＋ 1<br />     .判断循环尾 ()<br />     调试输出 (第二序号, 编号, 第二长度, 第二时间, 第二正文)<br />     加入成员 (项目数组, 到文本 (第二时间) ＋ “，” ＋ 第二序号 ＋ “，” ＋ 编号 ＋ “，” ＋ 到文本 (第二长度) ＋ “，” ＋ 第二正文)<br /> .计次循环尾 ()<br /> ' '''清空表<br /> 超级列表框2.全部删除 ()<br /> ' '''时间排序<br /> 数组_排序1 (项目数组, 真)<br /> ' '''写入表<br /> .计次循环首 (取数组成员数 (项目数组), i)<br />     调试输出 (项目数组 <i>)<br />     编号组 ＝ 分割文本 (项目数组 <i>, “，”, )<br />     超级列表框2.插入表项 (, , , , , )<br />     超级列表框2.置标题 (i － 1, 0, 编号组 [2])<br />     超级列表框2.置标题 (i － 1, 1, 编号组 [3])<br />     超级列表框2.置标题 (i － 1, 2, 编号组 [1])<br />     超级列表框2.置标题 (i － 1, 3, 编号组 [4])<br />     超级列表框2.置标题 (i － 1, 4, 编号组 [5])<br /> .计次循环尾 ()

开始运行被调试程序

* “2022年5月17日13时25分10秒，5，209，1500，efesfsef”
* “2022年5月17日13时17分10秒，3，205，1500，ADASDASDSAD”
* “2022年5月17日13时12分10秒，4，207，2300，efesdfdsfsdfsdf”
被调试易程序运行完毕

3awen

你这个最后534怎么来了，根据编号ID，不是就应该 209，207，205，顺序应该是543吗

Suky

①取所有id加入数组  去重
②去重后的id数组为外循环   列表框表项数为内循环（变量循环从后往前处理）  寻找同id表项，找到第二个开始   比较正文文本长度   长度更短的进行删除处理
③剩余表项   时间可以找个基准时间做参考   取时间间隔（） ，根据时间间隔大小进行表项排序    或者根据时间转换时间戳值进行排序即可

蘇中二少

测试.e (145.77 KB, 下载次数: 12)

2023-5-17 16:00 上传

点击文件名下载附件