我想在我建议的链接中显示此div的值。 是否有某种善良的灵魂可以向我展示解决方案?我不是要求代码,但是很困难,希望得到一些帮助。
我正在尝试使用WebBrowser控件,但到目前为止还没有。
Dim divs = WebBrowser1.Document.Body.GetElementsByTagName("div")
Dim result
For Each d As HtmlElement In divs
If d.GetAttribute("className") = "block_competition_tables real-content clearfix " Then
result = d.InnerText
End If
MsgBox(result)
Next
图片示例:
http://www.mediafire.com/convkey/e9de/4ju6fo9cp6ibl84fg.jpg
网站链接:
http://it.soccerway.com/national/italy/serie-a/20142015/regular-season/r27139/
答案 0 :(得分:0)
问题可能是因为你使用className作为属性名称,它应该是class。
您是否尝试按ID
获取div相反,如果他们以这种方式更改css,它就不会破坏(虽然如果他们改变布局可能仍然会破坏但是你可能还有其他问题需要修复)。page_competition_1_block_competition_tables_8_block_competition_form_table_1
编辑:
啊,想通了,不仅这个页面在网页浏览器控件中看起来效果不好(我的Windows 8框上有很多javascript错误)当你点击链接时动态加载表,所以当你没有它时试试吧。
如果您查看chrome(或您使用的任何浏览器)中的开发人员工具的网络标签,它会向
显示GET请求 http://it.soccerway.com/a/block_competition_tables?block_id=page_competition_1_block_competition_tables_8&callback_params=%7B%22season_id%22%3A9757%2C%22round_id%22%3A27139%2C%22outgroup%22%3Afalse%7D&action=changeTable¶ms=%7B%22type%22%3A%22competition_form_table%22%7D
如果你解码URL params是
http://it.soccerway.com/a/block_competition_tables?block_id=page_competition_1_block_competition_tables_8&callback_params={"season_id":9757,"round_id":27139,"outgroup":false}&action=changeTable¶ms={"type":"competition_form_table"}
转到url给了我json对象中表的html,你可以使用简单的HTTPRequest而不是使用webbrowser来实现。
希望有所帮助。