「配列の重複を取り除く関数」の編集履歴（バックアップ）一覧はこちら

「配列の重複を取り除く関数」(2008/02/21 (木) 15:44:10) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#highlight(vb.net){{

Partial Class _Default
    Inherits System.Web.UI.Page

    '#######################################################################
    ' 配列の重複を削除する
    ' 引数1 重複を調べる配列を渡す
    ' 戻り値 重複を始末した配列を返す
    '#######################################################################
    Function array_uniqe(ByVal List)

        '重複を取り除いた配列をここに格納する
        Dim uniqe_list As ArrayList = New ArrayList()


        For Each str As String In List

            '要素が配列内に存在しないか？(http://msdn2.microsoft.com/ja-jp/library/bhkz42b3(VS.80).aspx)
            If uniqe_list.Contains(str) = False Then
                '存在しなければ追加
                uniqe_list.Add(str)
            End If

        Next

        '重複を始末した配列を返す
        Return uniqe_list

    End Function

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim list As ArrayList = New ArrayList()

        list.Add("test")
        list.Add("test")
        list.Add("test2")
        list.Add("test")
        list.Add("test2")
        list.Add("test")
        list.Add("test3")
        list.Add("test3")
        list.Add("test2")

        list = array_uniqe(list)

        For Each str As String In list

            Response.Write(str & "<br>")

        Next

    End Sub

End Class
}}
'実行結果
test
test2
test3