Difference between revisions of "ReNamer:Scripts:Index filenames"
Jump to navigation
Jump to search
(Created page with '{{Up|ReNamer:Scripts}} Demonstrates how to insert an incrementing number into the filename. == Code 1 == Author: Denis Kozlov. Date: 13 February 2007. Replaces the whole file…') |
m (Text replacement - "</source>" to "</syntaxhighlight>") |
||
| Line 17: | Line 17: | ||
FileName := IntToStr(I); | FileName := IntToStr(I); | ||
end. | end. | ||
| − | </ | + | </syntaxhighlight> |
== Code 2 == | == Code 2 == | ||
| Line 34: | Line 34: | ||
IntToStr(I) + ')' + WideExtractFileExt(FileName); | IntToStr(I) + ')' + WideExtractFileExt(FileName); | ||
end. | end. | ||
| − | </ | + | </syntaxhighlight> |
Revision as of 15:02, 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.
<source> var
I: Integer;
begin
I := I + 1; FileName := IntToStr(I);
end. </syntaxhighlight>
Code 2
Author: Denis Kozlov. Date: 8 September 2010.
Append an incrementing number surrounded with brackets to the end of the base name.
<source> var
I: Integer;
begin
I := I + 1;
FileName := WideExtractBaseName(FileName) + ' (' +
IntToStr(I) + ')' + WideExtractFileExt(FileName);
end. </syntaxhighlight>