易语言的超级列表框表项难题，如何统计这样的内容？

mytiger

wh1234567 发表于 2024-1-9 10:25
老师好，具体怎么修改？

那个所在行是按照前面括号里的数字还是超列1序号数字?

wh1234567

mytiger 发表于 2024-1-9 10:44
那个所在行是按照前面括号里的数字还是超列1序号数字?

超列1序号数字

mytiger

看看吧,以后提问请一次性把问题说清,省的来回搞.

wh1234567

mytiger 发表于 2024-1-9 11:05
看看吧,以后提问请一次性把问题说清,省的来回搞.

非常感谢老师的帮助，辛苦了，完美正确。
ListViewSort (超级列表框2, 被单击列索引, 0, type, 真, 真, 真) 想问问网络上看到这个函数，测试发现点击后是从小到大排序，如何让第一次点击是从大到小排序？

wh1234567

mytiger 发表于 2024-1-9 11:05
看看吧,以后提问请一次性把问题说清,省的来回搞.

套用后发现不行了，无法处理
.版本 2
.支持库 spec

调试输出 (统计结果)
调试输出 (n)

* 数组:0{}
* 0


补充内容 (2024-1-9 15:07):
.版本 2
.支持库 iext

    取出数据 (超级列表框1.取标题 (i － 1, 0), 超级列表框1.取标题 (i － 1, 37), 临时)
数据在第37索引，我把几处都修改成37无法处理...

补充内容 (2024-1-9 15:07):
不知道是字符数太多超过256的缘故还是？

wh1234567

mytiger 发表于 2024-1-9 11:05
看看吧,以后提问请一次性把问题说清,省的来回搞.

  

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

变量名	类 型	静态	数组	备 注
i	整数型
名字	文本型
名字分割	文本型		0
总_名字	文本型		0
统计_临时	文本型
统计_总	文本型
名字出现次数	整数型
出现序列	文本型
x	整数型

清除数组 (总_名字)
名字 ＝ “”
计次循环首 (超级列表框1.取表项数 (), i)
名字 ＝ 名字 ＋ 超级列表框1.取标题 (i － 1, 37) ＋ “、”  ' 取出所有的名字
计次循环尾 ()
名字分割 ＝ 分割文本 (名字, “、”, )  ' 分割出名字
数组_去重复 (名字分割)  ' 取掉重复的
统计_总 ＝ “”
计次循环首 (取数组成员数 (名字分割), i)
统计_临时 ＝ “”
名字出现次数 ＝ 0
出现序列 ＝ “”
计次循环首 (超级列表框1.取表项数 (), x)
' 取出名字
名字 ＝ 超级列表框1.取标题 (x － 1, 37)
如果真 (寻找文本 (名字, 名字分割 [i], , 假) ≠ -1)
名字出现次数 ＝ 名字出现次数 ＋ 1
判断 (名字出现次数 ＝ 1)
出现序列 ＝ 出现序列 ＋ 超级列表框1.取标题 (x － 1, 0)
出现序列 ＝ 出现序列 ＋ “、” ＋ 超级列表框1.取标题 (x － 1, 0)


统计_临时 ＝ “【” ＋ 名字分割 [i] ＋ “】” ＋ “出现过:” ＋ 到文本 (名字出现次数) ＋ “次 在第:” ＋ 出现序列 ＋ “行”
处理事件 ()
计次循环尾 ()
统计_总 ＝ 统计_总 ＋ 统计_临时 ＋ #换行符
处理事件 ()
计次循环尾 ()
编辑框1.加入文本 (统计_总 ＋ “总共有不同花名数:” ＋ 到文本 (取数组成员数 (名字分割)) ＋ “个”)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击, , , 统计子程序<br /> .局部变量 i, 整数型<br /> .局部变量 名字, 文本型<br /> .局部变量 名字分割, 文本型, , "0"<br /> .局部变量 总_名字, 文本型, , "0"<br /> .局部变量 统计_临时, 文本型<br /> .局部变量 统计_总, 文本型<br /> .局部变量 名字出现次数, 整数型<br /> .局部变量 出现序列, 文本型<br /> .局部变量 x, 整数型<br /> <br /> 清除数组 (总_名字)<br /> 名字 ＝ “”<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     名字 ＝ 名字 ＋ 超级列表框1.取标题 (i － 1, 37) ＋ “、”  ' 取出所有的名字<br /> .计次循环尾 ()<br /> 名字分割 ＝ 分割文本 (名字, “、”, )  ' 分割出名字<br /> <br /> 数组_去重复 (名字分割)  ' 取掉重复的<br /> 统计_总 ＝ “”<br /> <br /> .计次循环首 (取数组成员数 (名字分割), i)<br />     统计_临时 ＝ “”<br />     名字出现次数 ＝ 0<br />     出现序列 ＝ “”<br />     .计次循环首 (超级列表框1.取表项数 (), x)<br />         ' 取出名字<br />         名字 ＝ 超级列表框1.取标题 (x － 1, 37)<br />         .如果真 (寻找文本 (名字, 名字分割 <i>, , 假) ≠ -1)<br />             名字出现次数 ＝ 名字出现次数 ＋ 1<br />             .判断开始 (名字出现次数 ＝ 1)<br />                 出现序列 ＝ 出现序列 ＋ 超级列表框1.取标题 (x － 1, 0)<br />             .默认<br />                 出现序列 ＝ 出现序列 ＋ “、” ＋ 超级列表框1.取标题 (x － 1, 0)<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />         统计_临时 ＝ “【” ＋ 名字分割 <i> ＋ “】” ＋ “出现过:” ＋ 到文本 (名字出现次数) ＋ “次 在第:” ＋ 出现序列 ＋ “行”<br />         处理事件 ()<br />     .计次循环尾 ()<br />     统计_总 ＝ 统计_总 ＋ 统计_临时 ＋ #换行符<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 编辑框1.加入文本 (统计_总 ＋ “总共有不同花名数:” ＋ 到文本 (取数组成员数 (名字分割)) ＋ “个”)

这个是以前别人帮写的，所有代码都在一个子程序下的，不会出错，但是不适用于现在需要处理的功能，老师能不能把这个修改一下，最好是所有源码都在一个子程序下。


补充内容 (2024-1-9 15:36):
这个源码是针对单纯的 "关键词、关键词、关键词、关键词、..."这种固定格式的处理的，想让老师修改成我现在需要处理的功能

mytiger

wh1234567 发表于 2024-1-9 14:53
套用后发现不行了，无法处理
.版本 2
.支持库 spec

那个37是列索引

补充内容 (2024-1-9 15:32):
你的第38列肯定是没有数据的

mytiger

wh1234567 发表于 2024-1-9 14:03
非常感谢老师的帮助，辛苦了，完美正确。
ListViewSort (超级列表框2, 被单击列索引, 0, type, 真, 真,  ...

能从小到大就能从大到小,能否将ListViewSort 函数的源码发来看看.

mytiger

wh1234567 发表于 2024-1-9 15:28
[e=0].版本 2
.支持库 iext

这个源码只能统计名字出现的次数和所在行,不能实现后面3项目的累加.

wh1234567

mytiger 发表于 2024-1-9 15:29
那个37是列索引

补充内容 (2024-1-9 15:32):

38就是索引37列