VB.Net将JSON数组解析为键:值对的字典，以获得与Xojo代码相同的结果(示例)

Imports Newtonsoft.Json.Linq

' JSON字符串
Dim jsonString As String = "[{'name':'John', 'age':30}, {'name':'Jane', 'age':25}]"

' 解析JSON数组
Dim jsonArray As JArray = JArray.Parse(jsonString)

' 创建字典
Dim dictionary As New Dictionary(Of String, Object)

' 遍历JSON数组
For Each item As JObject In jsonArray
    ' 获取键值对
    For Each property As JProperty In item.Properties()
        dictionary.Add(property.Name, property.Value)
    Next
Next

' 打印字典内容
For Each kvp As KeyValuePair(Of String, Object) In dictionary
    Console.WriteLine("Key: " & kvp.Key & ", Value: " & kvp.Value)
Next