VB.NETでのList要素のFind方法とは?Find/FindLast/FindAll・IndexOf/LastIndexOf

VB.NETでのList要素のFind方法とは?
今回は、VB.NETでのList要素の検索方法について説明します。Find/FindLast/FindAll関数の基本的な使い方、複数検索条件の指定方法、大文字小文字を区別しない検索方法、indexの取得方法について紹介します。
VB.NETでのList要素の検索方法に興味のある方はぜひご覧ください。
Find/FindLast/FindAll
VB.NETでのListの要素検索関数である、Find/FindLast/FindAllについて紹介します。実際のソースコードを見てみましょう。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Imports System
Module Program
Sub Main(args As String())
Dim mylist As New List(Of String)(New String() {"red", "green", "blue", "yellow", "black", "white"})
Console.WriteLine("文字列長 = 5の要素")
' 最初の要素
Console.WriteLine("Find: {0}", mylist.Find(Function(s) s.Length = 5))
' 最後の要素
Console.WriteLine("FindLast: {0}", mylist.FindLast(Function(s) s.Length = 5))
' 全ての要素
Dim found1 As List(Of String) = mylist.FindAll(Function(s) s.Length = 5)
Console.WriteLine("FindAll: {0}", String.Join(", ", found1.ToArray()))
Console.WriteLine("eを含む要素")
' 最初の要素
Console.WriteLine("Find: {0}", mylist.Find(Function(s) s.Contains("e")))
' 最後の要素
Console.WriteLine("FindLast: {0}", mylist.FindLast(Function(s) s.Contains("e")))
' 全ての要素
Dim found2 As List(Of String) = mylist.FindAll(Function(s) s.Contains("e"))
Console.WriteLine("FindAll: {0}", String.Join(", ", found2.ToArray()))
Console.WriteLine()
End Sub
End Module
|
実行結果は以下のようになります。
1
2
3
4
5
6
7
8
|
文字列長 = 5の要素
Find: green
FindLast: white
FindAll: green, black, white
eを含む要素
Find: red
FindLast: white
FindAll: red, green, blue, yellow, white
|
このようにVB.NETでは、Find/FindLast/FindAll関数で要素の検索ができます。
複数条件
VB.NETでのFind/FindLast/FindAll関数に複数条件を指定する方法を紹介します。ここでは、And条件/Or条件の指定方法を紹介します。実際のソースコードを見てみましょう。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Imports System
Module Program
Sub Main(args As String())
Dim mylist As New List(Of String)(New String() {"red", "green", "blue", "yellow", "black", "white"})
Console.WriteLine("文字列長 = 5の要素 And eを含む要素")
' 最初の要素
Console.WriteLine("Find: {0}", mylist.Find(Function(s) s.Length = 5 And s.Contains("e")))
' 最後の要素
Console.WriteLine("FindLast: {0}", mylist.FindLast(Function(s) s.Length = 5 And s.Contains("e")))
' 全ての要素
Dim found1 As List(Of String) = mylist.FindAll(Function(s) s.Length = 5 And s.Contains("e"))
Console.WriteLine("FindAll: {0}", String.Join(", ", found1.ToArray()))
Console.WriteLine("文字列長 = 5の要素 Or eを含む要素")
' 最初の要素
Console.WriteLine("Find: {0}", mylist.Find(Function(s) s.Length = 5 Or s.Contains("e")))
' 最後の要素
Console.WriteLine("FindLast: {0}", mylist.FindLast(Function(s) s.Length = 5 Or s.Contains("e")))
' 全ての要素
Dim found2 As List(Of String) = mylist.FindAll(Function(s) s.Length = 5 Or s.Contains("e"))
Console.WriteLine("FindAll: {0}", String.Join(", ", found2.ToArray()))
Console.WriteLine()
End Sub
End Module
|
実行結果は以下のようになります。
1
2
3
4
5
6
7
8
|
文字列長 = 5の要素 And eを含む要素
Find: green
FindLast: white
FindAll: green, white
文字列長 = 5の要素 Or eを含む要素
Find: red
FindLast: white
FindAll: red, green, blue, yellow, black, white
|
このようにVB.NETでは、複数条件で要素の検索ができます。
大文字小文字を区別しない
VB.NETでのFind/FindLast/FindAll関数で、大文字小文字を区別しない検索方法を紹介します。実際のソースコードを見てみましょう。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Imports System
Module Program
Sub Main(args As String())
Dim mylist As New List(Of String)(New String() {"RED", "GREEN", "BLUE", "YELLOW", "BLACK", "WHITE"})
' 最初の要素
Console.WriteLine("Find: {0}", mylist.Find(Function(s) s.Contains("e", StringComparison.OrdinalIgnoreCase)))
' 最後の要素
Console.WriteLine("FindLast: {0}", mylist.FindLast(Function(s) s.Contains("e", StringComparison.OrdinalIgnoreCase)))
' 全ての要素
Dim found As List(Of String) = mylist.FindAll(Function(s) s.Contains("e", StringComparison.OrdinalIgnoreCase))
Console.WriteLine("FindAll: {0}", String.Join(", ", found.ToArray()))
Console.WriteLine()
End Sub
End Module
|
実行結果は以下のようになります。大文字小文字を区別しない検索が行われていることが分かります。
1
2
3
|
Find: RED
FindLast: WHITE
FindAll: RED, GREEN, BLUE, YELLOW, WHITE
|
IndexOf/LastIndexOf
VB.NETで、List内にある要素のindexを検索する方法を紹介します。実際のソースコードを見てみましょう。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Imports System
Module Program
Sub Main(args As String())
Dim mylist As New List(Of String)(New String() {"red", "green", "blue", "red", "black", "white"})
' redのindex
Console.WriteLine("IndexOf(red) = {0}", mylist.IndexOf("red"))
' Redのindex
Console.WriteLine("IndexOf(Red) = {0}", mylist.IndexOf("Red"))
' redの最後のindex
Console.WriteLine("LastIndexOf(red) = {0}", mylist.LastIndexOf("red"))
Console.WriteLine()
End Sub
End Module
|
実行結果は以下のようになります。
1
2
3
|
IndexOf(red) = 0
IndexOf(Red) = -1
LastIndexOf(red) = 3
|
まとめ
いかがでしたでしょうか。VB.NETでのList要素の検索方法について説明しました。Find/FindLast/FindAll関数の基本的な使い方、複数検索条件の指定方法、大文字小文字を区別しない検索方法、indexの取得方法について紹介しました。
ぜひご自身でVB.NETのソースコードを書いて、理解を深めてください。
FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。
株式会社オープンアップシステムはこんな会社です
秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結!
数多くのエンジニアが集まります。

-
スマホアプリから業務系システムまで
スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
-
充実した研修制度
毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
-
資格取得を応援
スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
-
東証プライム上場企業グループ
オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。
安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。
株式会社オープンアップシステムに興味を持った方へ
株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。
年収をアップしたい!スキルアップしたい!大手の上流案件にチャレンジしたい!
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。


VB.NET新着案件New Job
-
生産管理システムの単体テスト/東京都千代田区/【WEB面談可】/在宅勤務
月給25万~25万円東京都千代田区(東京駅) -
鉄鋼関連・グループ会社システム支援/Oracle/東京都新宿区/【WEB面談可】/在宅勤務
月給26万~26万円東京都新宿区(新宿駅) -
資産運用会社向け残高管理システム運用保守/SQLServer/東京都中央区/【WEB面談可】
月給50万~60万円東京都中央区(銀座駅) -
資産運用会社向け残高管理システム開発のテスター/SQLServer/東京都中央区/【WEB面談可】
月給25万~35万円東京都中央区(銀座駅) -
Web受注システム運用保守/VB.NET/東京都港区/【WEB面談可】
月給50万~60万円東京都港区(品川駅) -
Web受注システム開発のテスター/VB.NET/東京都港区/【WEB面談可】
月給25万~35万円東京都港区(品川駅)