Находим слово в текстовом файле, копируем строку и разбиваем на слова(в данном случае на два). PureBasic

                        
slovo$ = "Слово"

If ReadFile(0, "C:1.txt")

    While Eof(0) = 0

      Stroka$=ReadString(0, #PB_Ascii)

     If FindString( Stroka$,slovo$)

        MessageRequester("Найдено слово - "+ slovo$, "В строке -" + Stroka$)

        Debug " Найдено слово"

        var$ = stroka$

a$ = StringField(var$,1," ")

b$ = StringField(var$,2," ")

Debug a$

Debug b$

     EndIf

 

    Wend

      CloseFile(0)

Else

Debug " Нет такого файла"

EndIf