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-MOVE: "%FOUND-FULLPATH%" "C:\3"
ELSE FILE-MOVE: "%FOUND-FULLPATH%" "C:\2"
THEN
;FOR-FILES
)# |
|
Всего записей: 102 | Зарегистр. 20-05-2007 | Отправлено: 11:30 17-12-2008 | Исправлено: Dimapplk, 11:34 17-12-2008 |
|
