Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim json = "[{""Name"":""Diluc"", ""BaseATK"":335, ""BaseDef"":784, ""BaseHP"":12981, ""BaseCR"":""24.2"",  BaseCD: 50 },  {""Name"":""Amber"", ""BaseATK"":223, ""BaseDef"":601, ""BaseHP"":9461, ""BaseCR"":""atk%"",  BaseCD: 50 }, {""Name"":""Barbara"", ""BaseATK"":159, ""BaseDef"":669, ""BaseHP"":9787, ""BaseCR"":5,  BaseCD: 50 }, {""Name"":""Beidou"", ""BaseATK"":225, ""BaseDef"":648, ""BaseHP"":13050, ""BaseCR"":5,  BaseCD: 50 }]"

        Dim details = JsonConvert.DeserializeObject(Of List(Of CharacterDetails))(json)

​

        For Each detail In details

            Console.WriteLine("Name: {0}", detail.Name)

        Next

    End Sub

End Module

​

Public Class CharacterDetails

    Public Property Name As String

    Public Property BaseATK As Integer

    Public Property BaseDef As Integer

    Public Property BaseHP As Integer

    Public Property BaseCR As Object

    Public Property BaseCD As Integer

End Class