Dimapplk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: #( анализ NoActive USER-VALUE list-file USER-VALUE list-contents VARIABLE IsStringFinded 10240 CONSTANT max-line-size CREATE filename 256 ALLOT CREATE StringFind 256 ALLOT Action: S" C:\Users\Dima\Program\nnCron\test1.txt" filename PLACE S" task" StringFind PLACE 0 IsStringFinded ! max-line-size ALLOCATE THROW TO list-contents S" %filename COUNT%" EVAL-SUBST R/O OPEN-FILE-SHARED THROW TO list-file [NONAME BEGIN list-contents max-line-size 2- list-file READ-LINE THROW WHILE list-contents + 0 SWAP C! RE-MATCH: "%list-contents ASCIIZ>%" "/%StringFind COUNT%/" IF 1 IsStringFinded ! EXIT THEN REPEAT NONAME] EXECUTE list-file CLOSE-FILE DROP list-contents FREE DROP IsStringFinded @ 0= IF DROP FILE-MOVE: "%filename COUNT%" "2" ELSE FILE-MOVE: "%filename COUNT%" "1" THEN )# |
| Всего записей: 102 | Зарегистр. 20-05-2007 | Отправлено: 10:52 17-12-2008 | Исправлено: Dimapplk, 11:20 17-12-2008 |
|