计数重新出现一个字符串 - VB.NET

Question

什么方法最好计算以下内容，每一行都是由循环创建的字符串。

Jane
Jane
Matt
Matt
Matt
Matt
Jane
Paul

最后我想知道：Jane = 3，Matt = 4，Paul = 1.我会使用数组还是循环？

Answer 1

您可以创建一个List（Of String），例如

Dim arr As New List(Of String)

在你的循环中收集你的字符串：

arr.Add(CurrentString)

循环arr之后会有所有字符串。然后你可以运行一个简单的LINQ查询：

Dim Summary = From a In arr Group By Name = a Into Group _
              Select Name, Cnt = Group.Count()

本摘要将为您提供计数。您可以使用它，例如

For Each elem In Summary
    'Output elem.Name
    'Output elem.Cnt 
Next

对于你的例子，这将产生

Name = "Jane", Cnt = 3 
Name = "Matt", Cnt = 4
Name = "Paul", Cnt = 1