Imports System

imports Newtonsoft.Json

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim result as string ="[{""Id"":22724,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CLINICAL NOTES""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22724.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22724""}]},{""Id"":22723,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CLINICAL NOTES""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22723.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22723""}]},{""Id"":22722,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CLINICAL NOTES""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22722.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22722""}]},{""Id"":22721,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CLINICAL NOTES""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22721.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22721""}]},{""Id"":92696,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CLINICAL NOTES""},{""Key"":""SubSection"",""Value"":""Dermatology""},{""Key"":""ScanDate"",""Value"":""20130402""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\395""},{""Key"":""Filename"",""Value"":""92696.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""92696""}]},{""Id"":92695,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CLINICAL NOTES""},{""Key"":""SubSection"",""Value"":""Dermatology""},{""Key"":""ScanDate"",""Value"":""20130402""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\395""},{""Key"":""Filename"",""Value"":""92695.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""92695""}]},{""Id"":22736,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\46""},{""Key"":""Filename"",""Value"":""22736.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22736""}]},{""Id"":22735,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22735.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22735""}]},{""Id"":22734,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22734.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22734""}]},{""Id"":22733,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22733.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22733""}]},{""Id"":22732,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22732.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22732""}]},{""Id"":22731,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22731.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22731""}]},{""Id"":22730,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22730.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22730""}]},{""Id"":22729,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22729.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22729""}]},{""Id"":22728,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22728.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22728""}]},{""Id"":22727,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22727.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22727""}]},{""Id"":22726,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22726.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22726""}]},{""Id"":22725,""CustomerId"":870307,""DataKeys"":[{""Key"":""HospitalNo"",""Value"":""6177077""},{""Key"":""Section"",""Value"":""CORRESPONDENCE""},{""Key"":""SubSection"",""Value"":""NHH BACKSCAN""},{""Key"":""ScanDate"",""Value"":""20130320""},{""Key"":""DocLocation"",""Value"":""\\\\abb_dhr_is\\nas_sata_dhr_is\\live_images\\\\45""},{""Key"":""Filename"",""Value"":""22725.tif""},{""Key"":""Key1"",""Value"":""""},{""Key"":""Key2"",""Value"":""""},{""Key"":""Key3"",""Value"":""""},{""Key"":""Key4"",""Value"":""""},{""Key"":""Key5"",""Value"":""""},{""Key"":""Key6"",""Value"":""""},{""Key"":""Key7"",""Value"":""""},{""Key"":""Key8"",""Value"":""""},{""Key"":""Key9"",""Value"":""""},{""Key"":""Key10"",""Value"":""""},{""Key"":""GPName"",""Value"":""""},{""Key"":""GPPractice"",""Value"":""""},{""Key"":""BatchNumber"",""Value"":""""},{""Key"":""DocumentID"",""Value"":""22725""}]}]"

            Dim documents As List(Of MyDocument) = JsonConvert.DeserializeObject(Of List(Of MyDocument))(result)

        Dim distinctDocs As Object = documents.GroupBy(Function(m) New With { _

                     Key .CustomerID = m.CustomerId, _

                     Key .Section = m.DataKeys.Where(Function(dk) dk.Key = "Section").FirstOrDefault().Value, _

                     Key .SubSection = m.DataKeys.Where(Function(dk) dk.Key = "SubSection").FirstOrDefault().Value, _

                     Key .ScanDate = m.DataKeys.Where(Function(dk) dk.Key = "ScanDate").FirstOrDefault().Value _

                    }).[Select](Function(m) New With { _

                     Key .Fields = m.Key _

                    }).ToList()

​

                            console.WriteLine(documents.count())

                            console.WriteLine(distinctDocs.count())

​

    End Sub

Public Class MyDocument

    Public Property Id() As System.Nullable(Of Integer)

        Get

            Return m_Id

        End Get

        Set

            m_Id = Value

        End Set

    End Property

    Private m_Id As System.Nullable(Of Integer)

    Public Property CustomerId() As System.Nullable(Of Integer)

        Get

            Return m_CustomerId

        End Get

        Set

            m_CustomerId = Value

        End Set

    End Property

    Private m_CustomerId As System.Nullable(Of Integer)

    Public Property DataKeys() As List(Of DataKey)

        Get

            Return m_DataKeys

        End Get

        Set

            m_DataKeys = Value

        End Set

    End Property

    Private m_DataKeys As List(Of DataKey)

​

    Public Sub New()

        DataKeys = New List(Of DataKey)()

    End Sub

End Class

​

Public Class DataKey

    Public Property Key() As String

        Get

            Return m_Key

        End Get

        Set

            m_Key = Value

        End Set

    End Property

    Private m_Key As String

    Public Property Value() As String

        Get

            Return m_Value

        End Get

        Set

            m_Value = Value

        End Set

    End Property

    Private m_Value As String

End Class

​

'=======================================================

'Service provided by Telerik (www.telerik.com)

'Conversion powered by NRefactory.

'Twitter: @telerik

'Facebook: facebook.com/telerik

'=======================================================

​

End Module