Difference between revisions of "ReNamer:Scripts:Index files per folder"
Jump to navigation
Jump to search
(Created page with "This script adds a serialization index to the end of every file on per folder basis. The index is incremented only when the folder path changes. Below are the parameters of the ...") |
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">") |
||
| (3 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| + | {{Up|ReNamer:Scripts}} | ||
| + | |||
This script adds a serialization index to the end of every file on per folder basis. The index is incremented only when the folder path changes. | This script adds a serialization index to the end of every file on per folder basis. The index is incremented only when the folder path changes. | ||
| Line 4: | Line 6: | ||
* INDEX_START - The first index to be used. | * INDEX_START - The first index to be used. | ||
* PAD_LENGTH - Length to which the index is padded with zeros. | * PAD_LENGTH - Length to which the index is padded with zeros. | ||
| − | * | + | * INDEX_DELIMETER - Prefix for the index when inserting into the filename. |
| + | * SUFFIX - If TRUE, the index is appened to the end of the filename. If FALSE, index is prefixed. | ||
Below is the example of the results: | Below is the example of the results: | ||
| Line 32: | Line 35: | ||
== Code == | == Code == | ||
| − | Author: Denis Kozlov. Date: | + | Author: Denis Kozlov. Date: 18 August 2011. |
| − | < | + | <syntaxhighlight lang="pascal"> |
const | const | ||
INDEX_START = 1; | INDEX_START = 1; | ||
PAD_LENGTH = 3; | PAD_LENGTH = 3; | ||
| − | + | INDEX_DELIMETER = '_'; | |
| − | + | SUFFIX = TRUE; | |
| + | |||
var | var | ||
Index: Integer; | Index: Integer; | ||
Initialized: Boolean; | Initialized: Boolean; | ||
Dir, LastDir: WideString; | Dir, LastDir: WideString; | ||
| − | + | ||
function Pad(Number, NewLength: Integer): WideString; | function Pad(Number, NewLength: Integer): WideString; | ||
begin | begin | ||
| Line 51: | Line 55: | ||
Result := '0' + Result; | Result := '0' + Result; | ||
end; | end; | ||
| − | + | ||
begin | begin | ||
Dir := WideExtractFileDir(FilePath); | Dir := WideExtractFileDir(FilePath); | ||
| Line 65: | Line 69: | ||
Inc(Index); | Inc(Index); | ||
end; | end; | ||
| − | FileName := WideStripExtension(FileName) + | + | if SUFFIX then |
| − | + | FileName := WideStripExtension(FileName) + | |
| − | + | INDEX_DELIMETER + Pad(Index, PAD_LENGTH) + | |
| + | WideExtractFileExt(FileName) | ||
| + | else | ||
| + | FileName := WideExtractFilePath(FileName) + | ||
| + | Pad(Index, PAD_LENGTH) + INDEX_DELIMETER + | ||
| + | WideExtractFileName(FileName); | ||
end. | end. | ||
| − | + | </syntaxhighlight> | |
| − | </ | ||
Latest revision as of 15:01, 8 February 2017
This script adds a serialization index to the end of every file on per folder basis. The index is incremented only when the folder path changes.
Below are the parameters of the script:
- INDEX_START - The first index to be used.
- PAD_LENGTH - Length to which the index is padded with zeros.
- INDEX_DELIMETER - Prefix for the index when inserting into the filename.
- SUFFIX - If TRUE, the index is appened to the end of the filename. If FALSE, index is prefixed.
Below is the example of the results:
| Folder | Name | New Name |
|---|---|---|
| C:\TEMP\Folder A\ | A1.doc | A1_001.doc |
| C:\TEMP\Folder A\ | A2.doc | A2_001.doc |
| C:\TEMP\Folder A\ | A3.doc | A3_001.doc |
| C:\TEMP\Folder B\ | B1.doc | B1_002.doc |
| C:\TEMP\Folder C\ | C1.doc | C1_003.doc |
| C:\TEMP\Folder C\ | C2.doc | C2_003.doc |
Note: You need to sort your files by Folder column so that all files from within the same folder appear together, because the index is changed every time the folder is changed in the list!
Tested
- ReNamer 5.50+ Beta
Code
Author: Denis Kozlov. Date: 18 August 2011.
const
INDEX_START = 1;
PAD_LENGTH = 3;
INDEX_DELIMETER = '_';
SUFFIX = TRUE;
var
Index: Integer;
Initialized: Boolean;
Dir, LastDir: WideString;
function Pad(Number, NewLength: Integer): WideString;
begin
Result := IntToStr(Number);
while Length(Result) < NewLength do
Result := '0' + Result;
end;
begin
Dir := WideExtractFileDir(FilePath);
if not Initialized then
begin
Initialized := True;
LastDir := Dir;
Index := INDEX_START;
end;
if not WideSameText(LastDir, Dir) then
begin
LastDir := Dir;
Inc(Index);
end;
if SUFFIX then
FileName := WideStripExtension(FileName) +
INDEX_DELIMETER + Pad(Index, PAD_LENGTH) +
WideExtractFileExt(FileName)
else
FileName := WideExtractFilePath(FileName) +
Pad(Index, PAD_LENGTH) + INDEX_DELIMETER +
WideExtractFileName(FileName);
end.