如何做一个采集贴吧标题和网址的小工具

易语言

精益模块

打开易语言，新建一个“Windows”窗口程序。

在新建的窗口右侧，添加4个组件，2个编辑框，1个标签，1个按钮。修改组件的属性。

在新窗口左侧，点下方的“程序”，然后双击“模块应用表”，加入“精益模块”

加入一个常量表达式，命名为常量_贴吧搜索表达式：.*?

插入一个子程序，命名为贴吧搜索，并声明如下变量。

在贴吧搜索子程序下写入以下代码。编辑框1.内容 ＝ “”搜索链接 ＝ “https://tieba.baidu.com/f?ie=utf-8&kw=” ＋ 编码_URL编码 (删首尾空 (编辑框2.内容)) ＋ “&fr=search”搜索结果 ＝ 网页_访问S (搜索链接)z.创建 (#常量_贴吧搜索表达式, 搜索结果).如果 (z.取匹配数量 () ＝ 0)    编辑框1.加入文本 (“没有搜索到结果！”).否则    .计次循环首 (z.取匹配数量 (), i)        标题 ＝ “采集到” ＋ 编辑框2.内容 ＋ “贴吧内容” ＋ 到文本 (i) ＋ “条”        编辑框1.加入文本 (到文本 (i) ＋ “、” ＋ z.取子匹配文本 (i, 2) ＋ #换行符 ＋ “https://tieba.baidu.com” ＋ z.取子匹配文本 (i, 1) ＋ #换行符)    .计次循环尾 ()

双击按钮，写如下代码。

点运行，查看成功后，点“编译”-“静态编译”成一个可执行程序。