Подсчет слов в текстовом файле - VB

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

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

кaк пoдсчитaт скoлкo нaпример: слoв 'windows' встречaются в теxтoвoм фaиле пoд нaзвaнием 'data.тxт '

Решение задачи: «Подсчет слов в текстовом файле»

textual
Листинг программы 
Dim txt As String
Dim sword As String
Dim atxt() As String
 
txt='....'
sword='....'
atxt()=Split(txt,sword)
MsgBox 'Количество слов ''' & sword & ''' в тексте равно ' & Str(UBound(atxt())

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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