среда, 25 января 2017 г.

#1339. Скрипт для переименования файла по маске

CONST cFrom '.XE64.'
CONST cTo '.XE.'
CONST cFolder 'O:\Compare\x64\'

PROCEDURE DoFile
  STRING IN aFile
 STRING VAR l_NewName
 aFile cFrom cTo string:Replace >>> l_NewName
 l_NewName .
 
 aFile l_NewName RenameFile .
; // DoFile

@ DoFile [ '*' cFrom '*' ] strings:Cat cFolder ProcessFilesWithMask

Ну или с параметрами из командной строки:

STRING VAR cFrom 
STRING VAR cTo 
STRING VAR cFolder 

2 ParamStr >>> cFrom
3 ParamStr >>> cTo
4 ParamStr >>> cFolder

PROCEDURE DoFile
  STRING IN aFile
 STRING VAR l_NewName
 aFile cFrom cTo string:Replace >>> l_NewName
 l_NewName .
 
 aFile l_NewName RenameFile .
; // DoFile

@ DoFile [ '*' cFrom '*' ] strings:Cat cFolder ProcessFilesWithMask

Комментариев нет:

Отправить комментарий