2020因肺炎疫情，政府限制購買口罩數量與實名制，
並在衛福部健保署網站公開"健保特約機構口罩剩餘數量明細清單"，
我們可以利用程式來取得這些資料並分析之。
1. VB .Net
step1.使用 System.Net.HttpWebRequest,System.Net.HttpWebResponse取得資料,
step2.並將得得資料利用System.IO.StreamReader一行一行讀出來
step3.並比對是否要查詢區域,若是將資料顯示至textbox中
程式碼如下:(完整程式碼:1.github下載 2.本站下載 3.Version2使用HttpClient物件來連線)
Dim data_url As String = "https://data.nhi.gov.tw/Datasets/Download.ashx?rid=A21030000I-D50001-001&l=https://data.nhi.gov.tw/resource/mask/maskdata.csv"
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(data_url)
btn_get_data.Text = "載入資料中..."
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim line As String = vbNull
Dim data_arr() As String
Dim y As Integer
sr.ReadLine() '標題列先讀出來丟掉
While (sr.Peek() >= 0)
line = sr.ReadLine()
data_arr = line.Split(",")
Int32.TryParse(data_arr(4), y)
If (data_arr(2).IndexOf(tb_query.Text.Trim()) >= 0 And y > 0) Then
tb_content.Text = tb_content.Text + data_arr(1) + ",成人口罩量:" + data_arr(4) + vbNewLine
End If
End While
btn_get_data.Text = "取得口罩資料"
2.與LineBot,結合使用Python,相關程式碼至github下載
3.與LineBot,結合使用Google Apps Script,相關程式碼至github下載
4.使用Excel抓取口罩資料 https://www.youtube.com/watch?v=ccgPexy5DFI