2013-06-21 78 views
1

我試圖從雅虎拉頁的標題的Visual Basic和HTML敏捷性包

http://finance.yahoo.com/q?s=plug

我詢問用戶符號是創建網址:http://finance.yahoo.com/q?s=plug

程序的偉大工程時,我加載相同頁面的局部的.html ...

這裏是我的代碼:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim symbol As String, htmldoc As New HtmlDocument 
    symbol = TextBox3.Text 
    htmldoc.Load("http://finance.yahoo.com/q?s=plug") 
    Dim items = htmldoc.DocumentNode.SelectNodes("//head/title").Select(Function(node) New KeyValuePair(Of String, String)(node.InnerText, node.InnerText)) 

    For Each item As KeyValuePair(Of String, String) In items 
     Console.WriteLine(item.Key) 
     Console.WriteLine(item.Value) 
    Next 

End Sub 

任何人有任何想法如何我可以得到這項工作?我最終想拉股票等...

我也學習一個更簡單的方法來做我想要完成的東西。而不是使用KeyValuePair等等......只是我終於得到了另一個SO問題的工作。

謝謝。

+1

此外誰投了票,我一直在研究這個過去一週,我終於得到了這麼多! – alex

+0

您通常應該說明問題是什麼以及您收到的錯誤。你基本上問過,「這是我的代碼,我怎麼做這個工作?」 –

回答

3

當拉一個網址時,你應該使用HtmlWeb類來加載文件。 HtmlDocument.Load方法只能從本地文件(或流)中讀取。您可能會看到「無法從網址讀取」或「網址不受支持」的錯誤。

Dim url = "http://finance.yahoo.com/q?s=plug" 
Dim web = new HtmlWeb 
Dim doc = web.Load(url) 
Dim titleNode = doc.DocumentNode.SelectSingleNode("/html/head/title") 
Dim title As String 
If titleNode IsNot Nothing Then 
    title = titleNode.InnerText 
End If 
+0

非常感謝! – alex