1

我正在尝试从雅虎中提取页面标题

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 问题。

谢谢。

4

1 回答 1

3

拉取 web url 时,您应该使用HtmlWeb该类来加载文档。该HtmlDocument.Load方法只能从本地文件(或流)中读取。您可能会看到类似于“无法从 url 读取”或“不支持 url”的错误。

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
于 2013-06-21T15:53:45.687 回答