PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите, пожалуйста, с алгоритмом!


Помогите, пожалуйста, с алгоритмом!

Сообщений 1 страница 2 из 2

1

If OpenConsole()
com=ReadFile(0, "Text.txt")   
   While Eof(0) = 0     
     If com=Lol
       PrintN("Hello world!")
       Delay(10000)
       End
       EndIf
     Wend
   EndIf


Вообщем суть: он должен находить слово "Lol" в текстовом файле. Когда он его находит, он выводит в открытой консоли "Hello world!" на десять секунд, после чего консоль закрывается. Но у меня проблема: он ничего не ищет в текстовом файле и сворачивает консоль. Как мне сделать "нормальную" операцию?

Отредактировано OPBR (18.12.2012 07:27:51)

0

2

Код:
EnableExplicit

Enumeration
  #file_id
EndEnumeration

#file_name = "lol.txt"
#string_to_find = "lol"

If ReadFile(#file_id, #file_name)
  Define current_string.s
  Define current_finder.i
  Define strings_counter.i
  While  Eof(#file_id) = 0
    current_string = ReadString(#file_id)
    strings_counter + 1
    current_finder = FindString(current_string, #string_to_find)
    If current_finder
      Debug "Finded " + Chr(34) + #string_to_find + Chr(34) + " in string: " + Str(strings_counter) + ", position in string: " + Str(current_finder)
    EndIf
  Wend
  CloseFile(#file_id)
EndIf

0


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите, пожалуйста, с алгоритмом!