链接/ Web CSV到datagridview [英] Link/Web CSV into datagridview

问题描述

我知道如何从本地CSV填充datagridview，但如何从包含CSV的链接填充Datagridview（例如 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 ）

I know how to populate datagridview from local CSV, but how can I populate Datagridview from a link containing CSV (e.g. 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的代码，第一行应该改为指向一个链接，但我不知道如何。

I have this code for a local CSV, first line should be changed to point to a link, but I don't know how.

 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

感谢。

推荐答案

p>

try that:

    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()

这篇关于链接/ Web CSV到datagridview的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！