反序列化VB.NET中的嵌套JSON以进行转换

Imports Newtonsoft.Json

' 定义一个类来表示嵌套JSON的结构
Public Class NestedJson
    Public Property Property1 As String
    Public Property Property2 As Integer
    Public Property NestedProperty As NestedJson2
End Class

Public Class NestedJson2
    Public Property Property3 As String
    Public Property Property4 As Integer
End Class

' 反序列化嵌套JSON
Dim json As String = "{""Property1"": ""Value1"", ""Property2"": 123, ""NestedProperty"": {""Property3"": ""Value3"", ""Property4"": 456}}"
Dim result As NestedJson = JsonConvert.DeserializeObject(Of NestedJson)(json)

' 访问反序列化后的对象的属性
Console.WriteLine(result.Property1) ' 输出: Value1
Console.WriteLine(result.Property2) ' 输出: 123
Console.WriteLine(result.NestedProperty.Property3) ' 输出: Value3
Console.WriteLine(result.NestedProperty.Property4) ' 输出: 456