Всплывающие подсказки из текстового файла

Обсуждение программ nnCron и nnCron LITE

Всплывающие подсказки из текстового файла

Postby suvorovdm » Thu, 20 Nov 2008, 19:56

Здравствуйте,Друзья!!!
Безнадёжные поиски в сети привели к вам. :D
Просьба написать кронтаб...
Его смысл в следующем:
По настройкам пользователя,из указанного им ОДНОГО текстового файла производится отображение фразы-всплывающей подсказки через заданный интервал времени.
Часто это можно видеть во многих программах с полезными советами.(Punto Switcher,например)
Весьма удобно при обучении иностранному языку,запоминании коротенькой информации,например,афоризмов,анекдотов=))
Спасибо за помощь!!! :D
suvorovdm
 
Posts: 6
Joined: Thu, 20 Nov 2008, 07:59

Re: Всплывающие подсказки из текстового файла

Postby Ilya » Tue, 25 Nov 2008, 18:50

Лови что получилось: :D
Енто добавляем в кронтаб:
Code: Select all
<%
1000 CONSTANT lbl
0 VALUE fid
CREATE b1 lbl ALLOT

CREATE BT S" ~~" SZ",
BT ASCIIZ> NIP
CREATE BTL ,
USER _fp11
USER _fp21
USER _addr1
: READ-BLOCK ( c-addr u1 fileid -- u2 flag ior ) \ 94 FILE

  DUP >R
  FILE-POSITION IF 2DROP 0 0 THEN _fp11 ! _fp21 !
  BTL @ +
  OVER _addr1 !

  R@ READ-FILE ?DUP IF NIP RDROP 0 0 ROT EXIT THEN

  DUP >R 0= IF RDROP RDROP 0 0 0 EXIT THEN \ были в конце файла

  _addr1 @ R@ BT BTL @ SEARCH
  IF   \ найден разделитель строк
     DROP _addr1 @ -
     DUP
     BTL @ + S>D _fp21 @ _fp11 @ D+ RDROP R> REPOSITION-FILE DROP
  ELSE \ не найден разделитель строк
     2DROP
     R> RDROP  \ если строка прочитана не полностью - будет разрезана
  THEN
  TRUE 0
;
: _start-podsk
R/O OPEN-FILE-SHARED THROW TO fid
;
WARNING @ WARNING 0!
: BeforeStop
fid CLOSE-FILE THROW
S"  BeforeStop!" MsgBox
BeforeStop
;
WARNING !

%>

#( start-podsk
RunOnce
NoDel
Action:
S" podsk.txt" \ Имя файла (путь) выбираешь свой !
_start-podsk

)#

#( podskazka
Action:
fid IF
b1 DUP lbl fid READ-BLOCK THROW
IF
   S" title" 2SWAP BALLOON
ELSE
   2DROP 0. fid REPOSITION-FILE THROW
THEN
THEN
)#


Формат файл может быть приблизительно такой:
Code: Select all
Первая посказка.
Вторая строка, первой подсказки!
~~
Вторая посказка.
Вторая строка, второй подсказки!
~~

Длина каждого блока должна быть < 1000 символов.
Last edited by Ilya on Wed, 26 Nov 2008, 19:50, edited 1 time in total.
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

Re: Всплывающие подсказки из текстового файла

Postby suvorovdm » Wed, 26 Nov 2008, 13:07

Здравствуйте,Илья!!! :D
Спасибо Вам за код!!!Работает!!!! :D
Если не затруднит...
1.После показа двух подсказок на окне -"Ошибка стека в Action"
2.Я понимаю,что ежеминутное появление подсказок задано в "Редактировании задачи" в основном окне..А возможно ли задать это в кронтабе?
3.Слово "title' в посказке-системная надпись?
Спасибо за ответ!!!
suvorovdm
 
Posts: 6
Joined: Thu, 20 Nov 2008, 07:59

Re: Всплывающие подсказки из текстового файла

Postby Ilya » Wed, 26 Nov 2008, 19:57

suvorovdm wrote:Здравствуйте,Илья!!! :D
Спасибо Вам за код!!!Работает!!!! :D
Если не затруднит...
1.После показа двух подсказок на окне -"Ошибка стека в Action"
Поправил. Из обнови код из предыдущего поста или ручками добавь 2DROP перед кодом
Code: Select all
0. fid REPOSITION-FILE THROW


2.Я понимаю,что ежеминутное появление подсказок задано в "Редактировании задачи" в основном окне..А возможно ли задать это в кронтабе?
Ежеминутно появление задано по умолчанию.
А насчёт кронтаба см. тут http://www.nncron.ru/help/RU/working/task/time.htm

3.Слово "title' в посказке-системная надпись?
Нет, можешь ставить сою надпись.
http://www.nncron.ru/help/RU/commands/m ... tm#BALLOON

Спасибо за ответ!!!
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

Re: Всплывающие подсказки из текстового файла

Postby suvorovdm » Fri, 28 Nov 2008, 07:57

Здравствуйте,Илья!!! :D
Всё обалденно,всё работает!
Спасибо! Спасибо! Спасибо! :D
PS А как Вам можно файлик отправить? :D
suvorovdm
 
Posts: 6
Joined: Thu, 20 Nov 2008, 07:59

Re: Всплывающие подсказки из текстового файла

Postby Ilya » Fri, 28 Nov 2008, 11:10

suvorovdm wrote:Здравствуйте,Илья!!! :D
Всё обалденно,всё работает!
Спасибо! Спасибо! Спасибо! :D
PS А как Вам можно файлик отправить? :D

Ответил в личку.
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: No registered users and 3 guests

cron