鏈接/網絡CSV到datagridview的

Question

我知道如何從本地CSV填充的DataGridView，但我怎麼能填充的DataGridView含有CSV鏈接（如http://financials.morningstar.com/ajax/ReportProcess4CSV.html?&t=XNAS:AAPL&region=usa&culture=en-US&cur=USD&reportType=is&period=12&dataType=A&order=desc&columnYear=5&rounding=3&view=raw&r=706201&denominatorView=raw&number=3）

我有這樣的代碼爲本地CSV，第一行應改變爲指向一個鏈接，但我不知道如何。

Dim TextFieldParser1 As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\finviz.csv") 

     TextFieldParser1.Delimiters = New String() {","} 

     While Not TextFieldParser1.EndOfData 
      Dim Row1 As String() = TextFieldParser1.ReadFields() 

      If DataGridView1.Columns.Count = 0 AndAlso Row1.Count > 0 Then 
       Dim i As Integer 

       For i = 0 To Row1.Count - 1 
        DataGridView1.Columns.Add("Column" & i + 1, "Column" & i + 1) 
       Next 
      End If 

      DataGridView1.Rows.Add(Row1) 
     End While 

謝謝。

Answer 1

嘗試：

Dim myUri As New Uri("http://financials.morningstar.com/ajax/ReportProcess4CSV.html?&t=XNAS:AAPL&region=usa&culture=en-US&cur=USD&reportType=is&period=12&dataType=A&order=desc&columnYear=5&rounding=3&view=raw&r=706201&denominatorView=raw&number=3") 
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(myUri), HttpWebRequest) 
    Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse) 
    Dim receiveStream As Stream = response.GetResponseStream() 

    Dim TextFieldParser1 As New Microsoft.VisualBasic.FileIO.TextFieldParser(receiveStream) 
    TextFieldParser1.Delimiters = New String() {","} 
    While Not TextFieldParser1.EndOfData 
     Dim Row1 As String() = TextFieldParser1.ReadFields() 

     If DataGridView1.Columns.Count = 0 AndAlso Row1.Count > 0 Then 
      Dim i As Integer 

      For i = 0 To Row1.Count - 1 
       DataGridView1.Columns.Add("Column" & i + 1, "Column" & i + 1) 
      Next 
     End If 

     DataGridView1.Rows.Add(Row1) 
    End While 

    receiveStream.Close() 
    response.Close() 

Answer 2

您需要這行之前添加CSV文本下載代碼：

Dim TextFieldParser1 As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\finviz.csv") 

要麼使用WebClient的DownloadFile在單獨的線程或DownloadFileAsync（即使用自己獨立的線程）或HttpWebRequest，HttpWebResponse類下載csv，然後用TextFieldParser解析。

另外，不要硬編碼文件名。