Difference between revisions of "ReNamer:Scripts:Index filenames"
Jump to navigation
Jump to search
m (Text replacement - "</source>" to "</syntaxhighlight>") |
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">") |
||
| Line 9: | Line 9: | ||
Replaces the whole filename with the incrementing number. | Replaces the whole filename with the incrementing number. | ||
| − | < | + | <syntaxhighlight lang="pascal"> |
var | var | ||
I: Integer; | I: Integer; | ||
| Line 25: | Line 25: | ||
Append an incrementing number surrounded with brackets to the end of the base name. | Append an incrementing number surrounded with brackets to the end of the base name. | ||
| − | < | + | <syntaxhighlight lang="pascal"> |
var | var | ||
I: Integer; | I: Integer; | ||
Latest revision as of 15:04, 8 February 2017
Demonstrates how to insert an incrementing number into the filename.
Code 1
Author: Denis Kozlov. Date: 13 February 2007.
Replaces the whole filename with the incrementing number.
var
I: Integer;
begin
I := I + 1;
FileName := IntToStr(I);
end.
Code 2
Author: Denis Kozlov. Date: 8 September 2010.
Append an incrementing number surrounded with brackets to the end of the base name.
var
I: Integer;
begin
I := I + 1;
FileName := WideExtractBaseName(FileName) + ' (' +
IntToStr(I) + ')' + WideExtractFileExt(FileName);
end.