独自に定義したクラスを格納した配列や List(T) を任意にソートする方法について説明します。
.NET Framework 1.0 ではソート用のメソッドを用意していましたが、.NET Framework 2.0 からは匿名メソッドを使用することができるようになりました。さらに.NET Framework 3.0 以降ではラムダ式を使用してシンプルに記載することができるようになりました。
ここではラムダ式を使用して、独自クラスの配列やList(T) を任意の方法でソートしてみます。
まずは、独自に定義したクラスですが、ここでは単純に ID と Name をプロパティに持つクラスを使用します。
Public Class Employee Public Property ID As Integer Public Property Name As String Public Sub New(ByVal id As Integer, ByVal name As String) Me.ID = id Me.Name = name End Sub End Class
適当なデータを作成して、それぞれIDや名前の長さでソートを行っていますが、１行で書く事ができます。
' ～ 適当なデータをList(T)と配列に格納する ～ Dim employeeList As New List(Of Employee)() employeeList.Add(New Employee(2, "William Henry Gates")) employeeList.Add(New Employee(3, "Steven Paul Jobs")) employeeList.Add(New Employee(1, "Lawrence Edward Larry Page")) Dim employeeArray As Employee() = employeeList.ToArray() ' リストをID順でソートする employeeList.Sort(Function(a, b) a.ID - b.ID) ' 結果、下記の順にソートされます ' ID=1 Name=Lawrence Edward Larry Page ' ID=2 Name=William Henry Gates ' ID=3 Name=Steven Paul Jobs ' 配列を名前の長さが短い順でソートする Array.Sort(employeeArray, Function(a, b) a.Name.Length - b.Name.Length) ' 結果、下記の順にソートされます ' ID=3 Name=Steven Paul Jobs ' ID=2 Name=William Henry Gates ' ID=1 Name=Lawrence Edward Larry Pag
ラムダ式の部分が良く分からない方の為に、ラムダ式を使わない書き方も紹介します。
まず、比較用のメソッドを用意します。比較用のメソッドは戻り値をint型にして、比較する型２つを引数にします(ここでは引数をそれぞれ a, b としています)。戻り値は下の表を参考にしてください。
''' <summary> ''' ID順で比較 ''' </summary> Private Function CompareByID(a As Employee, b As Employee) As Integer Return a.ID - b.ID End Function
上で作成した比較用のメソッドをSortの引数に指定します。
' リストをID順でソートする employeeList.Sort(AddressOf CompareByID)
ラムダ式の部分はこれと全く等価のコードになります。ソースコード中に何度も同じ比較を行う場合は比較用のメソッドを用意し、１度しか使用されない場合はラムダ式を使って簡潔に記載するのが良いと思われます。
参考：VB.NET List(T) 任意の項目を削除・抽出・変換する