Imports System

Imports System.Linq

Imports System.Collections

Imports System.Collections.Generic

Imports System.Data

Imports System.IO

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

​

    ' https://stackoverflow.com/questions/76295645/unable-to-get-required-values-from-json-string-using-newtonsoft-json-net

​

    Public Module TestClass 

​

        Friend Sub Test()

            Dim jsonString As String = GetJson()

            Dim json As JObject = JObject.Parse(jsonString)

            Dim dicomModalities As JObject = json("DicomModalities")

            Dim message As String = ""

​

            For Each modality As JProperty In dicomModalities.Properties()

                message = modality.Name & "-" & modality.Value("AET").ToString() 

                ' MessageBox.Show(message)

                Console.WriteLine(message)

            Next

        End Sub 

​

        Function GetJson() as String

            Dim Jstring As String = <![CDATA[

{

"DicomModalities" : {

      "Modality1" : {"AET" : "PACS1",

      "Port" : 4242,

      "Host" : "192.168.253.5",

      "AllowEcho" : true,

      "AllowFind" : false,

      "AllowMove" : true,

      "AllowStore" : true},

      "Modality2" : {"AET" : "GINKGO",

      "Port" : 11112,

      "Host" : "127.0.0.1",

      "AllowEcho" : false,

      "AllowFind" : false,

      "AllowMove" : false,

      "AllowStore" : true}

      }

}

]]>.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

​

​