StackOverflow Q32851017 | C# Online Compiler

StackOverflow Q32851017 by Brian Rogers

Imports System
Imports Newtonsoft.Json.Linq
				
Public Module Module1
	Public Sub Main()
        Dim json As String = _
        "{" + _
            """styles"": [" + _
                "{" + _
                    """make"": {" + _
                        """id"": 200001444" + _
                    "}," + _
                    """model"": {" + _
                        """id"": ""Honda_Pilot""" + _
                    "}," + _
                    """engine"": {" + _
                        """id"": ""200058127""," + _
                        """rpm"": {" + _
                            """horsepower"": 5700," + _
                            """torque"": 4800" + _
                        "}," + _
                        """valve"": {" + _
                            """timing"": ""variable valve timing""," + _
                            """gear"": ""single overhead camshaft""" + _
                        "}" + _
                    "}," + _
                    """transmission"": {" + _
                        """id"": ""200058128""" + _
                    "}," + _
                    """drivenWheels"": ""four wheel drive""," + _
                    """colors"": [" + _
                        "{" + _
                            """category"": ""Interior""," + _
                            """options"": [" + _
                                "{" + _
                                    """id"": ""200058068""," + _
                                    """name"": ""Blue""" + _
                                "}" + _
                            "]" + _
                        "}," + _
                        "{" + _
                            """category"": ""Exterior""," + _
                            """options"": [" + _
                                "{" + _
                                    """id"": ""200058073""," + _
                                    """name"": ""Crystal Black Pearl""" + _
                                "}," + _
                                "{" + _
                                    """id"": ""200058072""," + _
                                    """name"": ""Polished Metal Metallic""" + _
                                "}" + _
                            "]" + _
                        "}" + _
                    "]" + _
                "}" + _
            "]" + _
        "}"

        Dim rootObject2 = JObject.Parse(json)

        For Each style As JToken In rootObject2("styles")
            Dim model As String = style.SelectToken("model.id").ToString()
            Console.WriteLine("Exterior colors for " & model & ":")
            For Each colorCategory As JToken In style("colors")
                Dim categoryName As String = colorCategory("category").ToString()
                If categoryName = "Exterior" Then
                    For Each opt As JToken In colorCategory("options")
						Dim color as String = opt("name").ToString()
                        Console.WriteLine("  " & color)
                    Next
                End If
            Next
        Next

	End Sub
End Module

​x
 
Imports System
Imports Newtonsoft.Json.Linq
                
Public Module Module1
    Public Sub Main()
        Dim json As String = _
        "{" + _
            """styles"": [" + _
                "{" + _
                    """make"": {" + _
                        """id"": 200001444" + _
                    "}," + _
                    """model"": {" + _
                        """id"": ""Honda_Pilot""" + _
                    "}," + _
                    """engine"": {" + _
                        """id"": ""200058127""," + _
                        """rpm"": {" + _
                            """horsepower"": 5700," + _
                            """torque"": 4800" + _
                        "}," + _
                        """valve"": {" + _
                            """timing"": ""variable valve timing""," + _
                            """gear"": ""single overhead camshaft""" + _
                        "}" + _
                    "}," + _
                    """transmission"": {" + _
                        """id"": ""200058128""" + _
                    "}," + _
                    """drivenWheels"": ""four wheel drive""," + _
                    """colors"": [" + _
                        "{" + _
                            """category"": ""Interior""," + _
                            """options"": [" + _
                                "{" + _
                                    """id"": ""200058068""," + _
                                    """name"": ""Blue""" + _
                                "}" + _
                            "]" + _
                        "}," + _
                        "{" + _
                            """category"": ""Exterior""," + _
                            """options"": [" + _
                                "{" + _
                                    """id"": ""200058073""," + _
                                    """name"": ""Crystal Black Pearl""" + _
                                "}," + _
                                "{" + _
                                    """id"": ""200058072""," + _
                                    """name"": ""Polished Metal Metallic""" + _
                                "}" + _
                            "]" + _
                        "}" + _
                    "]" + _
                "}" + _
            "]" + _
        "}"
​
        Dim rootObject2 = JObject.Parse(json)
​
        For Each style As JToken In rootObject2("styles")
            Dim model As String = style.SelectToken("model.id").ToString()
            Console.WriteLine("Exterior colors for " & model & ":")
            For Each colorCategory As JToken In style("colors")
                Dim categoryName As String = colorCategory("category").ToString()
                If categoryName = "Exterior" Then
                    For Each opt As JToken In colorCategory("options")
                        Dim color as String = opt("name").ToString()
                        Console.WriteLine("  " & color)
                    Next
                End If
            Next
        Next
​
    End Sub
End Module
​

View IL Code