|
|

楼主 |
发表于 2026-6-24 14:19:59
|
显示全部楼层
内蒙古自治区乌海市
.版本 2
.子程序 查找关键词
.局部变量 关键词数组, 文本型, , , 一维数组,存放所有要查找的关键词
.局部变量 超级列表框内容, 文本型, , , 一维数组,超级列表框第9列的所有数据
.局部变量 结果, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 计数, 整数型
.局部变量 行号列表, 文本型
.计次循环首 (取数组成员数 (关键词数组), i)
计数 = 0
行号列表 = “”
.计次循环首 (取数组成员数 (超级列表框内容), j)
.如果 (寻找文本 (超级列表框内容 [j], 关键词数组 , , 假) ≠ -1)
计数 = 计数 + 1
.如果 (行号列表 ≠ “”)
行号列表 = 行号列表 # “、”
.否则
.如果结束
行号列表 = 行号列表 # “第” + 到文本 (j) + “行”
.否则
.如果结束
.如果 (计数 > 0)
结果 = 结果 # ““” + 关键词数组 # “”出现过” + 到文本 (计数) # “次,分别在:” # 行号列表 # #换行符
.否则
.如果结束
.计次循环尾 ()
.计次循环尾 ()
返回 (结果)
无法运行 |
|