Sample01 配列の重複データを削除する

　ループを使用せず、配列の重複データを削除するサンプルです。

　※サンプルは例外処理などを考慮しておりません。使用する場合は注意してください。なお、VB2010以外での動作確認しておりません。
　※TextSS.net では例外を考慮し、さらに改良したソースコードを使っています。

'*******************************************************************************************
'** Sample01 配列の重複データを削除する By Yamashita-Y                                    **
'*******************************************************************************************
'** 注意事項                                                                              **
'** 　1.初心者の方に分かりやすくするため、もっとも基本的に方法でコーディングしています。  **
'** 　2.例外処理については考慮していません。                                              **
'** 　3.使用した結果によるいかなる保障もいたしません。                                    **
'** 　4.フォーム上に Button を配置してください。                                          **
'*******************************************************************************************
'** 開発履歴                                                                              **
'**  2011.10.02 初版公開                                                                  **
'*******************************************************************************************

Imports System.Linq 'Distinct を使うにはこれが必要

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click

        '重複データを作成
        Dim strTest(4) As String
        strTest(0) = "AAA"
        strTest(1) = "CCC"
        strTest(2) = "AAA"
        strTest(3) = "BBB"
        strTest(4) = "AAA"

        'コンソールに重複データを出力
        Console.WriteLine("重複データです")
        For i As Integer = 0 To strTest.Length - 1
            Console.WriteLine(strTest(i))
        Next

        '★重複を削除して別の配列にセット(この１行で重複を削除できる)
        Dim strTestDistinct() As String = strTest.Distinct.ToArray

        'コンソールに重複を削除したデータを出力
        Console.WriteLine("重複を削除したデータです")
        For i As Integer = 0 To strTestDistinct.Length - 1
            Console.WriteLine(strTestDistinct(i))
        Next

    End Sub

End Class

■出力結果■　コンソール出力されます。

重複データです
AAA
CCC
AAA
BBB
AAA
重複を削除したデータです
AAA
CCC
BBB

■ダウンロード■
　Sample01.zip (70Kb)