Question

我正在vb.net上编写程序。我的程序将生成每个股票的收盘价的回报图表。现在，我必须去雅虎财务并选择日期和下载。然后我在excel中打开文件并复制已关闭价格的列。然后我将这些值粘贴到记事本中。最后，我的程序读取记事本文件并生成图表。

那么无论如何我只能在vb.net中输入符号并获得我需要的所有值而不经过所有这些步骤？

Answer 1

从http://www.vb-helper.com/howto_net_graph_stock_history.html

被盗

以下代码将为您提供从Yahoo获取股票报价所需的信息。您只需将股票代码传递给GetStockPrices即可。我相信，默认情况下，它会从谷歌财务中下载一年的历史数据。

真的，你需要做的就是谷歌：'vb.net下载股票报价历史' - 你会发现很多东西。

' Get the prices for this symbol.
Private Function GetStockPrices(ByVal symbol As String) As _
    List(Of Single)
    ' Compose the URL.
    Dim url As String = _
        "http://www.google.com/finance/historical?output=csv&q=" _
        & symbol

    ' Get the result.
    ' Get the web response.
    Dim result As String = GetWebResponse(url)

    ' Get the historical prices.
    Dim lines() As String = result.Split( _
        New String() {vbCr, vbLf}, _
        StringSplitOptions.RemoveEmptyEntries)
    Dim prices As New List(Of Single)()

    ' Process the lines, skipping the header.
    For i As Integer = 1 To lines.Length - 1
        Dim line As String = lines(i)
        prices.Add(Single.Parse(line.Split(","c)(4)))
    Next i

    Return prices
End Function

从雅虎财经中检索每只股票的历史收盘价？

1 个答案: