如何在VB.net中对JObjects数组进行排序

Imports Newtonsoft.Json.Linq

Module Module1
    Sub Main()
        ' 创建JObjects数组
        Dim array As JArray = New JArray()
        array.Add(New JObject(New JProperty("name", "John"), New JProperty("age", 30)))
        array.Add(New JObject(New JProperty("name", "Alice"), New JProperty("age", 25)))
        array.Add(New JObject(New JProperty("name", "Bob"), New JProperty("age", 35)))

        ' 对JObjects数组按照age属性进行排序
        Dim sortedArray As JArray = New JArray(array.OrderBy(Function(obj) obj("age")))

        ' 输出排序后的结果
        For Each obj As JObject In sortedArray
            Console.WriteLine("Name: " & obj("name").ToString() & ", Age: " & obj("age").ToString())
        Next

        Console.ReadLine()
    End Sub
End Module