Imports System

Imports System.Linq

Imports System.Collections

Imports System.Collections.Generic

Imports System.Data

Imports System.IO

Imports System.Globalization

Imports System.Reflection

Imports System.ComponentModel.DataAnnotations

Imports System.Xml.Linq

Imports System.Xml

Imports Microsoft.VisualBasic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/65110846/how-to-cycle-for-dynamic-jobjects-in-another-jobject

​

    Public Module TestClass 

​

        Friend Sub Test()

            Dim json as String = GetJson()

            Dim options As JObject = JObject.Parse(json)

            For Each jProperty As JProperty In options("data")

                Dim propertyName = jProperty.Name ' The "89359" names, in case you need them for some reason

                Dim opt As JObject = jProperty.Value

                Dim name As String = opt("name")  ' Cast the name to a String using the JToken implicit casting operator

                ' Use the name as required

                ' MsgBox(name)

                Console.WriteLine(name)

            Next    

        End Sub 

​

        Function GetJson() as String

            Dim Jstring As String = <![CDATA[

{

  "data": {

    "89359": {

      "name": "A",

      //...

    },

    "89360": {

      "name": "B",

      //...

    }

  }

}

]]>.Value       

            Return Jstring      

        End Function

    End Module

​

    Public Module Module1   

        Public Sub Main()

            Console.WriteLine("Environment version: " & Environment.Version.ToString())

            Console.WriteLine("Json.NET version: " & GetType(JsonSerializer).Assembly.FullName)

            Console.WriteLine("")

​

            Try

​

                TestClass.Test()

​

            Catch ex as Exception

​

                Console.WriteLine("Unhandled exception: ")

                Console.WriteLine(ex)

                Throw

​

            End Try

        End Sub 

    End Module

​

​