Главная страницаОбратная связьКарта сайта

Подсчет повторений слова в тексте



' Считаем число вхождений слова "кол" в строке

Dim stroka As String ' строчка для подсчета
Dim retval ' возвращаемое значение
stroka = "Шит колпак не по-колпаковски. Ливерная колбаса."
retval = Split(stroka, "кол")
MsgBox "'кол' встречается в строке'" & stroka & "' " & UBound(retval) & " раза"


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Подсчет повторений слова в тексте", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info