ReNamer:Scripts:Move filename portion

From den4b Wiki
Revision as of 20:58, 8 September 2010 by Den4b (talk | contribs) (Created page with '{{Up|ReNamer:Scripts}} This script moves a specific portion of a filename to a different position. == Code == Author: Denis Kozlov. Date: 13 February 2007. The starting posit…')
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

This script moves a specific portion of a filename to a different position.

Code

Author: Denis Kozlov. Date: 13 February 2007.

The starting position of the portion, its length and the new position are specifed by constants: MOVE_START, MOVE_LENGTH, MOVE_TO.

const
  MOVE_START = 5;  // beginning of the movable portion
  MOVE_LENGTH = 3; // length of the movable portion
  MOVE_TO = 3;     // new position for the portion

var
  BaseName, Portion: WideString;

begin
  BaseName := WideExtractBaseName(FileName);
  Portion := WideCopy(BaseName, MOVE_START, MOVE_LENGTH);
  WideDelete(BaseName, MOVE_START, MOVE_LENGTH);
  WideInsert(Portion, BaseName, MOVE_TO);
  FileName := BaseName + WideExtractFileExt(FileName);
end.