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 JToken In jo.Children
Output.Show(it.Type)
Next
以上代码输出全部为4,明明有JTokenType.Object,JTokenType.Array,JTokenType.Property
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