[VB.NET] JSON 파싱

vb.net json 파싱하기

 

Imports System.Net
Imports System.Net.Json

Private Sub json_DISP()
        Dim Url As String = "파싱할 uri주소"
        Dim request As HttpWebRequest = WebRequest.Create(Url)
        Dim response As HttpWebResponse = request.GetResponse()
        Dim stream As Stream = response.GetResponseStream()
        Dim reader As StreamReader = New StreamReader(stream, Encoding.UTF8)
        Dim Streamstr = reader.ReadToEnd()
        reader.Close()

        Dim _Json_Text As JsonTextParser = New JsonTextParser()
        Dim _Json As JsonObject = _Json_Text.Parse(Streamstr)

        Dim _Json_CT As JsonObjectCollection
        For i As Integer = 0 To _Json.GetValue.count - 1
            _Json_CT = CType(_Json.GetValue(i), JsonObjectCollection)

            If i = 0 Then
                //스프레드 초기화
                DataGridView1.ColumnCount = _Json_CT.Count
            End If

            DataGridView1.Rows.Add(DataGridView1.RowCount, 1) //Rows 한줄추가 
            For j As Integer = 0 To _Json_CT.Count - 1
                Dim _name, _data As String
                Dim _Json_Val As JsonObject = _Json_CT(j)

                _name = _Json_Val.Name
                If IsNothing(_Json_Val.GetValue()) Then
                    _data = ""
                Else
                    _data = _Json_Val.GetValue().ToString()
                End If

                DataGridView1.Rows(DataGridView1.RowCount - 1).Cells(j).Value = _data

                If i = 0 Then DataGridView1.Columns(j).HeaderText = _name //컬럼명 설정
            Next
        Next
End Sub