Dim stroka As String ' строчка для подсчета Dim retval ' возвращаемое значение stroka = "Шит колпак не по-колпаковски. Ливерная колбаса." retval = Split(stroka, "кол") MsgBox "'кол' встречается в строке'" & stroka & "' " & UBound(retval) & " раза"
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Подсчет повторений слова в тексте", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!