Deserializar usando JSON.net

vb.net

Question

Soy muy nuevo en json, JSON.net y todo eso. Después de leer preguntas similares aquí, no puedo hacer que mi código funcione. ¿Cuál es exactamente mi error? ¿Qué he supervisado? ¿Es posible omitir las clases "enlaces" y "meta" con fines de prueba o tengo que definir CADA propiedad?

Tengo la siguiente salida REST:

{
   "codes" : [
      {
         "href" : "https://www.someserver.com/form_definitions/OIlG4GxMyeh0sdrt3AYuaXbauGicW71M/field_definitions/zFEova6LiPM/codes/4Sxnr961xzM",
         "rel" : "document_field_definition_code",
         "title" : "TITLE 1"
      },
      {
         "href" : "https://www.someserver.com/form_definitions/OIlG4GxMyeh0sdrt3AYuaXbauGicW71M/field_definitions/zFEova6LiPM/codes/buho0CsLc5k",
         "rel" : "document_field_definition_code",
         "title" : "TITLE 2"
      },
      {
         "href" : "https://www.someserver.com/form_definitions/OIlG4GxMyeh0sdrt3AYuaXbauGicW71M/field_definitions/zFEova6LiPM/codes/RvQoykUM_Sk",
         "rel" : "document_field_definition_code",
         "title" : "TITLE 3"
      }
   ],
   "links" : [
      {
         "about" : "https://www.someserver.com/form_definitions/OIlG4GxMyeh0sdrt3AYuaXbauGicW71M/field_definitions/zFEova6LiPM/codes?about=1",
         "href" : "https://www.someserver.com/form_definitions/OIlG4GxMyeh0sdrt3AYuaXbauGicW71M/field_definitions/zFEova6LiPM/codes",
         "method" : "GET",
         "rel" : "self",
         "title" : null,
         "type" : "codes"
      },
      {
         "href" : "https://www.someserver.com/form_definitions/OIlG4GxMyeh0sdrt3AYuaXbauGicW71M/field_definitions/zFEova6LiPM/codes",
         "method" : "POST",
         "rel" : "codes",
         "title" : "create new codes entity"
      }
   ],
   "meta" : {
      "description" : null,
      "last_page" : 1,
      "page_offset" : 0,
      "page_size" : 50,
      "query-template" : "/codes{?query_search,page_offset,page_size,query_identification,embedded,properties,about}",
      "total" : 6
   }
}

Como entendí, necesito tres clases: por ejemplo, códigos, enlaces y meta.

Creé una clase "clscodes":

Public Class clsCode
    Private m_href As String
    Private m_rel As String
    Private m_title As String

    Public Property Href As String
        Get
            Return m_href
        End Get
        Set(value As String)
            m_href = value
        End Set
    End Property

    Public Property Rel As String
        Get
            Return m_rel
        End Get
        Set(value As String)
            m_rel = value
        End Set
    End Property

    Public Property Title As String
        Get
            Return m_title
        End Get
        Set(value As String)
            m_title = value
        End Set
    End Property
End Class

Y creé una clase clsValuelist:

Public Class clsWerteliste

    Private m_code As IList(Of clsCode)

    Public Property Code() As clsCode()
        Get
            Return m_code
        End Get
        Set(value As clsCode())
            m_code = value
        End Set
    End Property
End Class

Cuando trato de deserializarlo obtengo "nada" como en "CoolOutput"

Dim CoolOutput As New clsWerteliste
CoolOutput = JsonConvert.DeserializeObject(Of clsWerteliste)(jsonstring)

Answer 1

Sus clases son bastante cercanas, parece que posiblemente intentó mejorar un poco las cosas, como cambiar los codes a Codes pero al hacerlo, las propiedades ya no coinciden. Puede cambiar los nombres de clase pero no los nombres de propiedad (al menos no de esa manera):

Public Class CodeLinkContainer
    <JsonProperty("codes")>
    Public Property Codes As IList(Of Code)
    <JsonProperty("links")>
    Public Property Links As IList(Of Link)
    <JsonProperty("meta")>
    Public Property Meta As Meta
End Class

Public Class Meta
    Public Property description As Object
    Public Property last_page As Integer
    Public Property page_offset As Integer
    Public Property page_size As Integer
    Public Property querytemplate As String
    Public Property total As Integer
End Class

Public Class Code
    Public Property href As String
    Public Property rel As String
    Public Property title As String
End Class

Public Class Link
    Public Property about As String
    Public Property href As String
    Public Property method As String
    Public Property rel As String
    Public Property title As String
    Public Property type As String
End Class

El uso de las propiedades de AutoImplement, disponibles desde hace un tiempo, significa que puede omitir todo el código Get , Set repetitivo. VS creará las clases para ti también:
Menú Editar -> Pegado especial -> Pegar Json como clases

A veces tiene que ajustar la clase si hay una propiedad de matriz / lista. Por ejemplo, los robots pueden escribir:

Public Property elements() As Element

Cuando debería ser:

Public Property elements As Element()

La clase contenedor muestra cómo usar <JsonProperty("pname")> para cambiar el nombre de la propiedad si lo desea. Esto a menudo debe hacerse para crear un alias para un nombre de propiedad que es una palabra clave en VB ( Return , Error , etc.). En este caso, cambié los codes y links para que fueran Lists como lo hiciste.

    Dim jstr = ... from whereever

    Dim CodeLinks = JsonConvert.DeserializeObject(Of CodeLinkContainer)(jstr)

    Console.WriteLine(CodeLinks.meta.total)
    For Each Item In CodeLinks.codes
        Console.WriteLine(Item.title)
    Next

Resultado:

6 6
TÍTULO 1
TÍTULO 2
TÍTULO 3