2011-11-27 28 views
0

嘿所有我想要找到網頁源中的shockwave視頻的參數。該人士是這樣的:Html敏捷包查找視頻源

<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&amp;hidecontrols=1&amp;&amp;noresize=1&amp;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&amp;hidecontrols=1&amp;&amp;noresize=1&amp;file=http%3A%2F%2Ftx02.us.mediawebsite.com%2Fedge2%2F31dfty452611%26sec%3D1090"> 
    </object> 

我只是需要從上面得到這樣的:

http://mediawebsite.com/lcmplayer.swf?autoStart=1 & hidecontrols = 1 & & noresize = 1個&文件= HTTP%3A%2F%2Ftx02.us.mediawebsite.com%2Fedge2%2F31dfty452611%26sec%3D1090

或任何它可能是< PARAM值=「HTTP內:// XXXXXXXXX HTML代碼。哦,當然,HTML代碼鏈接可以改變每一次刷新,所以這就是爲什麼我需要只是得到什麼內的參數。

我使用HtmlAgilityPack在標題中陳述和VB.net 2008

這是我當前的代碼我使用加載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 

但其沒有找到任何值的參數。他們都是空白的... ...

任何幫助將是偉大的!

大衛

回答

1
Dim node = doc.DocumentNode.SelectSingleNode("//object/param[@name='movie']").Attributes("value").Value 

將代碼到時候應該給你你需要什麼

+0

我得到的錯誤**錯誤\t房產訪問必須分配給屬性或使用它的值。**我碼。有什麼建議麼? – StealthRT

+0

您只需分配值(不需要循環)。我稍微更新了我的答案。 –