den4b Forum

user10h

Member

Registered: 2014-08-18

Posts: 3

Можно ли решить такую задачу?

Здравствуйте! Подскажите пожалуйста, можно ли с помощью ReNamer осуществить следующую задачу:

Имеется 10.000 файлов, пронумерованы от 1 до 10.000.
Нужно пропустить 400 файлов от начала и затем в следующих 200-х файлах переименовать каждый четвёртый (или третий, или пятый) по заданному правилу. Затем опять пропустить 400 файлов, и в последующих двухстах опять переименовать каждый четвёртый. И так далее...

Можно ли создать своё "правило" для данной операции? Спасибо!

Stefan

Moderator

From: Germany, EU

Registered: 2007-10-23

Posts: 1,161

Re: Можно ли решить такую задачу?

Привет и добро пожаловать.

Да, конечно. Вы можете создавать новые правила, написав PascalScript.
Смотрите наш прекрасный вики (English) > http://www.den4b.com/wiki/ReNamer:Pascal_Script

 

---

Read the  *WIKI* for HELP + MANUAL + Tips&Tricks.
If ReNamer had helped you, please *DONATE* to Denis or buy a PRO license. (Read *Lite vs Pro*)

den4b

Administrator

From: den4b.com

Registered: 2006-04-06

Posts: 3,479

Re: Можно ли решить такую задачу?

Да, это сделать можно с помощью правила PascalScript (скрипты).

К примеру, чтобы пропустить 400 файлов, потом переименовать 200 файлов, и т.д.:

const
  SKIP_FIRST = True;
  FILES_TO_SKIP = 400;
  FILES_TO_RENAME = 200;

function NeedToSkip(FileIndex: Integer): Boolean;
begin
  Result := SKIP_FIRST;
  while FileIndex > 0 do
  begin
    if Result then
      FileIndex := FileIndex - FILES_TO_SKIP
    else
      FileIndex := FileIndex - FILES_TO_RENAME;
    if FileIndex > 0 then
      Result := not Result;
  end;
end;

begin
  if not NeedToSkip(GetCurrentFileIndex) then
    FileName := '+' + FileName;
end.

---

A story of software development, and how it all evolves into Live vs Pro
Request a Wiki account | Reporting spam and abuse | Why did I get banned?

user10h

Member

Registered: 2014-08-18

Posts: 3

Re: Можно ли решить такую задачу?

Спасибо за подсказки! Но я не очень разбираюсь в Паскале, точнее вообще не разбираюсь) Вот что мне написал компилятор: Line 21 Error: Unknown identifier 'GetCurrentFileIndex' Почему он недоволен?

den4b

Administrator

From: den4b.com

Registered: 2006-04-06

Posts: 3,479

Re: Можно ли решить такую задачу?

Нужно обновить ReNamer.

Эта функция была добавлена в ReNamer 5.70.

---

A story of software development, and how it all evolves into Live vs Pro
Request a Wiki account | Reporting spam and abuse | Why did I get banned?

user10h

Member

Registered: 2014-08-18

Posts: 3

Re: Можно ли решить такую задачу?

Спасибо, попробую!