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

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports Microsoft.VisualBasic 

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/56211783/translate-c-sharp-to-vb-net#56211783

​

    Public Module TestClass 

​

        Sub PrintType(Of T)(ByVal Item As T)

            Console.WriteLine(GetType(T))

        End Sub

        Friend Sub Test()

            Dim json as String = GetJson()

            Dim obj As JObject = JObject.Parse(json)

            Dim values = obj.DescendantsAndSelf().OfType(Of JProperty)().Where(Function(p) TypeOf p.Value Is JValue).GroupBy(Function(p) p.Name).ToList()

            Dim columns = values.[Select](Function(g) g.Key).ToArray()

​

            Dim parentsWithChildren = values.SelectMany(Function(g) g).SelectMany(Function(v) v.AncestorsAndSelf().OfType(Of JObject)().Skip(1)).ToHashSet()

​

            Dim rows = obj.DescendantsAndSelf() _

                                .OfType(Of JObject)() _

                                .Where(Function(o) o.PropertyValues().OfType(Of JValue)().Any()) _

                                .Where(Function(o) o.Equals(obj) OrElse Not parentsWithChildren.Contains(o)) _

                                .Select(Function(o) columns.Select(Function(c) _

                                                                o.AncestorsAndSelf() _

                                                                .OfType(Of JObject)() _

                                                                .Select(Function(parent) parent(c)) _

                                                                .OfType(Of JValue)() _

                                                                .Select(Function(v) CStr(v)) _

                                                                .FirstOrDefault()) _

                                                            .Reverse() _

                                                            .SkipWhile(Function(s) s Is Nothing) _

                                                            .Reverse())

​

            Dim csvRows =  { columns.AsEnumerable() }.Concat(rows) _

                            .Select(Function(r) String.Join(",", r))   ' HERE IS WHERE THE EXCEPTION OCCURS

            Dim csv = String.Join(vbLf, csvRows)        

​

            Console.WriteLine("Output CSV:")

            Console.WriteLine(csv)

            Console.WriteLine()

​

            Console.WriteLine("Input JSON:")

            Console.WriteLine(obj)

            Console.WriteLine()

​

            PrintType({ columns.AsEnumerable() })

            PrintType({ columns })

​

            PrintType(rows)

        End Sub 

​

        Function GetJson() as String

Dim Jstring As String = <![CDATA[

{

  "Response": [

    [

      {

        "id": 136662306,

        "symbol": "aaa",

        "status": "ACTIVE",

        "base": "731.07686321",

        "amount": "6.95345994",

        "timestamp": "1524781083.0",

        "swap": "0.0",

        "pl": "5127.4352653395923394"

      },

      {

        "id": 137733525,

        "symbol": "bbb",

        "status": "ACTIVE",

        "base": "636.75093128",

        "amount": "1.1",

        "timestamp": "1531902193.0",

        "swap": "0.0",

        "pl": "687.800226608"

      }

    ]

  ]

}

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

​