百度关键词采集软件源码

百度关键词采集软件源码

.版本 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.标题 ＝ “开始采集”
.如果结束

@企鹅号525150138