哪位老师帮我修改一下取网页内容到超级列表框？

wh1234567 · 发表于 2019-8-26 14:57:49

哪位老师帮我修改一下取网页内容到超级列表框？或者重新编写代码也可以。

杯中水 · 发表于 2019-8-26 14:57:50

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
Set	文本型
Rz	正则表达式类
i	整数型
bx	整数型

Set ＝编码_Utf8到Ansi (网页_访问_对象 (“https://www.kuaidaili.com/free/inha/”, 0, , , , , , , , , , , , , , , , , ))
Rz.创建 ( #常量1, Set, , , , )

计次循环首 (Rz.取匹配数量 (), i)

bx ＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (bx, 0, 到文本 (i))

超级列表框1.置标题 (bx, 1, Rz.取子匹配文本 (i, 1, ))

超级列表框1.置标题 (bx, 2, Rz.取子匹配文本 (i, 2, ))

超级列表框1.置标题 (bx, 3, Rz.取子匹配文本 (i, 3, ))

超级列表框1.置标题 (bx, 4, Rz.取子匹配文本 (i, 4, ))

超级列表框1.置标题 (bx, 5, Rz.取子匹配文本 (i, 5, ))

超级列表框1.置标题 (bx, 6, Rz.取子匹配文本 (i, 6, ))

超级列表框1.置标题 (bx, 7, Rz.取子匹配文本 (i, 7, ))

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

正则文本：<tr>[\s\S]*?<td data-title="IP">(.*?)</td>[\s\S]*?<td data-title="PORT">(.*?)</td>[\s\S]*?<td data-title="匿名度">(.*?)</td>[\s\S]*?<td data-title="类型">(.*?)</td>[\s\S]*?<td data-title="位置">(.*?)</td>[\s\S]*?<td data-title="响应速度">(.*?)</td>[\s\S]*?<td data-title="最后验证时间">(.*?)</td>[\s\S]*?</tr>

杯中水 · 发表于 2019-8-26 21:21:24

wh1234567 · 发表于 2019-8-27 16:11:25

杯中水发表于 2019-8-26 21:22
[e=4].版本 2
.支持库 iext

感谢您还想问个问题

wh1234567 · 发表于 2019-8-27 19:30:31

杯中水发表于 2019-8-26 21:22
[e=4].版本 2
.支持库 iext

https://bbs.125.la/thread-14446669-1-1.html期待老师修改一下提取另外一个网页的内容到超级列表框无法提取

		自动登录	找回密码
密码			注册

[完成] 哪位老师帮我修改一下取网页内容到超级列表框？

最佳答案