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

Ruang

最后再加一句

  

输出返回文本 ＝ 待返回文本

输出返回文本 ＝ 待返回文本

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 /> .计次循环尾 ()<br /> 输出返回文本 ＝ 待返回文本

Ruang

  

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

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

计次循环首 (超级列表框.取表项数 (), i)
加入成员 (文本1, 超级列表框.取标题 (i, 某列))
加入成员 (文本2, 超级列表框.取标题 (i, 某列))
计次循环尾 ()
数组_去重复 (文本1, )
计次循环首 (文本1, i)
出现次数 ＝ 数组_取次数 (文本2, 文本1 [i])
表项 ＝ 输出超级列表框.插入表项 (, , , , , )
输出超级列表框.置标题 (表项, 0, 到文本 (i))  ' 序列
输出超级列表框.置标题 (表项, 1, 文本1 [i])  ' 出现文本
输出超级列表框.置标题 (表项, 2, 到文本 (出现次数))  ' 出现次数
计次循环尾 ()

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

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

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14850490
https://bbs.125.la/forum.php?mod=viewthread&tid=14837637
https://bbs.125.la/forum.php?mod=viewthread&tid=14731975

wh1234567

Ruang 发表于 2025-4-19 11:29
[e=3].版本 2
.支持库 iext

http://www.chacuo.net/uploads/ch ... a55a9a6426792f3.jpg

wh1234567

xiaoyu1986 发表于 2025-4-19 04:01
我感觉有点简单，但好像又有点懵。。。

http://www.chacuo.net/uploads/ch ... a55a9a6426792f3.jpg

wh1234567

是可可吖 发表于 2025-4-19 03:46

http://www.chacuo.net/uploads/ch ... a55a9a6426792f3.jpg

Ruang

wh1234567 发表于 2025-4-19 22:23
http://www.chacuo.net/uploads/charphoto/2025/20250419/b2ff604d5b6bebd57a55a9a6426792f3.jpg

  

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

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

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

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

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

补充内容 (2025-4-19 22:30):
稍等一下，修改中

wh1234567

Ruang 发表于 2025-4-19 22:29
[e=3].版本 2
.支持库 iext

计次循环首 (文本1, i)提示错误

Ruang

wh1234567 发表于 2025-4-19 22:37
计次循环首 (文本1, i)提示错误

  

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

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

计次循环首 (超级列表框.取表项数 (), i)
加入成员 (文本1, 超级列表框.取标题 (i, 某列))
加入成员 (文本2, 超级列表框.取标题 (i, 某列))
计次循环尾 ()
数组_去重复 (文本1, )
计次循环首 (取数组成员数 (文本1), i)
出现次数 ＝ 数组_取次数 (文本2, 文本1 [i])
如果真 (出现次数 ＞ 0)
加入成员 (记录成员, 文本1 [i])
加入成员 (记录次数, 出现次数)
' 待返回文本 ＝ 待返回文本 ＋ “文本：” ＋ 文本2 ＋ “出现次数” ＋ 到文本 (出现次数) ＋ #换行符
计次循环尾 ()
待返回文本 ＝ “共有不同表项” ＋ 到文本 (取数组成员数 (记录成员)) ＋ “个，统计结果如下：” ＋ #换行符
计次循环首 (取数组成员数 (记录成员), i)
待返回文本 ＝ 待返回文本 ＋ 到文本 (i) ＋ “.” ＋ #引号 ＋ 记录成员 ＋ #引号 ＋ “出现过” ＋ 到文本 (记录次数) ＋ “次” ＋ #换行符
计次循环尾 ()
输出返回文本.内容 ＝ 待返回文本

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

.版本 2<br /> .支持库 iext<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, 某列))<br />     加入成员 (文本2, 超级列表框.取标题 (i, 某列))<br /> .计次循环尾 ()<br /> 数组_去重复 (文本1, )<br /> .计次循环首 (取数组成员数 (文本1), i)<br />     出现次数 ＝ 数组_取次数 (文本2, 文本1 <i>)<br />     .如果真 (出现次数 ＞ 0)<br />         加入成员 (记录成员, 文本1 <i>)<br />         加入成员 (记录次数, 出现次数)<br /> <br />     .如果真结束<br />     ' 待返回文本 ＝ 待返回文本 ＋ “文本：” ＋ 文本2 ＋ “出现次数” ＋ 到文本 (出现次数) ＋ #换行符<br /> .计次循环尾 ()<br /> 待返回文本 ＝ “共有不同表项” ＋ 到文本 (取数组成员数 (记录成员)) ＋ “个，统计结果如下：” ＋ #换行符<br /> .计次循环首 (取数组成员数 (记录成员), i)<br />     待返回文本 ＝ 待返回文本 ＋ 到文本 (i) ＋ “.” ＋ #引号 ＋ 记录成员 ＋ #引号 ＋ “出现过” ＋ 到文本 (记录次数) ＋ “次” ＋ #换行符<br /> .计次循环尾 ()<br /> 输出返回文本.内容 ＝ 待返回文本