ReNamer:Scripts:Serialize duplicates

Script will serialize duplicated names by appending a counter to the end of the base name. Note that only the file name is taken into consideration, so files with the same name but in different folders will still be serialized as if they were in the same folder.

Tested

• ReNamer 5.50

Code 1

Author: Denis Kozlov. Date: 26 January 2007.

Example	Output
File A.txt	File A.txt
File A.txt	File A (2).txt
File A.txt	File A (3).txt
File B.doc	File B.doc
File C.mp3	File C.mp3
File B.doc	File B (2).doc

var
  Files: TStringsArray;

procedure Add(const S: WideString);
begin
  SetLength(Files, Length(Files)+1);
  Files[Length(Files)-1] := S;
end;

function Exists(const S: WideString): Boolean;
var I: Integer;
begin
  Result := False;
  for I:=0 to Length(Files)-1 do
    if WideSameText(Files[I], S) then
      begin Result := True; Break; end;
end;

var
  NewFileName: WideString;
  Counter: Integer;

begin
  Counter := 2;
  NewFileName := FileName;
  while Exists(NewFileName) do
  begin
    NewFileName := WideExtractBaseName(FileName) +
      ' (' + IntToStr(Counter)+')' + WideExtractFileExt(FileName);
    Counter := Counter + 1;
  end;
  FileName := NewFileName;
  Add(FileName);
end.

Code 2

Author: Denis Kozlov. Date: 22 May 2010.

Example	Output
File A.txt	File A -1.txt
File A.txt	File A -2.txt
File A.txt	File A -3.txt
File B.doc	File B -1.doc
File C.mp3	File C -1.mp3
File B.doc	File B -2.doc

var
  Files: TStringsArray;

procedure Add(const S: WideString);
begin
  SetLength(Files, Length(Files)+1);
  Files[Length(Files)-1] := S;
end;

function Exists(const S: WideString): Boolean;
var I: Integer;
begin
  Result := False;
  for I:=0 to Length(Files)-1 do
    if WideSameText(Files[I], S) then
      begin Result := True; Break; end;
end;

function InsertCounter(const S: WideString; I: Integer): WideString;
begin
  Result := WideExtractBaseName(S) + ' -' +
    IntToStr(I) + WideExtractFileExt(S);
end;

var
  NewFileName: WideString;
  Counter: Integer;

begin
  Counter := 1;
  NewFileName := InsertCounter(FileName, Counter);
  while Exists(NewFileName) do
  begin
    NewFileName := InsertCounter(FileName, Counter);
    Counter := Counter + 1;
  end;
  FileName := NewFileName;
  Add(FileName);
end.