如何计算vb.net中字符串或整数数组中存在的重复数字？
Dim a as string = "3,2,3"
从上面的“ a”变量中，我希望将“ 3”的计数设为2（我的意思是3存在2次），将“ 2”的计数设为“ 1”。那么我如何在vb.net上制作它呢????
实际上，我将从sql数据库中获得以上字符串“ a”。所以我不知道那里有哪个数字。这就是为什么我在这里问。
您已经有一些不错的选择可供选择，但是我认为您会对一种内衬解决方案感兴趣。
Module Module1
Sub Main()
Dim str() As String = "1,2,1,2,3,1,0,1,4".Split(","c)
str.Distinct().ToList().ForEach(Sub(digit) Console.WriteLine("{0} exists {1}", digit, str.Count(Function(s) s = digit)))
Console.ReadLine()
End Sub
End Module
关于发生了什么的解释：
str.Distinct（） -返回IEnumerable数组中所有唯一项的对象.ToList（） -将IEnumerable对象变成一个List<T>.ForEach（） -遍历List<T>
结果：
1 exists 4
2 exists 2
3 exists 1
0 exists 1
4 exists 1
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句