XYplorer Beta Club

aimy wrote:But what I really want is to rename file based on other EXIF info e.g. camera model.

$ exiv2 img_1771.jpg

File name       : img_1771.jpg
File size       : 32764 Bytes
MIME type       : image/jpeg
Image size      : 480 x 360
Camera make     : Canon
Camera model    : Canon PowerShot S40
Image timestamp : 2003:12:14 12:01:44
Image number    : 117-1771

$EXIF =  exiv2 <curitem>

  For Each Item In $EXIF
  {
     if found "Camera model"
     $output = split line at : colon
  }
  rename file  $output*

Stefan wrote:Ah, i forget about properties()

See this info > http://www.xyplorer.com/xyfc/viewtopic. ... 592#p39592
(There is mentioned an other command line exif tool too: ExifTool: http://www.sno.phy.queensu.ca/~phil/exiftool/)

The syntax of script command property you will find in help.
That combined with an rename command could be like this
working test command

Code: Select all

$CamMod = property("CameraModel");
   rename b, "$CamMod - *", p;

For more info see XY help > Advanced > Scripting commands

The known properties your system provide you can see under menu "Tools > Config > File Info Tips" at the right.

$CamMod = property("CameraModel");
   rename b, "<dateexif yyyymmdd.hhnnss>~*_$CamMod", p;

aimy wrote:But what if I want to cater a case where the picture missed the EXIF info?
So, I want it to retain the original filename if no EXITFfound in the file.
Could I do that within a one script?

$list = get("SelectedItemsPathNames", "|");

  $index=1;
   
  while(true)
  {
     //get one after the other file from file list $file:
     $file = gettoken($list, $index, "|");
     if ($file==""){break;}
     
     //read property from actual file:
     $CamMod = property("CameraModel", $file);
      
     //trim space and tabs around the reported property:
     $CamMod = regexreplace($CamMod, "\s*|\t*(.*)\s*|\t*", "$1");
     //msg "Debug:  #$CamMod#",1;
       
     
     //rename only if there is no emtpy property:
     if ($CamMod != "")
     {
          rename b, "<dateexif yyyymmdd.hhnnss>~*_$CamMod", p, $file;
        //rename b, "<dateexif yyyymmdd.hhnnss>~*_$CamMod",  ,  $file;
     }
     
  //next file:
  incr $index;
  if ($index > 1000){break;} //prevent infinity loop while script testing
  }

aimy wrote:Thank you so much stefan.. May God bless you..

But I was wondering.. Since u have proven that XYplorer could read the CameraModel property, why it is so difficult to achieve batch rename?

I've tried many times and many ways playing around with that property("CameraModel") but to no avail. It will always read the first selected file info only

I'm not really good at programming, but I like to do it when I know that it can be achieved and understand the script a litlle bit.

So in this case, since the objective is very straight-forward and simple.. I dont see why I do have to go for a hard way of achieving it?

Anyway, thank you so much again for your assistance.

Before I go to that solution, I just would like to know.. Is it true that XYplorer alone could not achieve my goal?

Thank you.

WRONG: rename b, "<dateexif yyyymmdd.hhnnss>~*_$CamMod", p, $file;
RIGHT: rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod, p, $file;

aimy wrote:But I was wondering.. Since u have proven that XYplorer could read the CameraModel property, why it is so difficult to achieve batch rename?

admin wrote:

aimy wrote:Thank you so much stefan.. May God bless you..

But I was wondering.. Since u have proven that XYplorer could read the CameraModel property, why it is so difficult to achieve batch rename?

I've tried many times and many ways playing around with that property("CameraModel") but to no avail. It will always read the first selected file info only

I'm not really good at programming, but I like to do it when I know that it can be achieved and understand the script a litlle bit.

So in this case, since the objective is very straight-forward and simple.. I dont see why I do have to go for a hard way of achieving it?

Anyway, thank you so much again for your assistance.

Before I go to that solution, I just would like to know.. Is it true that XYplorer alone could not achieve my goal?

Thank you.

Finally you come to save us..

Thanks a lot admin.
Very easy:

Code: Select all

WRONG: rename b, "<dateexif yyyymmdd.hhnnss>~*_$CamMod", p, $file;
RIGHT: rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod, p, $file;

The point is that <dateexif yyyymmdd.hhnnss> should only be resolved within rename, not before. Therefore it has to be quoted in single-quotes.

EDIT: Just assuming that this was the problem. I did not really read the whole thread....

aimy wrote:Stefan, as admin have pointed out, the only mistake in your script is on the rename line.
So, this is the corrected version of your script..
[...]
Now, there's no more error in the script.. It's just that...

As you've mentioned before, this script will preview the renamed files one by one. Just imagine if I need to rename thousand of files and i need them to be previewed all at once. So now, how do I modify the script so that it can preview the renamed files normally just like with this simple rename command..

          rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod, p, $file;
        //rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod",  , $file;  

     
  if ($index > 1000){break;} //prevent infinity loop while script testing
  

$list = get("SelectedItemsPathNames", "|");

  $index=1;   
  while(true)
  {
      //get one after the other file from file list $file:
      $file = gettoken($list, $index, "|");
      if ($file==""){break;}
     
      //read property from actual file:
      $CamMod = property("CameraModel", $file);
      //trim space and tabs around the reported property:
      $CamMod = regexreplace($CamMod, "\s*|\t*(.*)\s*|\t*", "$1");
       
       //rename only if that property is not empty :
      if ($CamMod != "")
      {
           rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod, , $file;
      }
     
   //process next file:
   incr $index;
   }

Stefan wrote:To get rid of that preview for every file all you have to do is
to remove this p include the coma-delimiter from that command,
as the commented line shows you:

Code: Select all

          rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod, p, $file;
        //rename b, "<dateexif yyyymmdd.hhnnss>~*_$CamMod",     $file;  

Just delete the line with the p
and remove the comment signs "//" from the remaining line.
Then you get no preview window anymore.

rename b, '<dateexif yyyymmdd.hhnnss>~*_' . $CamMod, , $file;