[VB.NET] การอ่านข้อมูลไฟล์ CSV จากลิ้งค์ (URL) โดยตรง (ข้อมูลการเฝ้าระวัง COVID-19 ประเทศไทย)

thongkorn

CSV ย่อมาจาก Comma Separated Value เป็นไฟล์ข้อความประเภทหนึ่ง ที่ใช้สำหรับเก็บข้อมูลในรูปแบบตาราง โดยใช้เครื่องหมายจุลภาค หรือคอมม่า (,) ในการแบ่งแต่ละคอลัมภ์ โดยปกติเราสามารถบันทึกไฟล์จาก Microsoft Excel ออกมาเป็น CSV ไฟล์ได้โดยตรง หรืออาจได้ไฟล์ CSV จากการ export ไฟล์จากระบบฐานข้อมูลอื่นๆ ... บทความชุดนี้จะใช้การอ่านไฟล์ CSV จากลิ้งค์โดยตรง คือจะไม่บันทึกไฟล์ CSV ลงในเครื่องคอมฯก่อน แต่จะใช้การอ่านข้อมูลจากไฟล์ CSV ผ่านเว็บไซต์ไปเลย โดยแอดมินจะใช้ ข้อมูลการเฝ้าระวัง COVID-19 ของประเทศไทย ...

ข้อมูลไฟล์ CSV (Comma Separated Value) ...

มาดูโค้ดกันเถอะ ...

1. Imports System.Net
   
2. Imports System.IO
   
3. 
   
4. Public Class frmWatchCovid19
   
5. 
   
6.     Private Sub frmWatchCovid19_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         lblCount.Text = ""
   
8.         txtURL.Text = "https://raw.githubusercontent.com/M4R14/covid-19-thailand/master/data.csv"
   
9.     End Sub
   
10. 
    
11.     Private Sub btnReadCSV_Click(sender As System.Object, e As System.EventArgs) Handles btnReadCSV.Click
    
12.         Try
    
13.             '//
    
14.             Dim tbl As New DataTable
    
15.             tbl.Columns.Add("Date", GetType(String))
    
16.             tbl.Columns.Add("Check", GetType(Integer))
    
17.             tbl.Columns.Add("Confirmed", GetType(Integer))
    
18.             tbl.Columns.Add("Recovered", GetType(Integer))
    
19.             tbl.Columns.Add("Deaths", GetType(Integer))
    
20.             '/
    
21.             Dim strReader As New StringReader(DownloadCSV(txtURL.Text))
    
22.             Dim line = strReader.ReadLine
    
23.             Dim RowCount As Integer = 0
    
24.             While String.IsNullOrEmpty(line) = False Or Not IsNothing(line)
    
25.                 '// Split comma delimited.
    
26.                 Dim parts = line.Split(","c)
    
27.                 If parts(0).Trim.ToLower <> "date" Then
    
28.                     tbl.Rows.Add(New Object() { _
    
29.                             parts(0).ToString.Trim, _
    
30.                             parts(1).ToString.Trim, _
    
31.                             parts(2).ToString.Trim, _
    
32.                             parts(3).ToString.Trim, _
    
33.                             parts(4).ToString.Trim})
    
34.                     RowCount += 1
    
35.                 End If
    
36.                 '// Get new line.
    
37.                 line = strReader.ReadLine
    
38.             End While
    
39.             '//
    
40.             dgvData.DataSource = tbl
    
41.             lblCount.Text = "จำนวน: " & RowCount & " รายการ."
    
42.             '// Setup DataGridView
    
43.             Call InitDataGrid()
    
44. 
    
45.         Catch ex As Exception
    
46.             MessageBox.Show(ex.Message)
    
47.         End Try
    
48.     End Sub
    
49. 
    
50.     ' / -----------------------------------------------------------------------------
    
51.     ' / Use StreamReader class to download csv without the need to save it locally.
    
52.     Public Function DownloadCSV(ByVal url As String) As String
    
53.         Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
    
54.         Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
    
55.         Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
    
56.         Dim results As String = streamReader.ReadToEnd()
    
57.         streamReader.Close()
    
58.         Return results
    
59.     End Function
    
60. 
    
61.     Private Sub InitDataGrid()
    
62.         '//
    
63.         With dgvData
    
64.             .RowHeadersVisible = True
    
65.             .AllowUserToAddRows = False
    
66.             .AllowUserToDeleteRows = False
    
67.             .AllowUserToResizeColumns = True
    
68.             .AllowUserToResizeRows = False
    
69.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
70.             .MultiSelect = False
    
71.             '// Data rows
    
72.             .Font = New Font("Tahoma", 11)
    
73.             .RowTemplate.MinimumHeight = 27
    
74.             .RowTemplate.Height = 27
    
75.             '// Column Header
    
76.             .ColumnHeadersHeight = 27
    
77.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
    
78.             '// -------------- Dot Net Bar ----------------
    
79.             '// Autosize Column
    
80.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
81.             '.AutoResizeColumns()
    
82.             '// Even-Odd Color
    
83.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
84.             ' Adjust Header Styles
    
85.             With .ColumnHeadersDefaultCellStyle
    
86.                 .BackColor = Color.Navy
    
87.                 .ForeColor = Color.Black
    
88.                 .Font = New Font("Tahoma", 12, FontStyle.Bold)
    
89.             End With
    
90.             .RowHeadersDefaultCellStyle.SelectionBackColor = Color.Empty
    
91.         End With
    
92.         '//
    
93.         With dgvData.Columns(0)
    
94.             .Name = "Date"
    
95.             .HeaderText = "วันที่"
    
96.             .ReadOnly = True
    
97.         End With
    
98.         With dgvData.Columns(1)
    
99.             .Name = "check"
    
100.             .HeaderText = "เฝ้าระวัง"
     
101.             .DefaultCellStyle.Format = "n0"
     
102.         End With
     
103.         With dgvData.Columns(2)
     
104.             .Name = "Confirmed"
     
105.             .HeaderText = "ยืนยัน"
     
106.         End With
     
107.         With dgvData.Columns(3)
     
108.             .Name = "Recovered"
     
109.             .HeaderText = "รักษาหาย"
     
110.         End With
     
111.         With dgvData.Columns(4)
     
112.             .Name = "Deaths"
     
113.             .HeaderText = "เสียชีวิต"
     
114.         End With
     
115.         '//
     
116.         For i = 1 To 4
     
117.             With dgvData.Columns(i)
     
118.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
119.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
120.                 .ReadOnly = True
     
121.             End With
     
122.         Next
     
123.     End Sub
     
124. 
     
125. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ