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

Подсчитать количество определенных символов в тексте



'Данный пример покажет, сколько раз встречается буква Н в данном выражении.

Private Sub Form_Load()
myString = "в данном примере несколько букв н, а точнее - "
tempString = Split(myString, "н")
MsgBox "в данном примере несколько букв н, а точнее - " & UBound(tempString)
tempString = Split(myString, "нн")
MsgBox "в данном примере " & UBound(tempString) & " раз встречается выражение нн"
End Sub


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


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

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


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