如何从此 JSON 创建 VB.net 类

Question

我正在尝试从下面的 JSON 示例中创建一个 vb.net 类。

我对 JSON 相当陌生，我只是很难弄清楚正确的方法。 我已经查看了许多有关如何执行此操作的示例，但它们的格式比我在下面提供的格式简单得多。

LEVEL0({
  "LEVEL1": [
    {
      "LEVEL2": [
        {
          "City": "Billings",
          "State": "MO",
          "Country": "US",
          "Id": "1122334455",
          "Percent": "39.10"
          }
      ],
      "City": "Billings",
      "Country": "US",
      "NumFound": "1",
      "NumReturned": "1",
      "State": "MO",
      "Status": "Success"
    }
  ],
  "Status": "1"
});

我

以为这会相当容易，但导致我问题的是 LEVEL2 是一个列表。 它可以返回多个城市。 因此，它可以在 [] 中返回类似这样的内容。

{"City": "Billings","State": "MO","Country": "US","Id": "1122334455","Percent": "39.10"},
{"City": "Fairmount","State": "MN","Country": "US","Id": "1177775","Percent": "64.10",}

因此，无论哪种方式，该部分都需要是一个列表，但列表下面的部分也需要是该类的一部分。 您看到 numFound 的位置。

我猜这措辞很差，但我正在努力找到一个很好的例子来说明如何做到这一点。 任何这方面的指示或建议将不胜感激。 我需要正确格式化类，以便当我反序列化为类时，它可以正常工作。

Answer 1

如果您使用的是某种 Web 服务，则当您使用具有所有这些属性的对象时，它应该会自动为您绑定。像这样：

Public Class WrapperClass
    Dim Status As Integer
    Dim LEVEL1 As New List(Of MiddleClass)
End Class
Public Class MiddleClass
    Dim LEVEL2 As New List(Of InnerClass)
    Dim City As String
    Dim Country As String
    Dim NumFound As Integer
    Dim NumReturned As Integer
    Dim State As String
    Dim Status As String
    Public Sub MiddleClass()
    'init code
    End Sub
End Class
Public Class InnerClass
    Dim City As String
    Dim Country As String
    Dim State As String
    Dim Id As Integer
    Dim Percent As Decimal
End Class

然后在您的 Web 服务中，让它接受类型 WrapperClass 的参数