|
7#

楼主 |
发表于 2012-8-20 23:30:05
|
只看该作者
http://pr.buy.yahoo.com.tw/help/helper.asp?p=sitemap
这个,我想把上面列表都提取出来 想尽办法都无法我只要提取链接包含 ?sub= 的链接&本文 到列表框
附上我的源码
功能 逻辑型 获得列表()
函数.网页转到("浏览器0","http://pr.buy.yahoo.com.tw/help/helper.asp?p=sitemap")
列表框.清空("标题")
列表框.清空("连接")
字符型 索引端,索引号转换,元素,订单标题,订单连接,筛选连接转换,连接处理
整型 索引号,订单循环判断,筛选连接
//【定义变数结束】
//【初始订单变数】
索引端 = "tag:a&index:"
索引号 =0
订单循环判断=0
//【初始订单变数结束】
//【定单循环开始】
循环 (订单循环判断<转换.字符型转整型(编辑框.获得文本("更新次数")))
索引端 = "tag:a&index:"
索引号转换=转换.整型转字符型(索引号)
元素 = 字符串.连接(索引端,索引号转换)
订单循环判断=订单循环判断+1
索引号=索引号+1
订单连接=网页.获取元素信息("浏览器0","href",元素) // 寻找连接
筛选连接=字符串.查找字符串(订单连接,"?sub=")
如果 (筛选连接 >= 0 ) //筛选出订单网址
订单连接=网页.获取元素信息("浏览器0","href",元素) // 寻找连接
列表框.增加文本("连接",订单连接)
如果结束
循环结束
//【初始订单变数】
索引端 = "tag:Li&index:"
索引号 =24
订单循环判断=0
//【初始订单变数结束】
//【定单循环开始】
循环 (订单循环判断<转换.字符型转整型(编辑框.获得文本("更新次数")))
索引端 = "tag:a&index:"
索引号转换=转换.整型转字符型(索引号)
元素 = 字符串.连接(索引端,索引号转换)
订单循环判断=订单循环判断+1
索引号=索引号+1
订单连接=网页.获取元素信息("浏览器0","href",元素) // 寻找连接
筛选连接=字符串.查找字符串(订单连接,"?sub=")
如果 (筛选连接 >= 0 ) //筛选出订单网址
订单连接=网页.获取元素信息("浏览器0","text",元素) // 寻找连接
列表框.增加文本("标题",订单连接)
如果结束
循环结束
字符型 程式路径=系统.获取程序路径()
字符型 配置文件=程式路径+"\\list.ini"
文件.删除(配置文件)
函数.储存列表到配置("yahoo","yahoolist:","标题","\\list.ini")
函数.储存列表到配置("yahoo","yahoourl:","连接","\\list.ini")
返回 真
功能结束
|
|