restinpiece @ ウィキ 配列の重複を取り除く関数
※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

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