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

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/53565130/how-can-i-do-this-an-easier-way

​

    Public Class Field

        Public Property fieldName As String

    End Class

​

    Public Class Rule

        Public Property condition As String

        Public Property moduleName As String

        Public Property field As Field

        Public Property data As String

    End Class

​

    Public Class Group

        ' Note I had to fix this by adding brackets around "operator", since it's a keyword.

        ' Public Property operator As String

        Public Property [operator] As String

        Public Property rules As Rule()

    End Class

​

    Public Class Query

        Public Property group As Group

    End Class

​

    Public Class Example

        Public Property fields As String()

        Public Property query As Query

    End Class

​

    Public Module TestClass 

        Friend Sub Test()

            Dim data As String = "John Doe"

            Dim example = New Example With { _ 

                .fields = {"name","Company.name","email","mobile"}, _

                .query = New Query With { _

                    .group = New Group With { _

                        .[operator] = "AND", _

                        .rules = { _

                            New Rule With { _

                                .condition = "CONTAINS", _

                                .moduleName = "Contact", _

                                .field = new Field With { .fieldName = "name" }, _

                                .data = data _

                            } _

                        } _

                    } _

                } _                 

            }

            Dim json as String = JsonConvert.SerializeObject(example, Formatting.Indented)

            Console.WriteLine(json)

        End Sub     

    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

​