サービスから返されたJson文字列を解析しようとしています。簡単にするために、次のようになります。
Dim jsonstring = _
<s>
{"menu": {
"id": "file",
"value": "File",
"popup": {
"menuitem": [
{"value": "New", "onclick": "CreateNewDoc()"},
{"value": "Open", "onclick": "OpenDoc()"},
{"value": "Close", "onclick": "CloseDoc()"}
]
}
}}
</s>.Value
現在、次の関数を使用してjson文字列をオブジェクトに読み取っていますが、すべてのプロパティは常に何もありません。上記の文字列の json オブジェクトごとにオブジェクトを作成しました。オブジェクトには Datacontract 属性と Datamember 属性があります。ヒントはありますか?
Dim menu = JsonObject(Of Menu)(jsonstring)
Console.WriteLine(menu.value)
Private Function JsonObject(Of t)(jsonString As String) As t
Dim ser As New DataContractJsonSerializer(GetType(t))
Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(jsonString))
ms.Position = 0
Dim obj As t = DirectCast(ser.ReadObject(ms), t)
Return obj
End Function