Imports System

Imports Newtonsoft.Json

Imports System.Collections.Generic

Imports System.Xml

Imports System.Xml.Linq

Public Module Module1

    Sub Main()

    Dim myData = JsonConvert.DeserializeObject(Of Dictionary(Of String, Dictionary(Of String, Dictionary(Of String, Object))))(s)

    Dim modalities = myData("DicomModalities")

​

    For Each modality In modalities

        Console.WriteLine("Name: {0}, Value: {1}", modality.Key, modality.Value("AET"))

    Next

End Sub

​

​

ReadOnly s As String = <json>{

"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}

      }

}

</json>

​

End Module