Dimapplk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: NoActive USER-VALUE list-file USER-VALUE list-contents VARIABLE IsStringFinded 10240 CONSTANT max-line-size CREATE StringFind 256 ALLOT Action: FOR-FILES: "c:\1\*.*" S" qwerty" StringFind PLACE 0 IsStringFinded ! max-line-size ALLOCATE THROW TO list-contents FOUND-FULLPATH 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-DELETE: "C:\3\check" FILE-DELETE: "C:\3\put.s" LOG: "C:\3\put.s" "open ftp.адрес.com" LOG: "C:\3\put.s" "твойЛогин" LOG: "C:\3\put.s" "ТвойПароль" LOG: "C:\3\put.s" "binary" LOG: "C:\3\put.s" "put %FOUND-FULLPATH%" LOG: "C:\3\put.s" "mls %FOUND-FILENAME%" LOG: "C:\3\put.s" "C:\3\check" LOG: "C:\3\put.s" "y" LOG: "C:\3\put.s" "bye" StartIn: "C:\3\" SWHide NormalPriority START-APPW: "ftp -s:put.s >> C:\3\ftp.log" 1. FILE-SIZE: "c:\3\check" D< IF FILE-DELETE: "%FOUND-FULLPATH%" THEN ELSE FILE-MOVE: "%FOUND-FULLPATH%" "C:\2" THEN ;FOR-FILES )# |
| Всего записей: 102 | Зарегистр. 20-05-2007 | Отправлено: 19:44 17-12-2008 | Исправлено: Dimapplk, 19:45 17-12-2008 |
|