PureBasic - форум

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

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

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

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

Страница: 1

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

1

  • Автор: OPBR
  • Активный участник
  • OPBR
  • Зарегистрирован: 07.08.2012
  • Приглашений: 0
  • Сообщений: 53
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    21 час 21 минуту
  • Последний визит:
    25.11.2013 15:29:33

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

  • Автор: Paranoia
  • Активный участник
  • Зарегистрирован: 24.06.2012
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Возраст: 33 [1991-06-14]
  • Провел на форуме:
    8 дней 6 часов
  • Последний визит:
    10.08.2019 05:59:03
Код:
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

Страница: 1

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