Определить, сколько раз в файл входит группа букв abc - VB

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

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

необходимо считать текст из файла

Решение задачи: «Определить, сколько раз в файл входит группа букв abc»

textual
Листинг программы 
Sub Whole_File()
Dim FF%, St$
FF = FreeFile()
Open "e:\file.txt" For Input As #FF
  St = Input$(LOF(FF), #FF)
Close #FF
MsgBox (Len(St) - Len(Replace(St, "abc", ""))) / 3
End Sub

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

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

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

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