Json список нуль при десериализации

Question

у меня есть следующие JSON:

 json = <json>{ 
"Header": { 
    "MCC": "415", 
    "FO": "0", 
    "REGID": "2" 
}, 
"Contacts": [ 
    { 
     "mo": "70875623", 
     "name": "salam" 
    }, 
    { 
     "name": "salam2", 
     "mo": "70242352" 
    } 
] 
}</json>.Value 

я пытаюсь deserliaze этот JSON в список:

Public Class Dataa 
Public header As Header 
Public Contacts As Contacts() 
End Class 

<Serializable()> _ 
Public Class Header 
'<System.Runtime.Serialization.DataMember(Name:="MCC")> 
Public MCC As Integer 
' <System.Runtime.Serialization.DataMember(Name:="FO")> 
Public FO As Integer 
'<System.Runtime.Serialization.DataMember(Name:="REGID")> 
Public RegId As Integer 
End Class 

<Serializable()> _ 
Public Class Contacts 
Public name As String 
Public mo As String 
End Class 


Dim jss As New JavaScriptSerializer 
Dim jsonList As Generic.List(Of Dataa) = jss.Deserialize(Of List(Of Dataa))(json) 

проблема есть я получаю список нуль ...

Я что-то упустил?

Answer 1

Попробуйте это, я преобразовал в JSON в C#, а затем преобразуется в C# в vb.net

VB.NET классов ..

данные

Public Class Header 
    Public Property MCC() As String 
     Get 
      Return m_MCC 
     End Get 
     Set 
      m_MCC = Value 
     End Set 
    End Property 
    Private m_MCC As String 
    Public Property FO() As String 
     Get 
      Return m_FO 
     End Get 
     Set 
      m_FO = Value 
     End Set 
    End Property 
    Private m_FO As String 
    Public Property REGID() As String 
     Get 
      Return m_REGID 
     End Get 
     Set 
      m_REGID = Value 
     End Set 
    End Property 
    Private m_REGID As String 
End Class 

Public Class Contact 
    Public Property mo() As String 
     Get 
      Return m_mo 
     End Get 
     Set 
      m_mo = Value 
     End Set 
    End Property 
    Private m_mo As String 
    Public Property name() As String 
     Get 
      Return m_name 
     End Get 
     Set 
      m_name = Value 
     End Set 
    End Property 
    Private m_name As String 
End Class 

Public Class RootObject 
    Public Property Header() As Header 
     Get 
      Return m_Header 
     End Get 
     Set 
      m_Header = Value 
     End Set 
    End Property 
    Private m_Header As Header 
    Public Property Contacts() As List(Of Contact) 
     Get 
      Return m_Contacts 
     End Get 
     Set 
      m_Contacts = Value 
     End Set 
    End Property 
    Private m_Contacts As List(Of Contact) 
End Class 

JSon

{ 
    "Header": { 
     "MCC": "415", 
     "FO": "0", 
     "REGID": "2" 
    }, 
    "Contacts": [ 
     { 
      "mo": "70875623", 
      "name": "salam" 
     }, 
     { 
      "name": "salam2", 
      "mo": "70242352" 
     } 
    ] 
} 

Deserialize json:

Dim json = "{'Header': {'MCC': '415','FO': '0','REGID': '2'},'Contacts': [{'mo': '70875623','name': 'salam'},{'name': 'salam2','mo': '70242352'}]}" 
Dim jss As New JavaScriptSerializer 
Dim jsonList As RootObject = jss.Deserialize(Of RootObject)(json)