Подсчет слов в текстовом файле - 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())
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
