我想用易语言抓取网页的<p></p>内的文字 其实大家也知道p标签就是文章 我问下有没有大神知道该

Question

我想用易语言抓取网页的<p></p>内的文字 其实大家也知道p标签就是文章 我问下有没有大神知道该怎么写 我不是伸手党 所以稍微指点一下就行了

Answer 1

用正则表达式
复制以下代码粘贴到易语言

.版本 2
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
正则搜索 (编辑框1.内容, “<p>” ＋ “(.*?)” ＋ “</p>”, , , 3, 4, 数组)
.计次循环首 (取数组成员数 (数组), i)
编辑框2.加入文本 (数组 [i] ＋ #换行符)
.计次循环尾 ()
.子程序 正则搜索
.参数 文本, 文本型, , 要执行搜索的内容
.参数 表达式, 文本型, , 正则表达式
.参数 头部文本, 文本型, 可空, 在头部添加文字
.参数 尾部文本, 文本型, 可空, 在尾部添加文字
.参数 删头长度, 整数型, 可空, 搜索出来的删除不需要的文字
.参数 删尾长度, 整数型, 可空, 搜索出来的删除不需要的文字
.参数 搜索数组, 文本型, 数组, 返回所有的数组
.局部变量 位置_, 整数型
.局部变量 n, 整数型
.局部变量 临时文本, 文本型
.局部变量 正则, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"
正则.创建 (表达式, )
搜索结果 ＝ 正则.搜索全部 (文本)
.计次循环首 (取数组成员数 (搜索结果), n)
临时文本 ＝ 搜索结果 [n].取匹配文本 (文本, 位置_)
临时文本 ＝ 取文本中间 (临时文本, 删头长度 ＋ 1, 取文本长度 (临时文本) － 删头长度 － 删尾长度)
加入成员 (搜索数组, 头部文本 ＋ 临时文本 ＋ 尾部文本)
.计次循环尾 ()

追问

非常感谢