超级列表框问题

天狼Team

排序右边内容选出数值最大的5组   取对应左边内容    求大神解决





补充内容 (2018-9-2 20:28):
超级列表框内的

易正易则

小小栗子仅供参考！

demo.e (4.05 KB, 下载次数: 2)

2018-9-2 23:08 上传

点击文件名下载附件

大司命

  

变量名	类 型	静态	数组	备 注
数组	整数型		0

计次循环首 (超级列表框1.取 表 项 数 (), i)
加入成员 (数组, 到整数 (超级列表框1.取 标 题 (i － 1, 0)))
计次循环尾 ()
数组排序 (数组, 假)
调试输出 (重定义数组 (数组, 真, 5))

.局部变量 数组, 整数型, , "0"<br /> .计次循环首 (超级列表框1.取 表 项 数 (), i)<br />     加入成员 (数组, 到整数 (超级列表框1.取 标 题 (i － 1, 0)))<br /> .计次循环尾 ()<br /> 数组排序 (数组, 假)<br /> 调试输出 (重定义数组 (数组, 真, 5))

补充内容 (2018-9-2 20:34):

  

加入成员 (数组, 到整数 (超级列表框1.取 标 题 (i － 1, 1)))  ' 列索引从0开始~

    加入成员 (数组, 到整数 (超级列表框1.取 标 题 (i － 1, 1)))  ' 列索引从0开始~

天狼Team

大司命 发表于 2018-9-2 20:33
[e=5]
.局部变量 数组, 整数型, , "0"
.计次循环首 (超级列表框1.取 表 项 数 (), i)

这个直接排序了   没能取出来   对应的左边内容

右手胜过左手

  

子程序名	返回值类型	公开	备 注
数组_关联排序
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型
数值数组	整数型

变量名	类 型	静态	数组	备 注
数组	整数型		0
临时数组	文本型		0
m	整数型
n	整数型
计次	整数型
i	整数型
临时文本数组	文本型		0
未去重数组	整数型		0

数组 ＝ 数值数组
未去重数组 ＝ 数值数组
临时文本数组 ＝ 文本数组
数组_去重复 (, 数组)
数组排序 (数组, )
清除数组 (数值数组)
清除数组 (文本数组)
计次循环首 (取数组成员数 (数组), m)
计次 ＝ 0  ' ‘归零
清除数组 (临时数组)
计次循环首 (取数组成员数 (临时文本数组), n)  ' ‘根据排序后的数值，确定号码
如果真 (数组 [m] ＝ 未去重数组 [n])
加入成员 (临时数组, 临时文本数组 [n])
计次 ＝ 计次 ＋ 1

计次循环尾 ()
如果真 (计次 ＝ 1)  ' ’无重复，直接插入一行
加入成员 (文本数组, 临时数组 [1])
加入成员 (数值数组, 数组 [m])
如果真 (计次 ＞ 1)  ' ’有重复，将号码排序后依次插入
数组_排序 (临时数组, , )
计次循环首 (取数组成员数 (临时数组), i)
加入成员 (文本数组, 临时数组 [i])
加入成员 (数值数组, 数组 [m])
计次循环尾 ()

计次循环尾 ()
调试输出 (文本数组, 数值数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 数组_关联排序<br /> .参数 文本数组, 文本型, 参考 数组<br /> .参数 数值数组, 整数型, 参考 数组<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 m, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 临时文本数组, 文本型, , "0"<br /> .局部变量 未去重数组, 整数型, , "0"<br /> <br /> 数组 ＝ 数值数组<br /> 未去重数组 ＝ 数值数组<br /> 临时文本数组 ＝ 文本数组<br /> 数组_去重复 (, 数组)<br /> 数组排序 (数组, )<br /> 清除数组 (数值数组)<br /> 清除数组 (文本数组)<br /> .计次循环首 (取数组成员数 (数组), m)<br />     计次 ＝ 0  ' ‘归零<br />     清除数组 (临时数组)<br />     .计次循环首 (取数组成员数 (临时文本数组), n)  ' ‘根据排序后的数值，确定号码<br />         .如果真 (数组 [m] ＝ 未去重数组 [n])<br />             加入成员 (临时数组, 临时文本数组 [n])<br />             计次 ＝ 计次 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (计次 ＝ 1)  ' ’无重复，直接插入一行<br />         加入成员 (文本数组, 临时数组 [1])<br />         加入成员 (数值数组, 数组 [m])<br />     .如果真结束<br />     .如果真 (计次 ＞ 1)  ' ’有重复，将号码排序后依次插入<br />         数组_排序 (临时数组, , )<br />         .计次循环首 (取数组成员数 (临时数组), i)<br />             加入成员 (文本数组, 临时数组 <i>)<br />             加入成员 (数值数组, 数组 [m])<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文本数组, 数值数组)

这是之前论坛一个大佬回答给我的源码，借花献佛！

呵呵仙

叁考
https://bbs.125.la/forum.php?mod=viewthread&tid=14103644&extra=