List(Of T) 按 T 属性排序答案

【问题标题】：List(Of T) Sorting by a T propertyList(Of T) 按 T 属性排序
【发布时间】：2021-05-25 07:52:35
【问题描述】：

我无法理解这个，但这是场景

2 简单示例类：

Public Class Person
Public Name As String
Public Age as Integer
Public Last_Contact As New List(Of ContactInfo)
End Class

Public Class ContactInfo
Public Contact_Date As Date
Public Convo as String
End Class

在子中：

Dim myPersonList as New List(Of Person)

现在我知道可以通过简单地执行以下操作按名字和年龄对 myPersonList 进行排序：

myPersonList.Sort(Function (x,y) x.name.CompareTo(y.name))

我如何按照 Last_Contact.ContactDate 的顺序对 myPerson 列表进行排序，这是一个已经排序的列表

所以基本上在 myPersonList 中说我有

{Dave, 32, {02/22/2021, "Sample Convo"}, {01/12/2021 "Sample Convo"}}, John, 34 {04/08/2020, "sample convo"}}

我如何对其进行排序，以便约翰成为自上次联系日期最晚以来的第一项？

谢谢。

【问题讨论】：

你有一个名为 Last_Contact 的类并没有什么意义，但是在 Person 类中，你有一个名为 Last_Contact 类型为 ContactInfo 的字段。跨度>
等一下！您是想说Person 类包含另一个类的集合还是它的单个实例？您发布的代码表示后者，但使用的某些语言建议前者。请提供对问题的完整、清晰和准确的解释。
对不起，我写错了...已修复但是是的，你是对的，Last_Contact 也是一个集合。
关于您的代码，我有三个与问题无关的建议。 1) 当单词已经由大写字母分隔时，不要在标识符中使用下划线。 2）使用公共属性而不是字段。 3) 对于引用数组或集合的变量和其他标识符，请使用复数名称。

标签： vb.net list sorting

【解决方案1】：

您似乎想按最近的Contact_Date 值订购Person 项目。在这种情况下，您需要从每个Person 的Last_Contact 集合中获取一个Max 值并进行比较：

Dim people As New List(Of Person)

'...

people.Sort(Function(p1, p2) p2.Last_Contact.Max(Function(ci) ci.Contact_Date).CompareTo(p1.Last_Contact.Max(Function(ci) ci.Contact_Date)))

请注意，我在比较中颠倒了p1 和p2 的顺序。那是因为默认的排序顺序是升序，所以如果你想降序，你需要在比较时反转项目的顺序。

值得注意的是，每次进行比较时，此代码都会枚举这两个项目的 Last_Contact 集合。如果数据量很小，那没什么大不了的，但是如果有很多数据，那可能会使整个过程花费大量时间。这是一个更详细的替代方案，可以为大型数据集节省时间：

Dim people As New List(Of Person)

'...

Dim items = people.ToArray()
Dim keys = Array.ConvertAll(items, Function(p) p.Last_Contact.Max(Function(ci) ci.Contact_Date))

Array.Sort(keys, items)

people.Clear()
people.AddRange(items)

这利用了现有的数组功能，该功能将根据另一个键值数组对一组项目进行排序。此方法涉及开销，因为您要创建数组，然后清除并重新填充集合。因此，它对于小型数据集的效率可能较低，但对于较大的数据集肯定会更有效。

【讨论】：

@StavrosPehlivanidis，答案已更新。