den4b Forum

Tatjana

Member

From: Portugal

Registered: 2011-01-16

Posts: 5

How to swap :Image_WidthAndHeight: values for landscape photos?

Hello!

Sorry my bad english

I have 4TB of photos, stored like this:

X:\models\model_name\setnumber\photoname.jpg

Often I have the same X:\models\model_name\setnumber in different sizes

I would like to rename the folder setnumber appending the images size of the set.

I use ReNamer to move the photos a folder \setnum (Image_Width x AndHeight)
using this rule : add prefix --->  \:File_FolderName: (:Image_WidthAndHeight:)\

because all the photos are rectangular, I get 2 folders, one with portrait, the other with landscape oriented photos

Ex:

X:\models\model_name\setnumber (3000x4096)\
X:\models\model_name\setnumber (4096x3000)\

Could you please help me to solve this problem?

I would like the smaller dimension to be first then the larger one (3000x4096) and not (4096x3000)

Thank you in advance,
Tatjana

SafetyCar

Senior Member

Registered: 2008-04-28

Posts: 446

Website

Re: How to swap :Image_WidthAndHeight: values for landscape photos?

I think the easiest would be to use the :Image_Pixels: tag which  gives the result of the multiplication

Anyway, y started playing in the PascalScript rule and I ended up doing this script.
Try it. You'll need to insert/move ":File_FolderName:" after it.

var
  Large, Small: WideString;
  Height, Width: Integer;

begin
  Width  := StrToIntDef(CalculateMetaTag(FilePath, 'Image_Width'), 0);
  Height := StrToIntDef(CalculateMetaTag(FilePath, 'Image_Height'), 0);

  If (Width>Height) then
  begin
    Large := IntToStr(Width); 
    Small := IntToStr(Height);
  end
  else
  begin
    Large := IntToStr(Height); 
    Small := IntToStr(Width);
  end;

  FileName := ' (' + Large + 'x' + Small + ')\' + FileName;
end.

---

If this software has helped you, consider getting your pro version. :)

Tatjana

Member

From: Portugal

Registered: 2011-01-16

Posts: 5

Re: How to swap :Image_WidthAndHeight: values for landscape photos?

Thank you very much, it works perfect!

By the way, if anyone needs to use the script for the exact result I asked, this line

FileName := ' (' + Large + 'x' + Small + ')\' + FileName;

has to be changed to this:

FileName := ' (' + Small + 'x' + Large + ')\' + FileName;

My best regards,

Tatjana