重複したデータの削除方法

重複データを削除するには、以下の方法を使用できます。

1. 配列の要素をListに格納し、Listの重複要素を除去する特性を利用します。配列の要素をListに逐次追加し、その後でListを配列に戻します。

Dim arr() As Integer = {1, 2, 3, 3, 4, 5, 5}
Dim list As New List(Of Integer)

For Each num As Integer In arr
    If Not list.Contains(num) Then
        list.Add(num)
    End If
Next

arr = list.ToArray()

1. 配列のデータをHashSetへ格納する。HashSetの特徴で重複データを自動で取り除く。配列の要素をHashSetへ一つ一つ追加し、その後HashSetを配列へ変換する。

Dim arr() As Integer = {1, 2, 3, 3, 4, 5, 5}
Dim set As New HashSet(Of Integer)

For Each num As Integer In arr
    set.Add(num)
Next

arr = set.ToArray()

どちらの方法でも配列の重複データを削除できます。ListとHashSetのどちらを好むかでどちらの方法を選択するか決まります。