FTX
asked on
Deserialize JSON
Here is my data format and code to display values from the JSON variable. This displays all of the value for attendees. I need to be able to display each name, email value but get lost after this.
Dim cMessage As String = "{ ""meeting_id"": 1234, " & _
"""instance_id"": 5678," & _
"""attendees"": [ " & _
"{" & _
"""name"": ""wesgroves"", " & _
"""email"": ""wes@wes.com"", " & _
"}" & _
"," & _
"{" & _
"""name"": ""wes2groves"", " & _
"""email"": ""wes2@wes2.com"", " & _
"}" & _
"]" & _
"}"
Dim objResponse As JsonObject
'MsgBox("Last response was: " + objResponse("error")("mess age"))
objResponse = CType(JsonConvert.Import(c Message), JsonObject)
MsgBox("Last response was: " & objResponse("attendees").T oString)
Dim cMessage As String = "{ ""meeting_id"": 1234, " & _
"""instance_id"": 5678," & _
"""attendees"": [ " & _
"{" & _
"""name"": ""wesgroves"", " & _
"""email"": ""wes@wes.com"", " & _
"}" & _
"," & _
"{" & _
"""name"": ""wes2groves"", " & _
"""email"": ""wes2@wes2.com"", " & _
"}" & _
"]" & _
"}"
Dim objResponse As JsonObject
'MsgBox("Last response was: " + objResponse("error")("mess
objResponse = CType(JsonConvert.Import(c
MsgBox("Last response was: " & objResponse("attendees").T
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.