Ищем слово в тексте

basic purebasic
  1. slovo$ = "Слово"
  2. If ReadFile(0, "C:\1.txt")
  3.     While Eof(0) = 0
  4.       Stroka$=ReadString(0, #PB_Ascii)
  5.      If FindString( Stroka$,slovo$)
  6.         MessageRequester("Найдено слово - "+ slovo$, "В строке -" + Stroka$)
  7.         Debug " Найдено слово"
  8.         var$ = stroka$
  9. a$ = StringField(var$,1," ")
  10. b$ = StringField(var$,2," ")
  11. Debug a$
  12. Debug b$
  13.      EndIf
  14.  
  15.     Wend
  16.       CloseFile(0)
  17. Else
  18. Debug " Нет такого файла"
  19. EndIf
Находим слово в текстовом файле, копируем строку и разбиваем на слова(в данном случае на два)
Назад

Реклама

Мы в соцсетях

tw tg yt gt