nnCron-Планировщик с поддержкой скриптового языка - [800] :: Программы

Код:

#( birthdays
OnceADay
<(
: birthdays.txt S" birthdays.txt" ;
VARIABLE fb
CREATE bline 256 ALLOT
CREATE bname 64 ALLOT
VARIABLE bdate
VARIABLE byears
VARIABLE bdays
\ start reminding <pre-period> days before the birthday
5 CONSTANT pre-period
)>
Action:
birthdays.txt R/O OPEN-FILE-SHARED IF DROP ERR-MSG: "Can't open %birthdays.txt% file" EXIT THEN fb !
BEGIN bline 250 fb @ READ-LINE THROW WHILE
bline SWAP
<TIB
get-number Year@ get-number get-number YMD>DATE bdate !
Year@ SWAP - byears !
1 WORD COUNT 63 MIN bname PLACE
CUR-DATE bdate @ DATE- NEGATE DUP 0 > OVER pre-period < AND
IF bdays !
MSG: "Birthday reminder!!!%crlf%%bname COUNT%%crlf%Remining days: %bdays @%.%crlf%Aged: %byears @%.%crlf%Don't forget to send greeting card!"
\ do smth useful here - play a little melody, for example
ELSE DROP THEN
TIB>
REPEAT
DROP
fb @ CLOSE-FILE DROP
)#

Модерирует : gyra, Maz
Widok (29-01-2008 15:38): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению