txt 파일에서 MsgBox로 가장 중복 된 데이터를 표시하는 방법은 무엇입니까?

Question

나는 막혔다! 나는 아래와 같은 데이터로 txt 파일을 읽으려고 해요 :

LEE 조쉬 조쉬 ANDY 맨디 LINDA LEE 조쉬 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)