.版本 2 .支持库 EDataStructure .支持库 iext .子程序 _按钮1_被单击 .局部变量 正则, 正则表达式类 .局部变量 返回关键词, 文本型 .局部变量 节点, 节点 .局部变量 i, 整数型 .局部变量 关键词, 文本型 .局部变量 搜素返回, 文本型 .局部变量 关键词数组, 文本型, , "0" .局部变量 次数, 整数型 .局部变量 内容关键词, 文本型 .局部变量 过滤数组, 文本型, , "0" .局部变量 过滤关键词, 逻辑型 .如果真 (选择框2.选中 ＝ 真) 过滤数组 ＝ 分割文本 (编辑框4.内容, #换行符, ) .如果真结束 节点.加入属性 (编辑框1.内容, “”) 节点.取全部属性名 (关键词数组) .如果 (按钮1.标题 ＝ “开始采集”) 按钮1.标题 ＝ “停止采集” .判断循环首 (按钮1.标题 ＝ “停止采集”) 次数 ＝ 次数 ＋ 1 内容关键词 ＝ 关键词数组 [次数] 搜素返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://www.baidu.com/s?wd=” ＋ 内容关键词, , , , , , , , , , , 3)) 搜素返回 ＝ 文本_取出中间文本 (搜素返回, #常量1, #常量2) 正则.创建 (#引号 ＋ “>(.*?)</a></th>”, 搜素返回, ) .计次循环首 (正则.取匹配数量 (), i) 处理事件 () 关键词 ＝ 正则.取子匹配文本 (i, 1) .如果真 (选择框2.选中 ＝ 真) .计次循环首 (取数组成员数 (过滤数组), i) .如果真 (寻找文本 (关键词, 过滤数组 [i], , 假) ≠ -1) 过滤关键词 ＝ 真 跳出循环 () .如果真结束 .计次循环尾 () .如果真结束 .如果真 (过滤关键词 ＝ 假) .如果 (选择框1.选中 ＝ 真) .如果真 (寻找文本 (关键词, 编辑框1.内容, , 假) ≠ -1) .如果真 (节点.加入属性 (关键词, “”)) 编辑框2.加入文本 (关键词 ＋ #换行符) .如果真结束 .如果真结束 .否则 .如果真 (节点.加入属性 (关键词, “”)) 编辑框2.加入文本 (关键词 ＋ #换行符) .如果真结束 .如果结束 .如果真结束 过滤关键词 ＝ 假 .计次循环尾 () 返回关键词 ＝ 到文本 (网页_访问_对象 (“http://suggestion.baidu.com/su?wd=” ＋ 内容关键词, 0, , , , , , , , , , 3)) 返回关键词 ＝ 文本_取出中间文本 (返回关键词, “[”, “]”, ) 正则.创建 (#引号 ＋ “(.*?)” ＋ #引号, 返回关键词, ) .计次循环首 (正则.取匹配数量 (), i) 处理事件 () 关键词 ＝ 正则.取子匹配文本 (i, 1) .如果真 (选择框2.选中 ＝ 真) .计次循环首 (取数组成员数 (过滤数组), i) .如果真 (寻找文本 (关键词, 过滤数组 [i], , 假) ≠ -1) 过滤关键词 ＝ 真 跳出循环 () .如果真结束 .计次循环尾 () .如果真结束 .如果真 (过滤关键词 ＝ 假) .如果 (选择框1.选中 ＝ 真) .如果真 (寻找文本 (关键词, 编辑框1.内容, , 假) ≠ -1) .如果真 (节点.加入属性 (关键词, “”)) 编辑框2.加入文本 (关键词 ＋ #换行符) .如果真结束 .如果真结束 .否则 .如果真 (节点.加入属性 (关键词, “”)) 编辑框2.加入文本 (关键词 ＋ #换行符) .如果真结束 .如果结束 .如果真结束 过滤关键词 ＝ 假 .计次循环尾 () 节点.取全部属性名 (关键词数组) 状态条1.置文本 (1, “关键词数量” ＋ 到文本 (取数组成员数 (关键词数组))) .判断循环尾 () 处理事件 () .否则 按钮1.标题 ＝ “开始采集” .如果结束