我是一位教过数字解决方案课程的老师。虽然我有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