1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Imports Newtonsoft.Json
Module Module1
Sub Main()
Dim jsonString As String = "{ ""races"": [ { ""id"": 11, ""mask"": 1024, ""side"": ""alliance"", ""name"": ""Draeneï"" }, { ""id"": 22, ""mask"": 2097152, ""side"": ""alliance"", ""name"": ""Worgen"" }, { ""id"": 10, ""mask"": 512, ""side"": ""horde"", ""name"": ""Elfe de sang"" }, { ""id"": 4, ""mask"": 8, ""side"": ""alliance"", ""name"": ""Elfe de la nuit"" }, { ""id"": 3, ""mask"": 4, ""side"": ""alliance"", ""name"": ""Nain"" }, { ""id"": 25, ""mask"": 16777216, ""side"": ""alliance"", ""name"": ""Pandaren"" }, { ""id"": 26, ""mask"": 33554432, ""side"": ""horde"", ""name"": ""Pandaren"" }, { ""id"": 6, ""mask"": 32, ""side"": ""horde"", ""name"": ""Tauren"" }, { ""id"": 5, ""mask"": 16, ""side"": ""horde"", ""name"": ""Mort-vivant"" }, { ""id"": 2, ""mask"": 2, ""side"": ""horde"", ""name"": ""Orc"" }, { ""id"": 7, ""mask"": 64, ""side"": ""alliance"", ""name"": ""Gnome"" }, { ""id"": 9, ""mask"": 256, ""side"": ""horde"", ""name"": ""Gobelin"" }, { ""id"": 1, ""mask"": 1, ""side"": ""alliance"", ""name"": ""Humain"" }, { ""id"": 8, ""mask"": 128, ""side"": ""horde"", ""name"": ""Troll"" }, { ""id"": 24, ""mask"": 8388608, ""side"": ""neutral"", ""name"": ""Pandaren"" } ] }"
Dim deserialized = JsonConvert.DeserializeObject(Of Result)(jsonString)
Console.WriteLine("Races :")
For Each race As Race In deserialized.Races
Console.WriteLine("Race[id:{0}] - mask:{1} | side:{2} | name:{3}", race.Id.ToString(), race.Mask.ToString(), race.Side, race.Name)
Next
Dim dataTable As New DataTable
dataTable.Columns.Add("Id", GetType(Integer))
dataTable.Columns.Add("Mask", GetType(Integer))
dataTable.Columns.Add("Side", GetType(String))
dataTable.Columns.Add("Name", GetType(String))
For Each race As Race In deserialized.Races
dataTable.Rows.Add(race.Id, race.Mask, race.Side, race.Name)
Next
Console.ReadLine()
End Sub
Public Class Result
Public Property Races As List(Of Race)
End Class
Public Class Race
Public Property Id As Integer
Public Property Mask As Integer
Public Property Side As String
Public Property Name As String
End Class |
Partager