VB.NET HashSetのサンプル

VB.NETのHashSetのサンプルです。

確認環境
・Microsoft Visual Studio Community 2019

目次

仕組み HashSetクラス
初期値 要素に初期値をセットする
取得する 要素をすべて取得する(For Each文)
  指定の要素があるかを返す (Containsメソッド)
  要素数を取得する (Countメソッド)
追加する 要素を追加する (Addメソッド)
削除する 要素を指定して要素を削除する (Removeメソッド)
  すべての要素を削除する (Clearメソッド)

HashSetクラス

要素に初期値をセットする

要素に初期値をセットするサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String) From {
            {"赤"},
            {"黄"},
            {"青"}
            }

        For Each b In a
            Console.WriteLine(b) '赤 黄 青と出力される
        Next
    End Sub
End Module

3~7行目は、HashSetクラスをインスタンス化し、かつ初期値をセットしています。
9~11行目は、For Each文で値を取得しています。

要素をすべて取得する(For Each文)

要素をすべて取得するサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String)
        a.Add("赤")
        a.Add("黄")
        a.Add("青")

        For Each b In a
            Console.WriteLine(b) '赤 黄 青と出力される
        Next
    End Sub
End Module

8行目は、for文ですべての要素を取得しています。

指定の要素があるかを返す (Containsメソッド)

指定の要素があるかを返すサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String)
        a.Add("赤")
        a.Add("黄")
        a.Add("青")

        Console.WriteLine(a.Contains("青")) 'Trueと出力される
        Console.WriteLine(a.Contains("黒")) 'Falseと出力される
    End Sub
End Module

8行目は、Containsメソッドで指定の値が存在するが確認しています。存在するのでTrueです。
9行目は、指定の値が存在しないのでFalseです。

要素数を取得する (Countメソッド)

要素数を取得するサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String)
        a.Add("赤")
        a.Add("黄")
        a.Add("青")

        Console.WriteLine(a.Count) '3と出力される
    End Sub
End Module

8行目は、Countメソッドで要素数を取得しています。

要素を追加する (Addメソッド)

要素を追加するサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String)

        a.Add("赤")
        a.Add("黄")
        a.Add("青")

        a.Add("赤")

        For Each b In a
            Console.WriteLine(b) '赤 黄 青と出力される
        Next
    End Sub
End Module

5~7行目は、Addメソッドで値を追加しています。
9行目もAddメソッドで値を追加していますが、重複した値のため追加できません。
11~13行目は、For Each文で値を取得しています。

要素を指定して要素を削除する (Removeメソッド)

要素を指定して要素を削除するサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String)
        a.Add("赤")
        a.Add("黄")
        a.Add("青")

        a.Remove("黄")

        For Each b In a
            Console.WriteLine(b) '赤 青と出力される
        Next
    End Sub
End Module

8行目は、Removeメソッドで値を指定して削除しています。

すべての要素を削除する (Clearメソッド)

すべての要素を削除するサンプルです。

Module Module1
    Sub Main()
        Dim a As New HashSet(Of String)
        a.Add("赤")
        a.Add("黄")
        a.Add("青")

        a.Clear()

        Console.WriteLine(a.Count) '0と出力される
    End Sub
End Module

8行目は、Clearメソッドですべての要素を削除しています。

関連の記事

VB.NET Listのサンプル
VB.NET Dictionaryのサンプル

△上に戻る