如何统计超级列表框某一列里不同内容出现次数？

wh1234567

例如，点击按钮1：统计超级列表框第3列，根据内容不同进行统计全部不同内容出现过的次数，按行输出到编辑框1里，例如输出格式如下：
XXX：出现过6次
VVVVBD：出现过39次
...
点击按钮2，根据编辑框3里的内容（也就是关键词）进行查找第8列，如果出现就将整行按超级列表框1原始格式插入到超级列表框2里，也就是原来在超级列表框1的第几列就插入到超级列表框2的第几列，要整行全部。

Ruang

wh1234567 发表于 2025-4-19 22:51
错误(10044): 不能将“文本型 数组”数据转换到“通用型”数据。

  

功能_超级列表框某列文本出现次数 (超级列表框1, 1, 编辑框1)

子程序名	返回值类型	公开	备 注
功能_超级列表框某列文本出现次数
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
某列	整数型				超级列表框某列，从0开始计算
输出返回文本	编辑框

变量名	类 型	静态	数组	备 注
文本1	文本型		0
文本2	文本型		0
i	整数型
待返回文本	文本型
出现次数	整数型
记录成员	文本型		0
记录次数	整数型		0

计次循环首 (超级列表框.取表项数 (), i)
加入成员 (文本1, 超级列表框.取标题 (i － 1, 某列))
加入成员 (文本2, 超级列表框.取标题 (i － 1, 某列))
计次循环尾 ()
数组_去重复 (文本1, )
计次循环首 (取数组成员数 (文本1), i)
出现次数 ＝ 数组_取次数 (文本2, 文本1 [i])
如果真 (出现次数 ＞ 0)
加入成员 (记录成员, 文本1 [i])
加入成员 (记录次数, 出现次数)

计次循环尾 ()
待返回文本 ＝ “共有不同表项” ＋ 到文本 (取数组成员数 (记录成员)) ＋ “个，统计结果如下：” ＋ #换行符
计次循环首 (取数组成员数 (记录成员), i)
待返回文本 ＝ 待返回文本 ＋ 到文本 (i) ＋ “.” ＋ #引号 ＋ 记录成员 [i] ＋ #引号 ＋ “出现过” ＋ 到文本 (记录次数 [i]) ＋ “次” ＋ #换行符
计次循环尾 ()
输出返回文本.内容 ＝ 待返回文本

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

.版本 2<br /> .支持库 iext<br /> <br /> 功能_超级列表框某列文本出现次数 (超级列表框1, 1, 编辑框1)<br /> <br /> .子程序 功能_超级列表框某列文本出现次数<br /> .参数 超级列表框, 超级列表框<br /> .参数 某列, 整数型, , 超级列表框某列，从0开始计算<br /> .参数 输出返回文本, 编辑框, 参考<br /> .局部变量 文本1, 文本型, , "0"<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 待返回文本, 文本型<br /> .局部变量 出现次数, 整数型<br /> .局部变量 记录成员, 文本型, , "0"<br /> .局部变量 记录次数, 整数型, , "0"<br /> <br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     加入成员 (文本1, 超级列表框.取标题 (i － 1, 某列))<br />     加入成员 (文本2, 超级列表框.取标题 (i － 1, 某列))<br /> .计次循环尾 ()<br /> 数组_去重复 (文本1, )<br /> .计次循环首 (取数组成员数 (文本1), i)<br />     出现次数 ＝ 数组_取次数 (文本2, 文本1 <i>)<br />     .如果真 (出现次数 ＞ 0)<br />         加入成员 (记录成员, 文本1 <i>)<br />         加入成员 (记录次数, 出现次数)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 待返回文本 ＝ “共有不同表项” ＋ 到文本 (取数组成员数 (记录成员)) ＋ “个，统计结果如下：” ＋ #换行符<br /> .计次循环首 (取数组成员数 (记录成员), i)<br />     待返回文本 ＝ 待返回文本 ＋ 到文本 (i) ＋ “.” ＋ #引号 ＋ 记录成员 <i> ＋ #引号 ＋ “出现过” ＋ 到文本 (记录次数 <i>) ＋ “次” ＋ #换行符<br /> .计次循环尾 ()<br /> 输出返回文本.内容 ＝ 待返回文本

wh1234567

解释：按钮2是查找到超级列表框1的某列包含关键词时就输出到超级列表框2里

是可可吖

xiaoyu1986

我感觉有点简单，但好像又有点懵。。。

Giggle梦痕

有点东西~

旭哥520

这玩意有点复杂啊，自己研究一下

旭哥520

给你个思路：

1.设一个文本变量数组，数组大小为你超级列表框的行数，然后每检索超级列表框就到文本数组变量（位置从1到当前位置-1）里查找，如果有则+1。最后按递增变量写到编辑框1里。

2.将编辑框以换行符进行分割，依次在超级列表框里进行查找，如果找到符号的则复制到另一个超级列表框中。

音速

简单，
用到精易模块，文本_取出现次数（）
  还不会就付费解决，加签名联系方式，

Ruang

  

子程序名	返回值类型	公开	备 注
功能_某列文本出现次数
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
某列	整数型
输出返回文本	文本型

变量名	类 型	静态	数组	备 注
文本1	文本型		0
文本2	文本型		0
i	整数型
待返回文本	文本型
次数	整数型

计次循环首 (超级列表框.取表项数 (), i)
加入成员 (文本1, 超级列表框.取标题 (i, 某列))
加入成员 (文本2, 超级列表框.取标题 (i, 某列))
计次循环尾 ()
数组_去重复 (文本1, i)
计次循环首 (, )
次数 ＝ 数组_取次数 (文本2, 文本1 [i])
待返回文本 ＝ 待返回文本 ＋ “数据：” ＋ 文本1 [i]
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 功能_某列文本出现次数<br /> .参数 超级列表框, 超级列表框<br /> .参数 某列, 整数型<br /> .参数 输出返回文本, 文本型<br /> .局部变量 文本1, 文本型, , "0"<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 待返回文本, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     加入成员 (文本1, 超级列表框.取标题 (i, 某列))<br />     加入成员 (文本2, 超级列表框.取标题 (i, 某列))<br /> .计次循环尾 ()<br /> 数组_去重复 (文本1, i)<br /> .计次循环首 (, )<br />     次数 ＝ 数组_取次数 (文本2, 文本1 <i>)<br />     待返回文本 ＝ 待返回文本 ＋ “数据：” ＋ 文本1 <i><br /> .计次循环尾 ()