如何解析 vb.net 中的 json 数组?
How to parse json array in vb.net?
我正在学习 JSON,我想解析 json 数组并使用 [=42= 仅获取一个值]。我发现这个 QUESTION 有答案,但 我似乎没有得到我要找的东西 。根据提问者的说法,他有这个
"links":[
{
"rel":"next",
"href":"www.google.com"
}
]
我们可以用它来解析json数组
links(1).Item("rel")
或这个
links(1)("rel")
如果我只有这个怎么办?
[{
"rel":"next",
"href":"www.google.com"
}]
没有链接这个词,我该如何编码?我知道 links 是 table 名称,对吗?我尝试了很多可能性,这给了我更多错误。如果有人能帮助我,我将不胜感激。
P.S。这与 this 不重复,因为我不打算将信息添加到 DataGridView。我在这里想要的是解析一个字段。只获取一个结果,而不是整个列表。
您需要使用 :
Imports Newtonsoft.Json
JsonConvert.DeserializeObject(Of <Your Class object>)(<JSON String>)
完成这个 link Deserialize Json
发现可以解析 json,前提是安装了 library。
Dim token As JToken
Dim rel
Dim href
For Each value As Object In result
token = JObject.Parse(value.ToString())
rel = token.SelectToken("rel")
href = token.SelectToken("href")
Console.WriteLine("{0} {1}", rel, href)
Next value
前提是存在此代码
' Create a request for the URL.
Dim request As WebRequest = WebRequest.Create("http://")
' If required by the server, set the credentials.
request.Credentials = CredentialCache.DefaultCredentials
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
' Get the stream containing content returned by the server.
Dim dataStream As Stream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
'Dim responseFromServer As String = reader.ReadToEnd()
Console.WriteLine(responseFromServer)
Dim result = JsonConvert.DeserializeObject(Of ArrayList)(responseFromServer)
和底部的代码
Console.ReadKey()
' Clean up the streams and the response.
reader.Close()
response.Close()
进口...
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
我正在学习 JSON,我想解析 json 数组并使用 [=42= 仅获取一个值]。我发现这个 QUESTION 有答案,但 我似乎没有得到我要找的东西 。根据提问者的说法,他有这个
"links":[
{
"rel":"next",
"href":"www.google.com"
}
]
我们可以用它来解析json数组
links(1).Item("rel")
或这个
links(1)("rel")
如果我只有这个怎么办?
[{
"rel":"next",
"href":"www.google.com"
}]
没有链接这个词,我该如何编码?我知道 links 是 table 名称,对吗?我尝试了很多可能性,这给了我更多错误。如果有人能帮助我,我将不胜感激。
P.S。这与 this 不重复,因为我不打算将信息添加到 DataGridView。我在这里想要的是解析一个字段。只获取一个结果,而不是整个列表。
您需要使用 :
Imports Newtonsoft.Json
JsonConvert.DeserializeObject(Of <Your Class object>)(<JSON String>)
完成这个 link Deserialize Json
发现可以解析 json,前提是安装了 library。
Dim token As JToken
Dim rel
Dim href
For Each value As Object In result
token = JObject.Parse(value.ToString())
rel = token.SelectToken("rel")
href = token.SelectToken("href")
Console.WriteLine("{0} {1}", rel, href)
Next value
前提是存在此代码
' Create a request for the URL.
Dim request As WebRequest = WebRequest.Create("http://")
' If required by the server, set the credentials.
request.Credentials = CredentialCache.DefaultCredentials
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
' Get the stream containing content returned by the server.
Dim dataStream As Stream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
'Dim responseFromServer As String = reader.ReadToEnd()
Console.WriteLine(responseFromServer)
Dim result = JsonConvert.DeserializeObject(Of ArrayList)(responseFromServer)
和底部的代码
Console.ReadKey()
' Clean up the streams and the response.
reader.Close()
response.Close()
进口...
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq