vb .net迭代动态json

Imports Newtonsoft.Json.Linq

' 假设有一个动态JSON对象
Dim json As JObject = JObject.Parse("{
    'name': 'John',
    'age': 30,
    'city': 'New York'
}")

' 迭代JSON对象的属性
For Each property As JProperty In json.Properties()
    Dim propertyName As String = property.Name
    Dim propertyValue As JToken = property.Value

    ' 在这里可以对属性进行相应的操作
    Console.WriteLine("属性名: " & propertyName)
    Console.WriteLine("属性值: " & propertyValue.ToString())
Next