Imports System

Imports Newtonsoft.Json

Imports System.Linq

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

​

        Dim json As String = "[{

            ""Id"": 123,

            ""Name"": ""Admin"",

            ""Group"": 1,

            ""OldValue"": 2,

            ""LastestValue"": 1

            },

            {""Id"": 123,

            ""Name"": ""Admin"",

            ""Group"": 1,

            ""OldValue"": 0,

            ""LastestValue"": 1

            },

            {""Id"": 456,

            ""Name"": ""Worker"",

            ""Group"": 2,

            ""OldValue"": 0,

            ""LastestValue"": 1

            }]"

​

        Dim roots As List(Of Root) = JsonConvert.DeserializeObject(Of List(Of Root))(json)

        Dim result = roots.GroupBy(Function(x) x.Name).Select(

            Function(g) New With {

                Key.Name = g.Key, 

                Key.Data = If(g.First().LastestValue = g.Last().LastestValue, g.Last(), Nothing)

            }).Select(Function(x) x.Data).Where(Function(x) x IsNot Nothing).ToList()

        Console.WriteLine(JsonConvert.SerializeObject(result, Formatting.Indented))

​

    End Sub

End Module

​

Public Class Root

    Public Property Id As Integer

    Public Property Name As String

    Public Property Group As Integer

    Public Property OldValue As Integer

    Public Property LastestValue As Integer

End Class

​