Dim json As String = "{""name"":""John Doe"",""age"":30,""isEmployed"":true,""skills"":[""C#"",""VB.NET"",""SQL""],""address"":{""street"":""123 Main St"",""city"":""Anytown"",""zip"":""12345""}}"
Dim jo As JObject = JObject.Parse(json)
For Each it As Object In jo
Output.Show(it.value.Type)
Next
For Each item As JTokenType In [Enum].GetValues(GetType(JTokenType))
Output.Show(item & "-" & item.Tostring())
Next
加好友 
发短信
Post By：2024/9/13 12:02:00 [显示全部帖子]
