[VB.NET] การนำข้อมูลรหัสไปรษณีย์จากรูปแบบ JSON มาแสดงผลลงในตารางกริด และค้นหาข้อมูลได้

thongkorn

ก็เป็นอีกหนึ่งแหล่งที่มาของไฟล์ JSON ที่มีข้อมูลรหัสไปรษณีย์ทั่วประเทศไทย แต่รูปแบบ JSON ของผู้จัดทำเขาออกแนวกลับด้าน คือใช้รหัสไปรษณีย์ในการค้นหาชื่อตำบล อำเภอและจังหวัด แต่โดยปกติเราจะค้นหาด้วยชื่อตำบล อำเภอและจังหวัด เพื่อหารหัสไปรษณีย์มากกว่า พอนำ JSON ชุดนี้มาใช้งาน ก็เลยต้องเขียนโค้ดขึ้นมายากสักหน่อย ในการแยกเอาข้อมูลตำบล อำเภอ จังหวัดที่มันตรงกันเท่านั้น ด้วยการใช้งาน Lambda Expression ... อย่างไรก็ตามเราก็ใช้หลักการเดิม คือ การ Deserialize JSON แยกเอาข้อมูลมาเก็บไว้ใน DataTable ก่อน จากนั้นก็จะทำ BindingSource อีกที แล้วนำไปแสดงผลลงในตารางกริด ส่วนในการค้นหาก็จะใช้ Method Filter ...

แหล่งข้อมูลต้นฉบับไฟล์ JSON ...





Add Reference ... NewtonSoft

ตัวอย่างรูปแบบ JSON ...

1. {
   
2.     "zipCode": "10100",
   
3.     "subDistrictList": [
   
4.       {
   
5.         "subDistrictId": "100801",
   
6.         "districtId": "1008",
   
7.         "provinceId": "10",
   
8.         "subDistrictName": "ป้อมปราบ"
   
9.       },
   
10.       {
    
11.         "subDistrictId": "100802",
    
12.         "districtId": "1008",
    
13.         "provinceId": "10",
    
14.         "subDistrictName": "วัดเทพศิรินทร์"
    
15.       },
    
16.       {
    
17.         "subDistrictId": "100803",
    
18.         "districtId": "1008",
    
19.         "provinceId": "10",
    
20.         "subDistrictName": "คลองมหานาค"
    
21.       },
    
22.       {
    
23.         "subDistrictId": "100804",
    
24.         "districtId": "1008",
    
25.         "provinceId": "10",
    
26.         "subDistrictName": "บ้านบาตร"
    
27.       },
    
28.       {
    
29.         "subDistrictId": "100805",
    
30.         "districtId": "1008",
    
31.         "provinceId": "10",
    
32.         "subDistrictName": "วัดโสมนัส"
    
33.       },
    
34.       {
    
35.         "subDistrictId": "101301",
    
36.         "districtId": "1013",
    
37.         "provinceId": "10",
    
38.         "subDistrictName": "จักรวรรดิ"
    
39.       },
    
40.       {
    
41.         "subDistrictId": "101302",
    
42.         "districtId": "1013",
    
43.         "provinceId": "10",
    
44.         "subDistrictName": "สัมพันธวงศ์"
    
45.       },
    
46.       {
    
47.         "subDistrictId": "101303",
    
48.         "districtId": "1013",
    
49.         "provinceId": "10",
    
50.         "subDistrictName": "ตลาดน้อย"
    
51.       }
    
52.     ],
    
53.     "districtList": [
    
54.       {
    
55.         "districtId": "1008",
    
56.         "districtName": "ป้อมปราบศัตรูพ่าย",
    
57.         "provinceId": "10"
    
58.       },
    
59.       {
    
60.         "districtId": "1013",
    
61.         "districtName": "สัมพันธวงศ์",
    
62.         "provinceId": "10"
    
63.       }
    
64.     ],
    
65.     "provinceList": [
    
66.       {
    
67.         "provinceId": "10",
    
68.         "provinceName": "กรุงเทพมหานคร"
    
69.       }
    
70.     ]
    
71.   }

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

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. '// Special Thank ... Original JSON data.
   
2. '// https://gist.github.com/mennwebs/8ff8e27a01fd06ca2ac965a1c7317552
   
3. 
   
4. Imports Newtonsoft.Json
   
5. Imports System.IO
   
6. 
   
7. Public Class frmJsonPostCode
   
8.     Private JsonSource As New BindingSource()
   
9. 
   
10.     Private Sub frmJsonPostCode_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
11.         '// JSON data as a string
    
12.         Dim json = File.ReadAllText(MyPath(Application.StartupPath) & "src\th-address.json")
    
13.         '// Deserialize JSON into a List(Of LocationData)
    
14.         Dim dataList As List(Of LocationData) = JsonConvert.DeserializeObject(Of List(Of LocationData))(json)
    
15.         Dim DT As New DataTable()
    
16.         '// Add Columns to DataTable.
    
17.         With DT.Columns
    
18.             .Add("zipCode", GetType(String))
    
19.             .Add("subDistrictId", GetType(String))
    
20.             .Add("subDistrictName", GetType(String))
    
21.             .Add("districtId", GetType(String))
    
22.             .Add("districtName", GetType(String))
    
23.             .Add("provinceId", GetType(String))
    
24.             .Add("provinceName", GetType(String))
    
25.         End With
    
26.         '// Loop for add row data to DataTable.
    
27.         Try
    
28.             For Each LocationData In dataList
    
29.                 For Each subDistrict In LocationData.subDistrictList
    
30.                     Dim row As DataRow = DT.NewRow()
    
31.                     row("zipCode") = LocationData.zipCode
    
32.                     row("subDistrictId") = subDistrict.subDistrictId
    
33.                     row("subDistrictName") = subDistrict.subDistrictName
    
34.                     '//
    
35.                     Dim matchingDistrict = LocationData.districtList.FirstOrDefault(Function(d) d.districtId = subDistrict.districtId)
    
36.                     If matchingDistrict IsNot Nothing Then
    
37.                         row("districtId") = matchingDistrict.districtId
    
38.                         row("districtName") = matchingDistrict.districtName
    
39.                     End If
    
40.                     '//
    
41.                     Dim matchingProvince = LocationData.provinceList.FirstOrDefault(Function(p) p.provinceId = subDistrict.provinceId)
    
42.                     If matchingProvince IsNot Nothing Then
    
43.                         row("provinceId") = matchingProvince.provinceId
    
44.                         row("provinceName") = matchingProvince.provinceName
    
45.                     End If
    
46.                     DT.Rows.Add(row)
    
47.                 Next
    
48.             Next
    
49.         Catch ex As Exception
    
50.             MessageBox.Show(ex.Message)
    
51.         End Try
    
52.         '// Set DataTable as the DataSource for BindingSource.
    
53.         JsonSource.DataSource = DT
    
54.         '// Set BindingSource as the DataSource for DataGridView.
    
55.         dgvData.DataSource = JsonSource
    
56.         '// Remove some columns.
    
57.         With dgvData.Columns
    
58.             .Remove("subDistrictId")
    
59.             .Remove("districtId")
    
60.             .Remove("provinceId")
    
61.         End With
    
62.         '//
    
63.         With dgvData
    
64.             .Columns("zipCode").HeaderText = "รหัสไปรษณีย์"
    
65.             .Columns("subDistrictName").HeaderText = "ตำบล/แขวง"
    
66.             .Columns("districtName").HeaderText = "อำเภอ/เขต"
    
67.             .Columns("provinceName").HeaderText = "จังหวัด"
    
68.         End With
    
69.         Call SetupGridView()
    
70.         Me.lblRecordCount.Text = "Total: " & Format(dgvData.RowCount, "#,##") & " Records."
    
71.     End Sub
    
72. 
    
73.     ' / --------------------------------------------------------------------------------
    
74.     '// Filter data.
    
75.     ' / --------------------------------------------------------------------------------
    
76.     Private Sub txtFilterJson_TextChanged(sender As Object, e As System.EventArgs) Handles txtFilterJson.TextChanged
    
77.         If rdoFilterAll.Checked Then
    
78.             '// Filter for All.
    
79.             JsonSource.Filter = _
    
80.                 " provinceName LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
81.                 " OR districtName LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
82.                 " OR subDistrictName LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
83.                 " OR zipCode LIKE " & "'%" & txtFilterJson.Text & "%'"
    
84.             '// Filter ProvinceName.
    
85.         ElseIf rdoProvinceName.Checked Then
    
86.             JsonSource.Filter = "provinceName LIKE " & "'%" & txtFilterJson.Text & "%'"
    
87.             '// Filter DistrictName.
    
88.         ElseIf rdoDistrictName.Checked Then
    
89.             JsonSource.Filter = "districtName LIKE " & "'%" & txtFilterJson.Text & "%'"
    
90.             '// Filter SubDistrictName.
    
91.         ElseIf rdoSubDistrictName.Checked Then
    
92.             JsonSource.Filter = "subdistrictName LIKE " & "'%" & txtFilterJson.Text & "%'"
    
93.             '// Filter ZipCode.
    
94.         ElseIf rdoZipCode.Checked Then
    
95.             JsonSource.Filter = "zipCode LIKE " & "'%" & txtFilterJson.Text & "%'"
    
96.         End If
    
97.         '//
    
98.         Me.lblRecordCount.Text = "Total: " & Format(dgvData.RowCount, "#,##") & " Records."
    
99.     End Sub
    
100. 
     
101.     Private Sub rdoFilterAll_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rdoFilterAll.CheckedChanged
     
102.         txtFilterJson.Focus()
     
103.     End Sub
     
104. 
     
105.     Private Sub rdoProvinceName_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rdoProvinceName.CheckedChanged
     
106.         txtFilterJson.Focus()
     
107.     End Sub
     
108. 
     
109.     Private Sub rdoDistrictName_CheckedChanged(sender As Object, e As System.EventArgs) Handles rdoDistrictName.CheckedChanged
     
110.         txtFilterJson.Focus()
     
111.     End Sub
     
112. 
     
113.     Private Sub rdoSubDistrictName_CheckedChanged(sender As Object, e As System.EventArgs) Handles rdoSubDistrictName.CheckedChanged
     
114.         txtFilterJson.Focus()
     
115.     End Sub
     
116. 
     
117.     Private Sub rdoZipCode_CheckedChanged(sender As Object, e As System.EventArgs) Handles rdoZipCode.CheckedChanged
     
118.         txtFilterJson.Focus()
     
119.     End Sub
     
120. 
     
121. #Region "DATAGRIDVIEW"
     
122.     '// Initialized DataGridView.
     
123.     Private Sub SetupGridView()
     
124.         With dgvData
     
125.             .RowHeadersVisible = True
     
126.             .AllowUserToAddRows = False
     
127.             .AllowUserToDeleteRows = False
     
128.             .AllowUserToResizeRows = False
     
129.             .MultiSelect = False
     
130.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
131.             .ReadOnly = True
     
132.             '// Data rows
     
133.             .Font = New Font("Tahoma", 10)
     
134.             .RowTemplate.MinimumHeight = 27
     
135.             .RowTemplate.Height = 27
     
136.             '// Autosize Column
     
137.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
138.             '// Header
     
139.             With .ColumnHeadersDefaultCellStyle
     
140.                 .BackColor = Color.RoyalBlue
     
141.                 .ForeColor = Color.White
     
142.                 .Font = New Font(dgvData.Font, FontStyle.Bold)
     
143.             End With
     
144.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
145.             .ColumnHeadersHeight = 36
     
146.             '/ Accept changes to the header's background color.
     
147.             .EnableHeadersVisualStyles = False
     
148.             '// Even-Odd Color of Rows.
     
149.             .AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
     
150.             '// Even-Odd Color of Columns.
     
151.             For iCol As Integer = 0 To dgvData.Columns.Count - 1
     
152.                 '// If any integer Mod by 2 and gets the answer is 0 so even number, 1 is an odd number.
     
153.                 If iCol Mod 2 = 1 Then
     
154.                     dgvData.Columns(iCol).HeaderCell.Style.BackColor = Color.BlueViolet
     
155.                 Else
     
156.                     dgvData.Columns(iCol).HeaderCell.Style.BackColor = Color.SeaGreen
     
157.                 End If
     
158.             Next
     
159.         End With
     
160.     End Sub
     
161. #End Region
     
162. 
     
163. #Region "FUNCTION"
     
164.     ' / --------------------------------------------------------------------------------
     
165.     ' / Get my project path
     
166.     ' / AppPath = C:\My Project\bin\debug
     
167.     ' / Replace "\bin\debug" with ""
     
168.     ' / Return : C:\My Project\
     
169.     Function MyPath(ByVal AppPath As String) As String
     
170.         '/ Return Value
     
171.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
172.         '// If not found folder then put the \ (BackSlash) at the end.
     
173.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
174.     End Function
     
175. #End Region
     
176. 
     
177. End Class
     
178. 
     
179. '// Define data model classes.
     
180. Public Class SubDistrict
     
181.     Public Property subDistrictId As String
     
182.     Public Property districtId As String
     
183.     Public Property provinceId As String
     
184.     Public Property subDistrictName As String
     
185. End Class
     
186. 
     
187. Public Class District
     
188.     Public Property districtId As String
     
189.     Public Property districtName As String
     
190.     Public Property provinceId As String
     
191. End Class
     
192. 
     
193. Public Class Province
     
194.     Public Property provinceId As String
     
195.     Public Property provinceName As String
     
196. End Class
     
197. 
     
198. Public Class LocationData
     
199.     Public Property zipCode As String
     
200.     Public Property subDistrictList As List(Of SubDistrict)
     
201.     Public Property districtList As List(Of District)
     
202.     Public Property provinceList As List(Of Province)
     
203. End Class
     

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

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