Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim json As String = _

            "{" + _

            "  ""resources"": [" + _

            "    ""output.ogg""," + _

            "    ""output.m4a""," + _

            "    ""output.mp3""," + _

            "    ""output.ac3""" + _

            "  ]," + _

            "  ""spritemap"": {" + _

            "    ""click"": {" + _

            "      ""start"": 0," + _

            "      ""end"": 0.23034013605442177," + _

            "      ""loop"": false" + _

            "    }," + _

            "    ""CoinCMixed"": {" + _

            "      ""start"": 2," + _

            "      ""end"": 2.222448979591837," + _

            "      ""loop"": false" + _

            "    }," + _

            "    ""CoinDropMixed"": {" + _

            "      ""start"": 4," + _

            "      ""end"": 4.3122222222222222," + _

            "      ""loop"": false" + _

            "    }" + _

            "  }" + _

            "}"

​

        Dim data As DataObject = JsonConvert.DeserializeObject(Of DataObject)(json)

​

        For Each kvp As KeyValuePair(Of String, Sound) In data.spritemap

            Console.WriteLine("Name: " + kvp.Key)

            Console.WriteLine("Start: " + kvp.Value.start.ToString())

            Console.WriteLine("End: " + kvp.Value.end.ToString())

            Console.WriteLine()

        Next

    End Sub

    Class DataObject

        Public Property resources As List(Of String)

        Public Property spritemap As Dictionary(Of String, Sound)

    End Class

​

    Class Sound

        Public Property start As Double

        Public Property [end] As Double

        Public Property [loop] As Boolean

    End Class

End Module