易语言如何使用正则采集百度知道

.版本 2 .常量标题, "<文本长度: 25>", , "ti"((\r\n|\s*).*>.*)</a> .常量标题需替换的内容, "<文本长度: 17>", , target="_blank"> .常量提问时间, "<文本长度: 36>", , "mr-8">(\d{4,}-\d{1,}-\d{1,}) .常量帖子链接与回答数量, "<文本长度: 93>", , <a href="(http:.*)" rel="external nofollow" target="_blank" class="f-light nod" data- log="pos:ans,si:\d{1,}">(.*)</a> .常量回答内容, "<文本长度: 40>", , 答：.*</dd> .常量回答内容需替换的, "<文本长度: 25>", , .常量回答者, "<文本长度: 27>", , 回答者：<a href=.*>(.*)</a>

.版本 2 .支持库 iext .程序集窗口程序集1 .程序集变量搜索的内容, 文本型 .程序集变量网页源码, 文本型 .程序集变量页码变量, 整数型 .程序集变量网址, 文本型 .子程序 _按钮_搜索_被单击 .局部变量 i, 整数型 .局部变量 i2, 整数型 .局部变量 i3, 整数型 .如果 (编辑框_搜索内容.内容 ≠ “”) 超级列表框1.全部删除 () .判断循环首 (页码变量＜ 21) 搜索内容 () 正则 () 页码变量＝页码变量＋ 10 .判断循环尾 () .计次循环首 (超级列表框1.取表项数 (), i2) 超级列表框1.置标题 (i2 － 1, 0, 到文本 (i2)) .计次循环尾 () 页码变量＝ 0 .否则信息框 (“请先输入要搜索的问题”, #信息图标, “提示”) 编辑框_搜索内容.获取焦点 () .如果结束 .子程序搜索内容按钮_搜索.标题＝ “正在搜索中...” 搜索的内容＝编辑框_搜索内容.内容网址＝ “http://zhidao.baidu.com/search?word=” ＋编码_URL编码 (搜索的内容) ＋ “&ie=gbk&site=-1&sites=0&date=0&pn=” ＋到文本 (页码变量) 网页源码＝网页_取网页源码 (网址) .子程序正则 .局部变量正则标题与序号, 正则表达式类 .局部变量局_计次, 整数型 .局部变量表项索引, 整数型 .局部变量正则链接与回答数, 正则表达式类 .局部变量正则回答, 正则表达式类 .局部变量正则回答时间, 正则表达式类 .局部变量正则回答者, 正则表达式类正则标题与序号.创建 (#标题, 网页源码) 正则链接与回答数.创建 (#帖子链接与回答数量, 网页源码) 正则回答.创建 (#回答内容, 网页源码) 正则回答时间.创建 (#提问时间, 网页源码) 正则回答者.创建 (#回答者, 网页源码) .计次循环首 (正则标题与序号.取匹配数量 (), 局_计次) 表项索引＝超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (表项索引, 1, 文本_替换 (正则标题与序号.取子匹配文本 (局_计次, 1), , , , “>”, “”, “”, “”, “”, “</a>”, “<em”, “”, “</em”, “”)) ' 标题 .如果 (寻找文本 (正则链接与回答数.取子匹配文本 (局_计次, 1), “html”, , 假) ＝ -1) 超级列表框1.置标题 (表项索引, 4, “”) .否则超级列表框1.置标题 (表项索引, 4, 正则链接与回答数.取子匹配文本 (局_计次, 1)) ' 链接 .如果结束超级列表框1.置标题 (表项索引, 2, 文本_替换 (正则回答.取匹配文本 (局_计次, ), , , , #回答内容需替换的, “”, “”, “”, “”, “”, “”, “”, “</dd>”, “”)) ' 回答超级列表框1.置标题 (表项索引, 3, 正则链接与回答数.取子匹配文本 (局_计次, 2)) ' 回答的数量超级列表框1.置标题 (表项索引, 5, 正则回答时间.取子匹配文本 (局_计次, 1)) ' 回答的时间 .计次循环尾 () 按钮_搜索.标题＝ “搜索答案” .子程序 _超级列表框1_被双击, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型 _预览此内容_被选择 () .子程序 _预览此内容_被选择 .如果真 (信息框 (_启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 2) ＋ #换行符＋ “-------------------------------” ＋ #换行符＋ “是否浏览更多回答？”, #是否钮＋ #询问图标, 超级列表框1.取标题 (超级列表框1.现行选中项, 1)) ＝ #是钮) _打开此链接_被选择 () .如果真结束 .子程序 _超级列表框1_鼠标右键被按下, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型 .如果真 (超级列表框1.取表项数 () ≠ 0) 弹出菜单 (菜单, , ) .如果真结束 .子程序 _打开此链接_被选择网页_打开指定网址 (超级列表框1.取标题 (超级列表框1.现行选中项, 4)) .子程序 _复制回答_被选择 .如果真 (置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 2)) ＝真) 信息框 (“成功复制！”, #信息图标, “复制成功”) .如果真结束 .子程序 __启动窗口_创建完毕页码变量＝ 0 编辑框_搜索内容.获取焦点 () .子程序 _复制此链接_被选择 .如果真 (置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 4)) ＝真) 信息框 (“成功复制！”, #信息图标, “复制成功”) .如果真结束 .子程序 _编辑框_搜索内容_内容被改变 .如果真 (编辑框_搜索内容.内容＝ “”) 页码变量＝ 0 .如果真结束 .子程序 _编辑框_搜索内容_按下某键, 逻辑型 .参数键代码, 整数型 .参数功能键状态, 整数型 .如果真 (键代码＝ #回车键) _按钮_搜索_被单击 () .如果真结束 .子程序 _获取更多回答_被选择网页_打开指定网址 (“http://zhidao.baidu.com/search?word=” ＋编码_URL编码 (搜索的内容) ＋ “&ie=gbk&site=-1&sites=0&date=0&pn=0”) .子程序 _按钮_关闭_被单击结束 () .子程序 _按钮_获取更多回答_被单击 _获取更多回答_被选择 ()

相关阅读