yahoo finance에서 각 주식의 과거 마감 가격을 검색 하시겠습니까?

Question

나는 vb.net에서 프로그램을 쓰고있다. 내 프로그램은 각 주식에 대한 마감 가격의 수익률 그래프를 생성합니다. 자, 저는 야후 재무에 가서 날짜를 선택하고 다운로드해야합니다. 그런 다음 파일을 열어 닫은 가격의 열을 복사합니다. 그런 다음 그 값을 메모장에 붙여 넣습니다. 마지막으로, 내 프로그램은 메모장 파일을 읽고 그래프를 생성합니다.

어쨌든 vb.net에 심볼을 입력 할 수 있으며이 모든 단계를 거치지 않고 필요한 모든 값을 얻을 수 있습니까? http://www.vb-helper.com/howto_net_graph_stock_history.html

에서

Answer 1

도난 아래 코드는 당신이 야후의 주식 시세를 검색 할 필요가 무엇을 제공 할 것입니다. 단순히 GetStockPrices에 시세 표시 기호를 전달해야합니다. 나는 기본적으로 Google 금융에서 1 년 간의 과거 데이터를 다운로드한다고 생각합니다.

정말로, 당신이해야 할 일은 '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