如何将最复制的数据从txt文件显示到MsgBox？

Question

我被困住了！我正在尝试使用以下数据读取txt文件：

LEE JOSH JOSH ANDY MANDY LINDA LEE JOSH AMANDA

txt文件一直在更新。所以，我想阅读这个文件，然后在msgbox中显示最重复的名称。在这种情况下，MsgBox将显示JOSH。

有人可以帮我吗？

谢谢。

Answer 1

您可以使用LINQ：

Dim result = File _
    .ReadAllLines("test.txt") _
    .GroupBy(Function(x) x) _
    .Select(Function(x) New With { _
        Key .Word = x.Key, _
        Key .Count = x.Count() _
    }) _
    .OrderByDescending(Function(x) x.Count) _
    .First()
Console.WriteLine("Word: {0}, Occurrences: {1}", result.Word, result.Count)