读取 listbox 的问题

[hanbb1982]

下面是一个listbox 的列表
a.id
b.name
a.no
b.sex
a.name
b.age
b.id
a.addr
我们可以看到
listbox里面有相同的".id"和相同的".name"
我想得到的是它们"."的后门如果相同的话,我就拿一个就行了(比如:a.id,b,id这里我只需要输出一个a.id或者b.id)
然后把它写成:a.id,b.name,a.no,b.sex,b.age,a.addr
也就是把相同后缀名的去掉只留下一个就可以了.怎么样才能实现?

[hanbb1982]

不用理它怎么绑的,我要的是读这个listbox里面的数据

[feiyun0112]

循环读listbox里面的数据
用arr=split（str,"."）分成数组
然后存到hashtale,用.后面的字符串州关键字
ht(arr(1))=str
最后读出ht的值

[水如烟]

供参考:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tmp(Me.ListBox1.Items.Count - 1) As String
Me.ListBox1.Items.CopyTo(tmp, 0)
Console.WriteLine(GetSelectString(tmp))
End Sub

Private Function GetSelectString(ByVal Fields As String()) As String
If Fields.Length = 0 Then Return String.Empty
If Fields.Length = 1 Then Return Fields(0)

'复制这个数组
Dim tmpFields(Fields.Length - 1) As String
Fields.CopyTo(tmpFields, 0)

Dim n As Integer = tmpFields.Length - 1
Dim s As String

Do Until n = 0
s = tmpFields(n)
For i As Integer = n - 1 To 0 Step -1
If tmpFields(i).IndexOf(s.Substring(s.IndexOf("."c))) <> -1 Then
tmpFields(n) = String.Empty
Exit For
End If
Next
n -= 1
Loop

'去掉空值的新数组
n = 0
Dim tmp() As String
For Each s In tmpFields
If Not s.Equals(String.Empty) Then
ReDim Preserve tmp(n)
tmp(n) = s
n += 1
End If
Next

Return String.Join(",", tmp)
End Function

[ConanKid]

楼上正解

[fice_chen]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arrLiB As New ArrayList
Dim i, j As Int16
For i = 0 To ListBox1.Items.Count - 1
arrLiB.Add(ListBox1.Items(i))
Next
For i = 0 To arrLiB.Count - 1
If i = arrLiB.Count Then Exit For
Dim strArr As String = arrLiB.Item(i)
Dim split() As String = strArr.Split(".")
Dim strHZ As String
For j = i + 1 To arrLiB.Count - 1
If j = arrLiB.Count Then Exit For
strHZ = arrLiB.Item(j)
strHZ = strHZ.Substring(strHZ.LastIndexOf(".") + 1)
If strHZ = split(1) Then
arrLiB.Remove(arrLiB.Item(j))
End If
Next
Next
ListBox1.Items.Clear()
For i = 0 To arrLiB.Count - 1
ListBox1.Items.Add(arrLiB.Item(i))
Next
End Sub
(个人意见，仅供参考)

[singlepine]

你的
a.id
b.name
a.no
b.sex
a.name
b.age
b.id
a.addr
是怎么帮上去的？只有知道它是怎么帮上去的，然后在绑定前才可以做判断把.后面重复的就不用榜上去，或者绑上以后，在用remove删掉也可以。

先要知道你是怎么绑定的，才好帮你解决。