Question

vb.net 如何删除listbox里的重复项？ listbox 里现有多条重复值，如何能才把所有重复数据删除？

例：现listbox里以下大量数据
http://www.baidu.com/
http://www.baidu.com/123.htm
http://www.163.com/
http://www.baidu.com/
http://www.163.com/123.htm
http://www.baidu.com/
http://www.baidu.com/123.htm
…………………
我现在需要把所有重复的数据删除：得到：
http://www.baidu.com/
http://www.baidu.com/123.htm
http://www.163.com/
http://www.163.com/123.htm
…………这样完会没有重复的
应该怎么做？

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim newList As New ArrayList

With ListBox1
For i = 0 To .Items.Count - 1
If Not newList.Contains(.Items(i)) Then
newList.Add(.Items(i))
End If
Next i
.Items.Clear()
For i = 0 To newList.Count - 1
.Items.Add(newList(i))
Next i
End With
End Sub

Answer 2

导入的时候就应该过滤重复信息

Answer 3

For i = 1 To List7.ListCount
a = List7.list(i)
If i + 1 <= List7.ListCount Then
For j = i + 1 To List7.ListCount
If List7.list(j) = a Then List7.RemoveItem (j)
Next
Next

追问

这种方法我用过了，运行程序会报错
InvalidArgument=“113”的值对于“index”无效。

追答

i = 0
Do While i <= List1.ListCount
a = List1.list(i)
j = i + 1
Do While j <= List1.ListCount
If a = List1.list(j) Then List1.RemoveItem j
j = j + 1
Loop
i = i + 1
Loop

追问

这样也是会出现
InvalidArgument=“113”的值对于“index”无效。

追答

这个是vb里的用法
。net的 不清楚
但基本原理应该是一样的

追问

我VB也会，但现在要用.net做个东西，这个问题 就是搞不明白了。
For i = List7.ListCount to 1
这样反过来我也试过了。但结果都是一样。。。实在是搞不明白了

追答

你看看net里面list控件的属性和vb是不是一样
而且vb中list（i）表示index下的值
net中是一样的么