正则取IP。求助

出生只为等你

http://xftiqu.duapp.com/tiqu.php?dq=%C8%AB%B9%FA&sl=20&dk=18186&xl=3&cf=4&tj=%CC%E1+%C8%A1
正则取出这些IP到编辑框

有的加Q2727446065

宛若晨曦

[e]
.版本 2
.支持库 EThread
.支持库 RegEx
.支持库 internet
.支持库 spec

.子程序 _按钮1_被单击

启动线程 (&取IP, , )

.子程序 取IP
.局部变量 a, 文本型
.局部变量 表达式, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"
.局部变量 b, 文本型
.局部变量 计次, 整数型

a ＝ 到文本 (HTTP读文件 (“http://xftiqu.duapp.com/tiqu.php?dq=%C8%AB%B9%FA&sl=” ＋ 编辑框1.内容 ＋ “&dk=” ＋ 编辑框2.内容 ＋ “&xl=3&cf=4&tj=%CC%E1+%C8%A1”))
调试输出 (a)
b ＝ 文本_取右边 (a, “为主</h4>”, )
调试输出 (b)
表达式.创建 (“(\d+\.\d+\.\d+\.\d+:\d+)<br>”, )
搜索结果 ＝ 表达式.搜索全部 (b)
.计次循环首 (取数组成员数 (搜索结果), 计次)
    编辑框3.内容 ＝ 编辑框3.内容 ＋ 搜索结果 [计次].取子匹配文本 (b, 1, ) ＋ #换行符
.计次循环尾 ()
[/e]

sxcisco

见楼下，这个错了。

sxcisco

刚才那个错了。对不起。

sxcisco