[Fork] [Fork] https://stackoverflow.com/questions/56211783/translate-c-sharp-to-vb-net#56211783 | C# Online Compiler

[Fork] [Fork] https://stackoverflow.com/questions/56211783/translate-c-sharp-to-vb-net#56211783 by dbc_MinLength

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 = Enumerable.Concat(Of IEnumerable(Of String))({columns}, rows) _
							.Select(Function(r) String.Join(",", r))
			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

​x
 
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 = Enumerable.Concat(Of IEnumerable(Of String))({columns}, rows) _
                            .Select(Function(r) String.Join(",", r))
            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
​

Environment version: 4.0.30319.42000
Json.NET version: Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed

Output CSV:
id,symbol,status,base,amount,timestamp,swap,pl
136662306,aaa,ACTIVE,731.07686321,6.95345994,1524781083.0,0.0,5127.4352653395923394
137733525,bbb,ACTIVE,636.75093128,1.1,1531902193.0,0.0,687.800226608

Input JSON:
{
  "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"
      }
    ]
  ]
}

System.Collections.Generic.IEnumerable`1[System.String][]
System.String[][]
System.Collections.Generic.IEnumerable`1[System.Collections.Generic.IEnumerable`1[System.String]]

Cached Result
Last Run:	4:01:26 pm
Compile:	0.284s
Execute:	0.125s
Memory:	585.15kb
CPU:	0.25s

View IL Code