Количество повторяющихся слов в предложении - Visual Basic .NET

Формулировка задачи:

Задано предложение, состоящее из слов-строк. Написать программу, которая находит количество слов в предложении, встречающихся более одного раза.

Код к задаче: «Количество повторяющихся слов в предложении - Visual Basic .NET»

textual
        Dim P = {",", "!", "?", "=", "<", ">"}
        Dim TXT = "CyberForum.ru - форум программистов и сисадминов > Форум программистов > Форум .NET > Форум Visual Basic .NET"
 
        For Each c As Char In P
            TXT = TXT.Replace(c, "")
        Next
 
        Dim ARR = TXT.Split
        Dim WDS As New List(Of String)
 
        For i = 0 To ARR.Length - 1
            Dim Word = ARR(i).ToLower
            Dim cnt = 1
            For j = i + 1 To ARR.Length - 1
                If Word = ARR(j).ToLower Then
                    cnt += 1
                End If
            Next
            If cnt > 1 Then
                Dim fnd As Boolean = False
                For Each wd In WDS
                    If wd.StartsWith(Word) Then
                        fnd = True
                        Exit For
                    End If
                Next
                If Not fnd Then WDS.Add(Word & " = " & cnt)
            End If
        Next
 
        MsgBox(Join(WDS.ToArray, vbCrLf))

13   голосов, оценка 4.231 из 5


СОХРАНИТЬ ССЫЛКУ