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

​

​

    ' https://stackoverflow.com/questions/50590298/count-number-of-child-records-in-a-json-file-using-json-net

​

    Public Module TestClass 

​

        Friend Sub Test()

            Dim rawdata = GetJson()

            Dim path = "..action_name"

            Dim count1 = TestRecursive(rawdata)

            Dim count2 = TestArrayWildcards(rawdata)

            Dim count3 = TestArraySlice(rawdata)

​

            Assert.IsTrue(count1 = 3)

            Assert.IsTrue(count2 = 3)

            Assert.IsTrue(count3 = 3)

​

            Console.WriteLine()

            Console.WriteLine("Input JSON:")

            Console.WriteLine( Newtonsoft.Json.Linq.JToken.Parse(rawdata))                      

        End Sub 

​

        Friend Function TestRecursive(json as String) As Integer

            Dim path = "..action_name"

            return Test(json, path)

        End Function    

​

        Friend Function TestArrayWildcards(json as String) As Integer

            Dim path = "[*].history.oslc_cm:results[*].action_name"

            return Test(json, path)

        End Function    

        Friend Function TestArraySlice(json as String) As Integer

            Dim path = "[0].history.oslc_cm:results[0,1,2].action_name"

            return Test(json, path)

        End Function    

​

        Friend Function Test(rawdata As String, path As String) As Integer

            Dim jResults = Newtonsoft.Json.Linq.JToken.Parse(rawdata)

​

            Dim query = jResults.SelectTokens(path)

            Dim count = query.Count()

            Dim paths = query.Select(Function(t) t.Path).ToList()

            Console.WriteLine()

            Console.WriteLine("Testing SelectTokens() with path ""{0}""", path)

            Console.WriteLine("Count = {0}", count)

            Console.WriteLine("Paths:")

            Console.WRiteLine(Newtonsoft.Json.JsonConvert.SerializeObject(paths, Newtonsoft.Json.Formatting.Indented))

            return count

        End Function    

​

        Function GetJson() as String

Dim Jstring As String = <![CDATA[

            [{

        "dc:type": {

            "dc:title": "CR",

            "dc:type": "recordType"

        },

        "dc:title": "CCP56778974",

        "Submitted_on": "2011-08-16T16:30:01Z",

        "Drawing": "N",

        "Project": {

            "rdf:about": "ALCX",

            "dc:type": {

                "dc:title": "CR_Project",

                "dc:type": "recordType",

                "rdf:resource": "https://ananh.net/2383783"

            },

            "dc:title": "EMBTCE",

            "Name": "EMBTCE-SysDes"

        },

        "history": {

            "oslc_cm:results": [{

                "dc:type": {

                    "dc:title": "history",

                    "dc:type": "recordType"

                },

                "dc:title": "Modify",

                "new_state": "Analyzed",

                "action_name": "Modify",

                "old_state": "Analyzed",

                "action_timestamp": "2012-03-09T21:18:27Z"

            },

            {

                "dc:type": {

                    "dc:title": "history",

                    "dc:type": "recordType"

                },

                "dc:title": "Modify",

                "new_state": "Assigned",

                "action_name": "Modify",

                "old_state": "Assigned",

                "action_timestamp": "2012-03-08T23:53:55Z"

            },

            {

                "dc:type": {

                    "dc:title": "history",

                    "dc:type": "recordType"

                },

                "dc:title": "Modify",

                "new_state": "Submitted",

                "action_name": "Modify",

                "old_state": "Submitted",

                "action_timestamp": "2011-08-16T16:54:56Z"

            }],

            "oslc_cm:collref": "http://UYBNYRTCVV.com/47474"

        },

        "Engineer": {

            "dc:type": {

                "dc:title": "users",

                "dc:type": "recordType"

            }

        },

        "rdf:about": "https://GHNMUN.com/7546756"

    }]

]]>.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(Newtonsoft.Json.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

​

    Public Class AssertionFailedException

        Inherits Exception

        Public Sub New()

        End Sub

        Public Sub New(message As String)

            MyBase.New(message)

        End Sub

        Public Sub New(message As String, inner As Exception)

            MyBase.New(message, inner)

        End Sub

    End Class

    Public Module Assert

        Public Sub IsTrue(value as Boolean, Optional message as String = "failed")

​

            If value = False Then

                Throw New AssertionFailedException(message)

            End If

        End Sub

    End Module