Подсчет количества слов в тексте, начинающихся с "а" - VBA

Узнай цену своей работы

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

Как мне решить вот эту задачу? Произвести подсчет числа слов в тексте начинающихся с символа "а"?

Решение задачи: «Подсчет количества слов в тексте, начинающихся с "а"»

textual
Листинг программы
Option Explicit
 
 
 
Sub Counting_words()
    '
    'Подсчёт слов исключая союзы, знаки и числа
    'by the fever brain
    '
 
    'на самом деле список союзов гораздо внушителнее, здесь я указал наиболее расспространенные
    'Вот сайт где можно посмотреть этот список: [url]http://moirus.ru/podgotovka-k-ege/spisok-souzov[/url]
    
    'Текст по умолчанию:
    Const txt$ = "Самая яркая особенность этого ВАЗ 2108 из Ярославля находится под капотом. Открыв капот вы не увидите там ничего лишнего. Такие же чистые бежевые крылья, моторный щит и сам двигатель. И всё! Никаких лишних проводов, аккумулятора, ничего лишнего."
 
    Const souse$ = "в же и из или на не о об под" 'Союзы
    Const p = " ", pp = p & p 'Пробелы
    Dim newtx$, num$, i&, v
    newtx$ = InputBox("Введите ваш текст", , txt) & p
    For i = 33 To 63: num = num & p & Chr(i): Next 'Создание списка исключающих знаков
    For Each v In Split(Mid$(num, 2)): newtx = Replace(newtx, v, p): Next
    'Удаление знаков припенания и чисел коды ANSI от 33 до 63
    For Each v In Split(souse): newtx = Replace(newtx, p & v & p, p, Compare:=1): Next
    While InStr(1, newtx, pp): newtx = Replace(newtx, pp, p): Wend 'Удаление пустот
    newtx = Trim$(newtx) 'удаление передних и задних пробелов
    If Len(newtx) > 0 Then i = UBound(Split(Trim$(newtx))) + 1 Else i = 0
    MsgBox "Текст:" & vbLf & txt & vbLf & vbLf & "Количество слов в тексте = " & i
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы