vb.net 计算2000000条数据中每条数据的重复次数

可以使用字典（Dictionary）来实现统计每条数据的重复次数，具体实现如下：

vb.net

Dim data As New List(Of String) ' 保存2000000条数据的列表
' 假设数据已经保存在 data 列表中

Dim countDict As New Dictionary(Of String, Integer) ' 字典用于保存每条数据的重复次数

For Each item As String In data
If countDict.ContainsKey(item) Then
countDict(item) += 1 ' 如果字典中已经存在这条数据，重复次数加1
Else
countDict(item) = 1 ' 如果字典中不存在这条数据，添加到字典中并初始化重复次数为1
End If
Next

' 输出重复次数大于1的数据
For Each item As KeyValuePair(Of String, Integer) In countDict
If item.Value > 1 Then
Console.WriteLine("{0}: {1}", item.Key, item.Value)
End If
Next
上述代码中，我们使用一个名为 data 的列表来保存2000000条数据，然后创建了一个名为 countDict 的字典来保存每条数据的重复次数。接下来，我们使用 For Each 循环遍历 data 列表中的每条数据，如果字典中已经存在这条数据，则将对应的重复次数加1，否则将该条数据添加到字典中，并将其对应的重复次数初始化为1。最后，我们遍历 countDict 字典中的每一项，输出重复次数大于1的数据。

 

vb.net 列表用法

在 VB.NET 中，列表是一种常用的数据结构，通常用于存储多个元素，并支持在列表的末尾添加、删除、查找和遍历等操作。以下是 VB.NET 中列表的常用方法和用法：

创建一个列表：
vb.net
Copy code
Dim list As New List(Of Integer)() ' 创建一个整型列表
在列表末尾添加一个元素：
vb.net
Copy code
list.Add(1) ' 在列表末尾添加元素1
list.Add(2) ' 在列表末尾添加元素2
list.Add(3) ' 在列表末尾添加元素3
在指定位置插入一个元素：
vb.net
Copy code
list.Insert(1, 4) ' 在第2个位置（从0开始）插入元素4
删除列表中的一个元素：
vb.net
Copy code
list.Remove(3) ' 删除元素3
根据索引删除列表中的一个元素：
vb.net
Copy code
list.RemoveAt(0) ' 删除第一个元素
判断列表中是否包含某个元素：
vb.net
Copy code
Dim contains As Boolean = list.Contains(2) ' 判断列表中是否包含元素2
获取列表中元素的个数：
vb.net
Copy code
Dim count As Integer = list.Count ' 获取列表中元素的个数
获取或设置列表中指定索引的元素：
vb.net
Copy code
Dim item As Integer = list(0) ' 获取第一个元素
list(0) = 5 ' 将第一个元素设置为5
遍历列表中的所有元素：
vb.net
Copy code
For Each item As Integer In list
Console.WriteLine(item)
Next
以上是 VB.NET 中列表的一些常用方法和用法，除此之外还有很多其他方法和属性可以使用。如果需要更详细的列表操作，可以参考官方文档：https://docs.microsoft.com/en-us/dotnet/api/system.collections.generic.list-1.

上一篇: lnmp重新安装mysql
下一篇: vb.net 如何将一个100行的文本文件导入到列表中
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb.net
相关日志: