Html敏捷包查找视频源
嘿,所有我正在试图找到一个冲击波视频在网页源参数。源代码如下所示:Html敏捷包查找视频源,html,vb.net,html-parsing,html-agility-pack,Html,Vb.net,Html Parsing,Html Agility Pack,嘿,所有我正在试图找到一个冲击波视频在网页源参数。源代码如下所示: <object align="middle" width="480" height="320" viewastext="" id="player" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" classid="clsid:d27cdb6e-ae6d-11cf-96b8
<object align="middle" width="480" height="320" viewastext="" id="player" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000">
<param value="sameDomain" name="allowScriptAccess">
<param value="http://mediawebsite.com/lcmplayer.swf?autoStart=1&hidecontrols=1&&noresize=1&file=http%3A%2F%2Ftx02.us.mediawebsite.com%2Fedge2%2F31dfty452611%26sec%3D1090" name="movie">
<param value="best" name="quality">
<param value="#000000" name="bgcolor">
<param value="true" name="allowFullScreen">
<param value="" name="FlashVars">
<embed align="middle" width="480" height="320" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" allowfullscreen="true" allowscriptaccess="sameDomain" name="player" bgcolor="#000000" flashvars="" quality="best" src="http://mediawebsite.com/lcmplayer.swf?autoStart=1&hidecontrols=1&&noresize=1&file=http%3A%2F%2Ftx02.us.mediawebsite.com%2Fedge2%2F31dfty452611%26sec%3D1090">
</object>
我只需要从上面得到这个:
http://mediawebsite.com/lcmplayer.swf?autoStart=1&hidecontrols=1&&noresize=1&file=http%3A%2F%2Ftx02.us.mediawebsite.com%2Fedge2%2F31dfty452611%26sec%3D1090
或者在HTML代码。当然,HTML代码链接可能会改变每次刷新,所以我只需要获取参数中的内容
我正在使用标题和VB.net 2008中所述的HtmlAgilityPack
这是我当前用于加载HTML并对其进行解析的代码:
Imports HtmlAgilityPack
Imports System.Text.RegularExpressions
Private Sub getVidLink()
Dim doc As New HtmlDocument()
'doc.LoadHtml("<html><body><p><table id=""foo""><tr><th>hello</th></tr><tr><td>world</td></tr></table></body></html>")
doc.Load("C:\kathryn\fpHTML.html")
For Each table As HtmlNode In doc.DocumentNode.SelectNodes("//object")
Debug.Print("Found: " + table.Id)
For Each row As HtmlNode In table.SelectNodes("param")
Debug.Print(row.Id)
Next
Next
End Sub
导入HtmlAgilityPack
导入System.Text.RegularExpressions
私有子getVidLink()
作为新HtmlDocument()的Dim文档
'doc.LoadHtml(helloworld”)
doc.Load(“C:\kathryn\fpHTML.html”)
对于doc.DocumentNode.SelectNodes(“//对象”)中作为HtmlNode的每个表
Debug.Print(“找到:+table.Id”)
对于表中作为HtmlNode的每一行,选择节点(“参数”)
Debug.Print(row.Id)
下一个
下一个
端接头
但是找不到参数的任何值。它们都是空的
任何帮助都会很好
大卫
应该为您提供所需的内容我得到错误错误1属性访问必须分配给属性或使用其值。当将该代码放入我的代码中时。有什么建议吗?您只需要分配值(无需循环)。我已略微更新了我的答案。
Dim node = doc.DocumentNode.SelectSingleNode("//object/param[@name='movie']").Attributes("value").Value