Определить, сколько раз в файл входит группа букв 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы