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

VB.NET
プログラミング言語

公開日時: 2021-06-16 　更新日時: 2022-06-06

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

この記事でわかること

システム エンジニア: Findメソッドについて教えてください。

プロジェクト マネージャー: ではVB.NETにおけるFindメソッドについて実際のコードを見ながら理解を深めていきましょう。

VB.NETでのList要素のFind方法とは？

今回は、VB.NETでのList要素の検索方法について説明します。Find/FindLast/FindAll関数の基本的な使い方、複数検索条件の指定方法、大文字小文字を区別しない検索方法、indexの取得方法について紹介します。

VB.NETでのList要素の検索方法に興味のある方はぜひご覧ください。

Find/FindLast/FindAll

VB.NETでのListの要素検索関数である、Find/FindLast/FindAllについて紹介します。実際のソースコードを見てみましょう。

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

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

実行結果は以下のようになります。

文字列長 = 5の要素
Find: green
FindLast: white
FindAll: green, black, white
eを含む要素
Find: red
FindLast: white
FindAll: red, green, blue, yellow, white

文字列長 = 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条件の指定方法を紹介します。実際のソースコードを見てみましょう。

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

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

実行結果は以下のようになります。

文字列長 = 5の要素 And eを含む要素
Find: green
FindLast: white
FindAll: green, white
文字列長 = 5の要素 Or eを含む要素
Find: red
FindLast: white
FindAll: red, green, blue, yellow, black, white

文字列長 = 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関数で、大文字小文字を区別しない検索方法を紹介します。実際のソースコードを見てみましょう。

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

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

実行結果は以下のようになります。大文字小文字を区別しない検索が行われていることが分かります。

Find: RED
FindLast: WHITE
FindAll: RED, GREEN, BLUE, YELLOW, WHITE

Find: RED

FindLast: WHITE

FindAll: RED, GREEN, BLUE, YELLOW, WHITE

IndexOf/LastIndexOf

VB.NETで、List内にある要素のindexを検索する方法を紹介します。実際のソースコードを見てみましょう。

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

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

実行結果は以下のようになります。

IndexOf(red) = 0
IndexOf(Red) = -1
LastIndexOf(red) = 3

IndexOf(red) = 0

IndexOf(Red) = -1

LastIndexOf(red) = 3

システム エンジニア: つまり、Listから指定した条件にあった要素を取り出す時に使うメソッドということですね。

プロジェクト マネージャー: はい、基本的な考え方はその通りです。ここでは基本的な使い方の他に、指定方法や検索方法、indexの取得方法を見ていきました。

まとめ

いかがでしたでしょうか。VB.NETでのList要素の検索方法について説明しました。Find/FindLast/FindAll関数の基本的な使い方、複数検索条件の指定方法、大文字小文字を区別しない検索方法、indexの取得方法について紹介しました。

ぜひご自身でVB.NETのソースコードを書いて、理解を深めてください。

FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。

株式会社オープンアップシステムはこんな会社です

秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。

スマホアプリから業務系システムまで

スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
充実した研修制度

毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
資格取得を応援

スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
東証プライム上場企業グループ

オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。

安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。

株式会社オープンアップシステムに興味を持った方へ

株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。

年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。

株式会社オープンアップシステムへ応募する
会員登録不要! カンタン45秒!

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

VB.NETでのList要素のFind方法とは？

Find/FindLast/FindAll

複数条件

大文字小文字を区別しない

IndexOf/LastIndexOf

まとめ

株式会社オープンアップシステムはこんな会社です

スマホアプリから業務系システムまで

充実した研修制度

資格取得を応援

東証プライム上場企業グループ

株式会社オープンアップシステムに興味を持った方へ

新着案件New Job

開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

PMO/東京都豊島区/【WEB面談可】/在宅勤務

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

VB.NETでのList要素のFind方法とは？

Find/FindLast/FindAll

複数条件

大文字小文字を区別しない

IndexOf/LastIndexOf

まとめ

株式会社オープンアップシステムはこんな会社です

スマホアプリから業務系システムまで

充実した研修制度

資格取得を応援

東証プライム上場企業グループ

株式会社オープンアップシステムに興味を持った方へ

新着案件New Job

開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

PMO/東京都豊島区/【WEB面談可】/在宅勤務

関連記事Related Posts

VB.NETの案件の相場はいくら？稼ぐために必要なポイント3つ

VB.netでソケット通信する方法は？ソケット通信の概要やサンプルプログラムをご紹介

VB.NETでの配列初期化方法とは？宣言と初期化・サイズを指定・ReDimで再宣言・要素固定の一括初期化

VB.NETにおけるAccess接続方法｜OLEDBE・ODBCを使用したサンプルコードを作成

VB.NETでの0埋め文字列の生成方法とは？toStringメソッド・Formatメソッド・Padleftメソッド