Как считать весь текст из файла - VB

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

здравствуйте! я vb новичок не судите строго нужно считать количество слов у меня получается считывать слово только в начале строки дальше не идет

t = FreeFile
Open "d:\test.txt" For Input As t
 
Do Until EOF(t)
Line Input #t, s
If s = "слово" Then i = i + 1
Loop
 
   MsgBox i
   Close t

Решение задачи: «Как считать весь текст из файла»

textual
                            Листинг программы 
                        

                            fi% = FreeFile 
 
  Open "d:\test.txt" For Input As #fi%
 
  i%=0
 
  Do Until EOF(fi%)
      Line Input #fi%, Stri$
      Stri$=Trim$(Stri$)
      Words=Split(Stri$," ")
      for j%=0 to Ubound(Words,1)
           if Cstr(Words(j%))="слово" then i%=i%+1
      Next j%
  Loop
 
  Close fi%
 
  MsgBox Cstr(i%)
                        

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

9 голосов , оценка 3.889 из 5

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