| 变量名 | 类 型 | 静态 | 数组 | 备 注 | | i | 整数型 | | | | n | 整数型 | | | | 行标题 | 文本型 | | | | 标题组 | 文本型 | | 0 | | 关键词 | 文本型 | | | | 总关键词数组 | 文本型 | | 0 | | 匹配行号字符串 | 文本型 | | | | 匹配次数 | 整数型 | | | | 当前行号文本 | 文本型 | | |
编辑框1.内容 = “” 计次循环首 (超级列表框1. 取表项数 (), i ) 行标题 = 超级列表框1. 取标题 (i - 1, 3 )  标题组 = 分割文本 (行标题, “_”, ) 如果真 (取数组成员数 (标题组 ) > 2 )  关键词 = 标题组 [3 ]  关键词 = 删首尾空 (关键词 )  如果真 (关键词 ≠ “”)  加入成员 (总关键词数组, 关键词 )     计次循环尾 () 如果真 (取数组成员数 (总关键词数组 ) = 0 ) 编辑框1.内容 = “未在超级列表框1中提取到有效关键词。” 返回 () 计次循环首 (取数组成员数 (总关键词数组 ), i ) 关键词 = 总关键词数组 [i ] 匹配次数 = 0  匹配行号字符串 = “” 计次循环首 (超级列表框2. 取表项数 (), n )  行标题 = 超级列表框2. 取标题 (n - 1, 8 )   如果真 (寻找文本 (行标题, 关键词, , 假) ≠ -1 )   匹配次数 = 匹配次数 + 1    当前行号文本 = 到文本 (n )   如果 (匹配行号字符串 = “”)    匹配行号字符串 = “第” + 当前行号文本 + “行”    匹配行号字符串 = 匹配行号字符串 + “、第” + 当前行号文本 + “行”        计次循环尾 () 如果真 (匹配次数 > 0 )  编辑框1. 加入文本 ( #引号 + 关键词 + #引号 + “出现过” + 到文本 (匹配次数 ) + “次,分别在:” + 匹配行号字符串 + #换行符 )  计次循环尾 () 如果真 (编辑框1.内容 = “”) 编辑框1.内容 = “所有关键词均未在超级列表框2中找到匹配。”
|