请教分割文本获取IP以及端口号的问题

笔记本专卖

请问怎么取得http://www.3ghttp.com/proxy/index.php?act=list&port=&type=&country=China&page=1的IP以及端口号，以下是源码，达到指定目的，烦请高手指正。谢谢
主要是分割文本的地方不会弄。呵呵
版本 2
.支持库 spec
.支持库 iext
.子程序 获取代理IP
.局部变量 地址, 文本型
.局部变量 端口数组, 文本型, , "2"
.局部变量 端口, 文本型
.局部变量 左边位置, 整数型
.局部变量 右边位置, 整数型
.局部变量 i, 整数型
地址 ＝ 彗星HTTP读文本 (“http://www.3ghttp.com/proxy/inde ... ry=China&page=1”)
调试输出 (地址)
.计次循环首 (50, i)
    左边位置 ＝ 寻找文本 (地址, “<td>”, 右边位置, 假)
    右边位置 ＝ 寻找文本 (地址, “</td>”, 左边位置, 假)
    IP ＝ 取文本中间 (地址, 左边位置 ＋ 4, 右边位置 － 左边位置 ＋ 6)
    调试输出 (“IP地址为:” ＋ IP)
    超级列表框1.插入表项 (超级列表框1.取表项数 (), 到文本 (i), , , , )
    端口数组 ＝ 分割文本 (IP, “</td>” ＋ #换行符 ＋ “<td>”, )
    端口 ＝ 端口数组 [2]
    IP ＝ 端口数组 [1]
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, IP)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, “1080”)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, “HTTP”)
.计次循环尾 ()

exit11

.版本 2

.子程序 _按钮1_被单击
.局部变量 地址, 文本型
.局部变量 端口, 文本型
.局部变量 左边位置, 整数型
.局部变量 右边位置, 整数型
.局部变量 ip, 文本型

地址 ＝ 彗星HTTP读文本 (“http://www.3ghttp.com/proxy/inde ... ry=China&page=1”)
.判断循环首 (寻找文本 (地址, “<td>”, 右边位置, 假) ≠ -1)
    左边位置 ＝ 寻找文本 (地址, “<td>”, 右边位置, 假)
    右边位置 ＝ 寻找文本 (地址, “</td>”, 左边位置, 假)
    ip ＝ 取文本中间 (#常量1, 左边位置 ＋ 4, 右边位置 － 左边位置 － 4)

    左边位置 ＝ 寻找文本 (地址, “<td>”, 右边位置, 假)
    右边位置 ＝ 寻找文本 (地址, “</td>”, 左边位置, 假)
    端口 ＝ 取文本中间 (#常量1, 左边位置 ＋ 4, 右边位置 － 左边位置 － 4)

    右边位置 ＝ 寻找文本 (#常量1, “</tr>”, 右边位置, 真)

    ' 超级列表框1.插入表项 (超级列表框1.取表项数 (), 到文本 (i), , , , )
    ' 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, IP)
    ' 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, “1080”)
    ' 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, “HTTP”)
    ' 信息框 (左边位置, 0, )
.判断循环尾 ()

笨潴

{:3_226:}只提供思路：
源码=UTF8转ANSI（http读文件（“http://www.3ghttp.com/proxy/inde ... ry=China&page=1”））
分割文本=分割文本（源码，#分割文本）
后面是计次循环，自己写
判断含有<td><a href="index.php?act=whois&ip=，就取出<td><a href="index.php?act=whois&ip=和" target="之间，就是你的IP；然后在下面一行取<td>和</td>之间，就是你的端口

fsjoe

代码从思路上就错了。没法改。
建议用正则表达式。更加方便快捷

笨潴

{:soso_e127:}我晕，我刚才发的回复去了那里
不用正则，
源码=UTF8转anci（http读文件（））
以换行符分割，计次循环，判断是否含有“whois&ip=”，上5行就是IP，上4行就是端口