コメント
コメントの投稿
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。
LinqでDictionary型から条件を指定してフィルターし、ToDictionaryで元の型に変換する方法 | VB.NET
- 2017/03/04
- 16:54
VB.NETにてLinqを使用してデータの加工をすることがあると思いますが、LinqのWhereで条件を指定して抽出したデータ型がIEnumerable型になってしまいますので、元の型に戻す必要がありました。今回はDictionary型からWhereで絞ったデータをDictionary型に変換する方法についてご紹介いたします。
前提条件
Windows 7 professional 以降 / Windows Server 2008 R2 以降
Visual Studio 2008 professional 以降
vb.net
.Net FrameWork 3.5 以降 （System.Linqを参照設定）
１．変換手順
（１）変換元をDictinary型で定義する。Dictionary<キーとなる型, 値となる型>
Dim customerDic As New Dictionary(Of Integer, CustomerInfo)
<参考URL>
https://msdn.microsoft.com/ja-jp/library/xfhwa508(v=vs.110).aspx
（２）System.Linq.Enumerable.Whereで顧客情報クラスの名前に「太郎」が含まれているという条件を指定してデータ抽出する
customerDic.Where(Function(r) r.Value.Name.Contains("太郎"))
<参考URL>
https://msdn.microsoft.com/ja-jp/library/bb534803(v=vs.110).aspx
（３）System.Linq.Enumerable.ToDictionaryでDctionary型に変換する
.ToDictionary(Function(r) r.Key, Function(r) r.Value)
<参考URL>
https://msdn.microsoft.com/ja-jp/library/system.linq.enumerable.todictionary(v=vs.110).aspx
２．サンプルコード
'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
出力結果
--------------------------------------
1:山田太郎
3:平成太郎
ToDictionaryの構文はDictionary型の構成によって多少変化しますが、このような使用方法が多いと思います。
最後までお読みいただき、ありがとうございます。
他にも VB.net に関する記事 をご紹介しておりますのでご参考頂ければ幸いです。
- 関連記事
-
- FtpWebRequestを使用する際の注意点 | VB.NET
- FTP接続時に Cannot access a disposed object. のエラーが発生する件 | FtpWebRequest
- LinqでDictionary型から条件を指定してフィルターし、ToDictionaryで元の型に変換する方法 | VB.NET
- DataTableのデータを一括でデータベースに更新する方法 | VB.Net
- WindowsでGrep検索 | VB.net
