keeping rename same for original same name w different extensions

Asa · 2022-09-04 21:19

Seems simple enough but I can't figure it out in trying out Renamer I have 6 files I want to rename:

Cyn 4a1k14a1a.tif, Cyn 4a1k14a1b.tif, Cyn 4a1k14a1c.tif,
Cyn 4a1k14a1d.jpg, Cyn 4a1k14a1d.png, Cyn 4a1k14a1d.tif

rule #1 Insert: Insert "art" replacing current name (skip extension)
rule #2 Serialize: Incremental from 1 repeat 1 step 1 as Suffix (skip extension)

BUT when I want the prefix rename (art) to keep same serialized number
for files w same name but different extensions, I clueless what's next --
example: art 1.tif, art 2 .tif, art 3.tif, art 4.jpg, art 4.png, art 4.tif
-- NOT art 1.tif, art 2 .tif, art 3.tif, art 4.jpg, art 5.png, art 6.tif

can't figure it out, any solutions? I tried filtering but couldn't get it to work.
Don't want to create subfolders for different extension types after rename. Thanks

Last edited by Asa (2022-09-05 04:02)

den4b · 2022-09-05 20:50

Apply the following script (in the Pascal Script rule) to index files according to your requirement, keeping the counter same if the base file name doesn't change.

Don't forget to sort your files by the name column before applying the rule.

var
  Counter: Integer;
  PreviousBaseName, CurrentBaseName: WideString;
begin
  Counter := Counter + 1;
  CurrentBaseName := WideExtractBaseName(FileName);
  if Length(PreviousBaseName) > 0 then
  begin
    if WideSameFileName(CurrentBaseName, PreviousBaseName) then
      Counter := Counter - 1;
  end;
  PreviousBaseName := CurrentBaseName;
  FileName := IntToStr(Counter) + WideExtractFileExt(FileName);
end.

Asa · 2022-09-05 22:12

wow, thank you so much -- I looked into learning Pascal script, but it's probably gonna be hard for a guy who's 69 with no background, I just saw this when I googled it --
"Pascal forces you to always think about data as having specific types. For a new programmer this is an excellent habit to develop."
At least I can apply your script. I have literally thousands of files with names that have approached the limit in characters (I do digital art and every time I did an iteration to the work I had to increase the name characters for ID and tracking purposes). If I can implement your code I'll buy ReNamer in gratitude, -- "The Pascal Script Rule", but of course - Again thank you so much.

Edit: I just realized how much more valuable ReNamer is by giving you the ability to implement Object Pascal code if you know it. For anyone interested there's a $16 beginner's intro tutorial complete w a 124 page EBook called "The Little Book Of Pascal", explains all the topics in depth -- "Learn To Program with Delphi and Object Pascal" available here
- Learn To Program with Delphi and Object Pascal

Last edited by Asa (2022-09-06 02:26)

Stefan · 2022-09-06 16:15

Here's another "Learn Pascal tutorial" page: https://www.taoyue.com/tutorials/pascal

Please note that we use PascalScript here, a subset of Pascal,
and not everything what is possible in PascalScript may be completely implemented into ReNamer too.

But see there to lookup what ReNamer is able to do >> https://www.den4b.com/wiki/ReNamer:Pascal_Script

Asa · 2022-09-06 18:45

Thank you so much for the info. I'm trying to wrap my head around this coding stuff and any leads to helpful info is greatly appreciated. The PascalScript tip is pointing me in the right direction along with the ReNamer:Pascal Script link you cited. Thanks

den4b Forum

#1 2022-09-04 21:19

keeping rename same for original same name w different extensions

#2 2022-09-05 20:50

Re: keeping rename same for original same name w different extensions

#3 2022-09-05 22:12

Re: keeping rename same for original same name w different extensions

#4 2022-09-06 16:15

Re: keeping rename same for original same name w different extensions

#5 2022-09-06 18:45

Re: keeping rename same for original same name w different extensions

Board footer