コメント
コメントの投稿
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。
'Dictionary型に代入するデータクラス
Public Class CustomerInfo
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
Public Class HowToUseDictionary
Public Sub ConvertToDic()
'変換したいDictinary型の定義
Dim customerDic As New Dictionary(Of Integer, CustomerInfo)
'サンプルデータを代入
customerDic.Add(1, New CustomerInfo(1, "山田太郎"))
customerDic.Add(2, New CustomerInfo(2, "山田花子"))
customerDic.Add(3, New CustomerInfo(3, "平成太郎"))
'Whereで条件を指定して絞り込む
Dim customerEnum = customerDic.Where(Function(r) r.Value.Name.Contains("太郎"))
'元のDictinary型に変換する
customerDic = customerEnum.ToDictionary(Function(r) r.Key, Function(r) r.Value)
'出力
For Each kvp As KeyValuePair(Of Integer, CustomerInfo) In customerDic
Dim cInfo As CustomerInfo = DirectCast(kvp.Value, CustomerInfo)
Debug.WriteLine(cInfo.Id.ToString + ":" + cInfo.Name)
Next
End Sub
End Class
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。