@IT KeyValuePair(Of Integer, String)のコレクションよりValueに一致する最初のKeyを取得したい
ForEachだけではない繰り返しメソッド
長いジェネリック・クラスの名前を短く記述するには？［2.0のみ、C#、VB］
Imports IntStrItem = _
System.Collections.Generic.KeyValuePair(Of Integer, String)
Imports IntStrList = _
System.Collections.Generic.List(Of _
System.Collections.Generic.KeyValuePair(Of Integer, String))
Module Module1
Sub Main()
Dim List As New System.Collections.Generic.List(Of System.Collections.Generic.KeyValuePair(Of Integer, String))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(1, "りんご"))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(2, "みかん"))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(3, "すいか"))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(4, "みかん"))
'方法その1
Dim orange As System.Collections.Generic.KeyValuePair(Of Integer, String) = _
List.Find(AddressOf IsOrange)
Console.WriteLine("Key:{0} Value{1}", Orange.Key, Orange.Value)
'方法その2_1（コンストラクタでフィルタ値を指定）
Dim filter As IntStrItemFilter(Of Integer, String) = New IntStrItemFilter(Of Integer, String)("りんご")
Dim apple As IntStrItem = List.Find(AddressOf filter.IsMatch)
Console.WriteLine("Key:{0} Value{1}", apple.Key, apple.Value)
'方法その2_2（プロパティでフィルタ値を指定）
filter.FilterValue = "すいか"
Dim watermelon As IntStrItem = List.Find(AddressOf filter.IsMatch)
Console.WriteLine("Key:{0} Value{1}", watermelon.Key, watermelon.Value)
End Sub
Private Function IsOrange(ByVal item As System.Collections.Generic.KeyValuePair(Of Integer, String)) As Boolean
Return (item.Value = "みかん")
End Function
Public Class IntStrItemFilter(Of TKey, TValue)
Private _FilterValue As TValue
Public Sub New(ByVal filterValue As TValue)
_FilterValue = filterValue
End Sub
Public Property FilterValue() As TValue
Get
Return _FilterValue
End Get
Set(ByVal value As TValue)
_FilterValue = value
End Set
End Property
Public Function IsMatch(ByVal item As IntStrItem) As Boolean
If (_FilterValue Is Nothing) Then Return False
Return (_FilterValue.Equals(item.Value))
End Function
End Class
End Module
System.Collections.Generic.KeyValuePair(Of Integer, String)
Imports IntStrList = _
System.Collections.Generic.List(Of _
System.Collections.Generic.KeyValuePair(Of Integer, String))
Module Module1
Sub Main()
Dim List As New System.Collections.Generic.List(Of System.Collections.Generic.KeyValuePair(Of Integer, String))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(1, "りんご"))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(2, "みかん"))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(3, "すいか"))
List.Add(New System.Collections.Generic.KeyValuePair(Of Integer, String)(4, "みかん"))
'方法その1
Dim orange As System.Collections.Generic.KeyValuePair(Of Integer, String) = _
List.Find(AddressOf IsOrange)
Console.WriteLine("Key:{0} Value{1}", Orange.Key, Orange.Value)
'方法その2_1（コンストラクタでフィルタ値を指定）
Dim filter As IntStrItemFilter(Of Integer, String) = New IntStrItemFilter(Of Integer, String)("りんご")
Dim apple As IntStrItem = List.Find(AddressOf filter.IsMatch)
Console.WriteLine("Key:{0} Value{1}", apple.Key, apple.Value)
'方法その2_2（プロパティでフィルタ値を指定）
filter.FilterValue = "すいか"
Dim watermelon As IntStrItem = List.Find(AddressOf filter.IsMatch)
Console.WriteLine("Key:{0} Value{1}", watermelon.Key, watermelon.Value)
End Sub
Private Function IsOrange(ByVal item As System.Collections.Generic.KeyValuePair(Of Integer, String)) As Boolean
Return (item.Value = "みかん")
End Function
Public Class IntStrItemFilter(Of TKey, TValue)
Private _FilterValue As TValue
Public Sub New(ByVal filterValue As TValue)
_FilterValue = filterValue
End Sub
Public Property FilterValue() As TValue
Get
Return _FilterValue
End Get
Set(ByVal value As TValue)
_FilterValue = value
End Set
End Property
Public Function IsMatch(ByVal item As IntStrItem) As Boolean
If (_FilterValue Is Nothing) Then Return False
Return (_FilterValue.Equals(item.Value))
End Function
End Class
End Module
