Listの各要素を処理するには？［C#／VB］：.NET TIPS

' 処理対象のList(Of T)コレクション
Dim list As List(Of T) = ……省略……

' 【1番目】For Eachループを使う
For Each item As T In list
  ……itemを使った処理……
Next

' 【2番目】ForEachメソッドを使う
list.ForEach(
  Sub(item)
    ……itemを使った処理……
  End Sub)

' 【3番目】LINQ拡張を使って新しいコレクションを得る
Dim result As IEnumerable(Of T2) ' T2は元のTと同じ型でも違う型でもよい
  = list.Select(Function(item)
                  ……itemを使った処理の結果をT2型のオブジェクトで返す……
                End Function)

Public Class SampleData
  Public Property Number As Integer
  Public Property Value As String
  Public Overrides Function ToString() As String
    Return $"{Number}:{Value}"
  End Function
End Class

Imports System.Console

Module Module1
  Sub DisplayItems(Of T)(collection As IEnumerable(Of T))
    WriteLine($"{String.Join(", ", collection)}")
  End Sub

  Sub Main()
    Dim list As List(Of SampleData) = New List(Of SampleData) _
    From {
      New SampleData With {.Number = 1, .Value = "aaa"},
      New SampleData With {.Number = 2, .Value = "bbb"},
      New SampleData With {.Number = 3, .Value = "ccc"},
      New SampleData With {.Number = 4, .Value = "ddd"},
      New SampleData With {.Number = 5, .Value = "eee"}
    }

    ' 汎用的にはFor Eachを使う
    For Each d As SampleData In list
      ' 処理の例：「Number」が奇数なら、「Value」を頭文字だけにする
      If (d.Number Mod 2 = 1) Then
        d.Value = d.Value.Substring(0, 1) ' 注：文字列長のチェックは省略した
      End If
    Next
    DisplayItems(list)
    ' 出力：1:a, 2:bbb, 3:c, 4:ddd, 5:e

#If DEBUG Then
    ReadKey()
#End If
  End Sub
End Module

' List<T>クラスでは、foreach構文の代わりにForEachメソッドも使える
Dim list As List(Of SampleData) = ……省略（前と同じ）……
list.ForEach(
  Sub(d)
    If (d.Number Mod 2 = 1) Then
      d.Value = d.Value.Substring(0, 1)
    End If
  End Sub)
DisplayItems(list)
' 出力：1:a, 2:bbb, 3:c, 4:ddd, 5:e

' 処理結果を新しいコレクションに書き出したいときはLINQを使う
Dim list As List(Of SampleData) = ……省略（前と同じ）……
Dim result As IEnumerable(Of SampleData) _
  = list.Where(Function(d) d.Number Mod 2 = 1) _
        .Select(Function(d)
                  d.Value = d.Value.Substring(0, 1)
                  Return d
                End Function)
DisplayItems(result)
' 出力：1:a, 3:c, 5:e
' これまでの例と同じ結果を得る場合
'result = list.Select(
'  Function(d)
'    If d.Number Mod 2 = 1 Then
'      d.Value = d.Value.Substring(0, 1)
'    End If
'    Return d
'  End Function)
'DisplayItems(result)

' RemoveAllメソッドで「Number」が偶数のものを削除する
Dim list As List(Of SampleData) = ……省略（前と同じ）……
list.RemoveAll(Function(d) d.Number Mod 2 = 0)
DisplayItems(list)
' 出力：1:aaa, 3:ccc, 5:eee