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(4As 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

        '★重複を削除して別の配列にセット(この1行で重複を削除できる)
        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)