关于超级列表框某一列全部关键词出现次数统计

幻想大人

wh1234567 发表于 2024-10-17 23:41
.版本 2
.支持库 iext

是不是这样？

  

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

编辑框1.加入文本 (超级列表框查询 (超级列表框1, “嘻唰唰啦”, 1), #换行符 )
编辑框1.加入文本 (超级列表框查询 (超级列表框1, “老年人大家族”, 1), #换行符 )
编辑框1.加入文本 (超级列表框查询 (超级列表框1, “喜洋洋与灰太狼”, 1), #换行符 )
编辑框1.加入文本 (超级列表框查询 (超级列表框1, “风儿来”, 1), #换行符 )

子程序名	返回值类型	公开	备 注
超级列表框查询	文本型		批量查询超级列表框指定列是否有指定内容，返回查询到的数量
参数名	类 型	参考	可空	数组	备 注
对象	超级列表框
查询内容	文本型
列索引	整数型

变量名	类 型	静态	数组	备 注
i	整数型
str	文本型
次数	整数型

计次循环首 (对象.取表项数 (), i)
如果真 (寻找文本 (对象.取标题 (i － 1, 列索引), 查询内容, , 假) ≠ -1)
如果真 (str ≠ “”)
str ＝ str ＋ “、”
str ＝ str ＋ 到文本 (i)
次数 ＝ 次数 ＋ 1

计次循环尾 ()
返回 (“【” ＋ 查询内容 ＋ “】出现过” ＋ 到文本 (次数) ＋ “次，出现所在行是：” ＋ str ＋ “行”)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框1.加入文本 (超级列表框查询 (超级列表框1, “嘻唰唰啦”, 1), #换行符)<br /> 编辑框1.加入文本 (超级列表框查询 (超级列表框1, “老年人大家族”, 1), #换行符)<br /> 编辑框1.加入文本 (超级列表框查询 (超级列表框1, “喜洋洋与灰太狼”, 1), #换行符)<br /> 编辑框1.加入文本 (超级列表框查询 (超级列表框1, “风儿来”, 1), #换行符)<br /> <br /> .子程序 超级列表框查询, 文本型, 公开, 批量查询超级列表框指定列是否有指定内容，返回查询到的数量<br /> .参数 对象, 超级列表框<br /> .参数 查询内容, 文本型, 可空<br /> .参数 列索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> .计次循环首 (对象.取表项数 (), i)<br />     .如果真 (寻找文本 (对象.取标题 (i － 1, 列索引), 查询内容, , 假) ≠ -1)<br />         .如果真 (str ≠ “”)<br />             str ＝ str ＋ “、”<br />         .如果真结束<br />         str ＝ str ＋ 到文本 (i)<br />         次数 ＝ 次数 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“【” ＋ 查询内容 ＋ “】出现过” ＋ 到文本 (次数) ＋ “次，出现所在行是：” ＋ str ＋ “行”)

幻想大人

wh1234567 发表于 2024-10-17 23:41
.版本 2
.支持库 iext

是不是这样？

走一回

编辑框不可能显示这么多文本的。

  

变量名	类 型	静态	数组	备 注
关键字数组	文本型		0
sy	整数型
i	整数型
n	整数型
str	文本型
次数	整数型

置随机数种子 ()
超级列表框1.类型 ＝ 3
超级列表框1.插入列 (, “关键字”, , , , )
关键字数组 ＝ { “1嘻唰唰啦_儿歌_老三届_开始学练_半年”, “2老年人大家族_儿歌_成练_二层了_少半年”, “3喜洋洋与灰太狼_儿歌_刘三娃_星期三必须唱歌_一年” }
计次循环首 (4975, )
sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (sy, 0, 关键字数组 [取随机数 (1, 3)])
计次循环尾 ()
计次循环首 (取数组成员数 (关键字数组), i)
计次循环首 (超级列表框1.取表项数 (), n)
如果真 (寻找文本 (超级列表框1.取标题 (n － 1, 0), 关键字数组 [i], , 假) ≠ -1)
如果真 (str ≠ “”)
str ＝ str ＋ “、”
str ＝ str ＋ 到文本 (n)
次数 ＝ 次数 ＋ 1

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 关键字数组, 文本型, , "0"<br /> .局部变量 sy, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> 置随机数种子 ()<br /> 超级列表框1.类型 ＝ 3<br /> 超级列表框1.插入列 (, “关键字”, , , , )<br /> 关键字数组 ＝ { “1嘻唰唰啦_儿歌_老三届_开始学练_半年”, “2老年人大家族_儿歌_成练_二层了_少半年”, “3喜洋洋与灰太狼_儿歌_刘三娃_星期三必须唱歌_一年” }<br /> .计次循环首 (4975, )<br />     sy ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (sy, 0, 关键字数组 [取随机数 (1, 3)])<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (关键字数组), i)<br />     .计次循环首 (超级列表框1.取表项数 (), n)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (n － 1, 0), 关键字数组 <i>, , 假) ≠ -1)<br />             .如果真 (str ≠ “”)<br />                 str ＝ str ＋ “、”<br />             .如果真结束<br />             str ＝ str ＋ 到文本 (n)<br />             次数 ＝ 次数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14831510 改一个

wh1234567

LEOONL 发表于 2024-10-18 10:51
完美符合要求

非常感谢老师帮助，理解能力很强，符合我的要求，