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
test
test2
test3