Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim json As String = File.ReadAllText("D:\nic.json")
- Dim jsonres = JToken.Parse(json)
- 'json string with single object
- If TypeOf jsonres.SelectToken("result") Is JObject Then
- lstMsg.Items.Add("Checked JSON type : Token result is an object")
- 'nested object displayed , our information in token "result"
- Dim obj As JObject = JObject.Parse(json)
- lstMsg.Items.Add("JSON string is " & obj.ToString)
- 'so at here we get inner object by specified token name "result"
- Dim objResult = obj.SelectToken("result")
- 'assign to variable
- jName = objResult.SelectToken("Name").ToString
- jData = objResult.SelectToken("Data").ToString
- jDate = objResult.SelectToken("DateTime").ToString
- 'show at listbox
- lstMsg.Items.Add("Name is :" & jName)
- lstMsg.Items.Add("Data is :" & jData)
- lstMsg.Items.Add("Date is :" & jDate)
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement