Question

我如何在vb.net中的给定字符串中找到多个出现

例如，我的字符串是两次：1234567

1234567，Desction，1.32

1234555，Desction，2.30

1234556，Desction，2.30

1234557，Desction，2.30

1234567，Desction，1.32

我想将这两行放入我的表单

上的下拉菜单中

紧急

先谢谢

Answer 1

让我们说你需要的是在字符串列表中找到所有重复项，使用一点linq你可以试试

Dim list As New List(Of String)() 
list.Add("1234567,Desction,1.32") 
list.Add("1234555,Desction,2.30") 
list.Add("1234556,Desction,2.30") 
list.Add("1234557,Desction,2.30") 
list.Add("1234567,Desction,1.32") 
Dim duplicates = From s In list _ 
    Group s By sIntog _ 
    Where g.Count() > 1 _ 
    Select g 

For Each s In duplicates 
    Dim duplicate As String = s.Key 
Next

然后在For Each中，您可以从字符串中填充DropDown项目。

那么，在这种情况下你可以试试像

这样的东西

Dim duplicates As New List(Of String)() 

For iString As Integer = 1 To list.Count - 1 
    If Not duplicates.Contains(list(iString - 1)) Then 
        For iCompare As Integer = iString To list.Count - 1 
            If list(iString - 1) = list(iCompare) Then 
                duplicates.Add(list(iString - 1)) 
                Exit For 
            End If 
        Next 
    End If 
Next

在vb.net中找到给定字符串中的多个出现

1 个答案: