VB.Net JSON数据导入

时间:2019-10-31 22:24:16

标签: json vb.net json.net

我是一位教过数字解决方案课程的老师。虽然我有VB.net和VBA的经验,但是我没有JSON的经验。

我想使用以下代码中基于URL的数据。 如果有人可以协助编写代码并添加一些注释(注释)以说明特定的行,那么这将很有帮助。以下代码是我自己尝试从互联网上发现的,可能部分不正确(尤其是“案例”部分)。enter code here

Option Strict On
Imports System.Net
Imports System.IO
Imports System.Linq
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

Public Class WeatherMain

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim request As HttpWebRequest
    Dim response As HttpWebResponse = Nothing
    Dim reader As StreamReader
    Dim Sec1 As String

    Try

        request = DirectCast(WebRequest.Create("http://www.data.qld.gov.au/datastore/dump/2bbef99e-9974-49b9-a316-57402b00609c?format=json"), HttpWebRequest)
        response = DirectCast(request.GetResponse(), HttpWebResponse)
        reader = New StreamReader(response.GetResponseStream())

        Dim rawresp As String
        rawresp = reader.ReadToEnd()

        Dim jResults As JObject = JObject.Parse(rawresp)

        Dim results As List(Of JToken) = jResults.Children().ToList()

        For Each item As JProperty In results
            item.CreateReader()
            Select Case item.Name
                Case "Site"
                    Dim strResult = item.Value.ToString
                    Select Case strResult
                        Case "Gold Coast"
                            MsgBox("Gold Coast")

                        Case Else
                            MsgBox("Unable to handle " & strResult)
                    End Select
            End Select
        Next


    Catch ex As Exception
        MsgBox(ex.ToString)
    Finally
        If Not response Is Nothing Then response.Close()
    End Try
End Sub

End Class

0 个答案:

没有答案