Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我想获取阿里妈妈淘宝客单品网页链接地址，能实现吗？


  共有4097人关注过本帖树形打印复制链接

主题：[求助]我想获取阿里妈妈淘宝客单品网页链接地址，能实现吗？
帅哥哟，离线，有人找我吗？
智友软件工作室
 小大  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00 		  发帖心情 Post By：2016/1/12 15:47:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:网页内容.txt

这是我获取的网页内容
现在想要

一共有40个
[此贴子已经被作者于2016/1/12 15:47:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/12 16:01:00 [只看该作者]

汗，我登陆没有这个东西，无法测试。

 

你把账号密码发上来测试一下。发布一个帖子后，再点击编辑，就可以插入 【特殊内容】的，只有特定的人才能看到。
 回到顶部
帅哥哟，离线，有人找我吗？
智友软件工作室
 小大  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00 		  发帖心情 Post By：2016/1/12 16:46:00 [只看该作者]

我已经找到结构了 就是不知道对应怎么读取

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160112164451.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
智友软件工作室
 小大  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00 		  发帖心情 Post By：2016/1/12 16:47:00 [只看该作者]

就要这个href的链接  不知道如何对应


Dim web1 As New System.Windows.Forms.WebBrowser
For Each dl As object In web.Document.GetElementById("FileItems").GetElementsByTagName("dl")
    output.show(dl.innerhtml)
    Dim url As String = dl.GetElementsByTagName("a")(0).GetAttribute("href")
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/12 17:51:00 [只看该作者]

比如

 

Dim web = Forms("窗口1").Controls("WebBrowser1").BaseControl
For Each tr As object In web.Document.GetElementsByTagName("li")
    If tr.GetAttribute("ClassName") = "title"
        Dim a = web.Document.GetElementsByTagName("a")(0)
        output.show(a.GetAttribute("href"))
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
智友软件工作室
 小大  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00 		  发帖心情 Post By：2016/1/12 18:18:00 [只看该作者]

Dim a = web.Document.GetElementsByTagName("a")(0)


这里的A  as  什么类型？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/12 18:24:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
智友软件工作室
 小大  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00 		  发帖心情 Post By：2016/1/12 19:40:00 [只看该作者]

为什么搞出来的都一样呢？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160112193937.png
图片点击可在新窗口打开查看
Dim lujing As String = ProjectPath & "\Attachments\分析结果.txt"
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
Dim dizhi As String
For Each tr As object In web.Document.GetElementsByTagName("li")
    If tr.GetAttribute("ClassName") = "title" Then
        'dizhi = dizhi & tr.innerhtml & vbcrlf
        dizhi = dizhi & tr.Document.GetElementsByTagName("a")(0).GetAttribute("href") & vbcrlf
    End If
Next
'Dim Values() As String
'Values = dizhi.split(vbcrlf)
'dizhi = ""
'For Index As Integer = 0 To Values.Length - 1
'    dizhi = dizhi & Values(Index) & vbcrlf
'Next
FileSys.WriteAllText(lujing, dizhi, False, Encoding.Default)
Dim Proc As New Process '定义一个新的Process
Proc.File = lujing
Proc.Start()
[此贴子已经被作者于2016/1/12 19:41:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
智友软件工作室
 小大  19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00 		  发帖心情 Post By：2016/1/12 19:43:00 [只看该作者]

另一种结果是这样的文本 这里面的地址是我要的

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160112194155.png
图片点击可在新窗口打开查看


Dim lujing As String = ProjectPath & "\Attachments\分析结果.txt"
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
Dim dizhi As String
For Each tr As object In web.Document.GetElementsByTagName("li")
    If tr.GetAttribute("ClassName") = "title" Then
        dizhi = dizhi & tr.innerhtml & vbcrlf
        'dizhi = dizhi & tr.Document.GetElementsByTagName("a")(0).GetAttribute("href") & vbcrlf
    End If
Next
'Dim Values() As String
'Values = dizhi.split(vbcrlf)
'dizhi = ""
'For Index As Integer = 0 To Values.Length - 1
'    dizhi = dizhi & Values(Index) & vbcrlf
'Next
FileSys.WriteAllText(lujing, dizhi, False, Encoding.Default)
Dim Proc As New Process '定义一个新的Process
Proc.File = lujing
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/12 19:44:00 [只看该作者]

代码没问题，自己msgbox看一下内容对不对。

 

不会做，就把htm网页保存发上来。
 回到顶部
总数 31 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询