XYplorer Beta Club

Posted: **06 Apr 2024 00:54**

Saturday, 6 April 2024 06:41:39 AM
---------------------------------------------------------------------------------------
Hi.

I have an existing script provided by highend, to automatically rename image files based on the file property ie EXIF date & camera model.

It works perfectly nice!

Thanks again to highend for this.

However, at times, there will be a conflicting filenames, due to same EXIF date:

20240406.064703_XYplorer.jpg

I've already contacted highend privately, but I still cannot figure out on how to do that.

I am thinking of using regex at the end of the stage, but it still didn't work as expected.

Any help?

Attached is the original script and the one that I tried to modify.

XYplorer_EXIF Conditional Rename.xys

XYplorer_EXIF Conditional Rename_EDITED_v4.xys

Thank you.

Posted: **23 Apr 2024 06:50**

Any help?

Thanks

Posted: **23 Apr 2024 19:58**

I didn't look at your edited version, but you haven't said what you want to happen when there are collisions, anyway if you are interested in a crude fix as a starting point, you should be able to just add a line like this

Code: Select all

if (regexmatches($previewNames, "^$pattern$")) { $pattern = regexreplace($pattern, "([^.]+?)$", "<get rs 3 0123456789>.$1"); }

directly before this line: $previewNames = $previewNames . $pattern . "<crlf>";

I'll leave it up to you to escape the string if you feel it necessary. Totally untested aircode.

Posted: **24 Apr 2024 03:24**

jupe wrote: ↑23 Apr 2024 19:58 I didn't look at your edited version, but you haven't said what you want to happen when there are collisions, anyway if you are interested in a crude fix as a starting point, you should be able to just add a line like this
Code: Select all
if (regexmatches($previewNames, "^$pattern$")) { $pattern = regexreplace($pattern, "([^.]+?)$", "<get rs 3 0123456789>.$1"); }
directly before this line: $previewNames = $previewNames . $pattern . "<crlf>";

I'll leave it up to you to escape the string if you feel it necessary. Totally untested aircode.

wow!!! it works like a charm!!!

20240424.091401_XYplorer.jpg

Thank you so much jupe!!

I really appreciate it

But is it possible instead of appending random number at the end to something like this.. _XX sequence number based on the duplicate occurrence.

Code: Select all

20240302.033326¬PGT-N19_01.jpg
20240302.033326¬PGT-N19_02.jpg
20240302.033326¬PGT-N19_03.jpg
20240302.033326¬PGT-N19_04.jpg
---------------------------------------------------------------------------------------
20240302.074541¬PGT-N19_01.jpg
20240302.074541¬PGT-N19_02.jpg
---------------------------------------------------------------------------------------
20240302.080803¬PGT-N19_01.jpg
---------------------------------------------------------------------------------------
20240302.081347¬PGT-N19_01.jpg

Thanks again in advance for your help.

Posted: **24 Apr 2024 03:48**

Sure its possible, I was leaving that up to you though.

Anyway, since you asked, something like this should work:

Code: Select all

  $cntCol = gettokenindex(regexreplace($pattern, "(\.[^.]+?)$") . "*",  $previewNames, <crlf>, "iwc");
  if ($cntCol) { $pattern = regexreplace($pattern, "(\.[^.]+?)$", "_" . format($cntCol, "00") . "$1"); }

Replace previous suggestion with these 2 lines instead. Again, it is untested. First collision won't have index, only following, if you want it different, that's up to you to implement, I can explain how though if you ask.

Posted: **25 Apr 2024 07:03**

jupe wrote: ↑24 Apr 2024 03:48 Sure its possible, I was leaving that up to you though.
Anyway, since you asked, something like this should work:
Code: Select all
  $cntCol = gettokenindex(regexreplace($pattern, "(\.[^.]+?)$") . "*",  $previewNames, <crlf>, "iwc");
  if ($cntCol) { $pattern = regexreplace($pattern, "(\.[^.]+?)$", "_" . format($cntCol, "00") . "$1"); }
Replace previous suggestion with these 2 lines instead. Again, it is untested. First collision won't have index, only following, if you want it different, that's up to you to implement, I can explain how though if you ask.

Thanks again so much!! It really works!!

But sorry.. Is it possible to cater the scenario whereby.. The existing file already exists (previous batch renaming).

So it will come out like this.

20240424.105848_XYplorer.jpg

Is it possible to rename those automatically with the duplicate extension?

Actually I forgot that I want my filename to be this format actually:
20240302.033326¬PGT-N19~d1.jpg

Thank you so much.

Posted: **25 Apr 2024 08:03**

Let me preface this by saying I have been implementing your requests by trying to keep the required changes to the original as minimal as possible, and in one self contained add-on section, this isn't the best way of achieving what you want, and certainly not the most efficient, anyway you could try something like this, yet again it is totally untested though, it replaces previous suggestion in the same place.

Code: Select all

  $colBase  = regexreplace($pattern, "(\.[^.]+?)$");
  $extFiles = <crlf> . quicksearch("$colBase*.$extension /fn", gpc($item, "path"),, n);
  $cntCol   = gettokenindex($colBase . "*",  $previewNames . $extFiles, <crlf>, "iwc");
  if ($cntCol) { $pattern = regexreplace($pattern, "(\.[^.]+?)$","~d". $cntCol . "$1"); }

It will probably still fail under certain obscure conditions with your weird naming scheme, especially if you do things like delete ~d2 but keep ~d3. But you are going to have to learn scripting yourself if you want it to work in every imaginable scenario, I am not capable enough to keep modifying this without test files or testing.

Posted: **26 Apr 2024 22:01**

jupe wrote: ↑25 Apr 2024 08:03 Let me preface this by saying I have been implementing your requests by trying to keep the required changes to the original as minimal as possible, and in one self contained add-on section, this isn't the best way of achieving what you want, and certainly not the most efficient, anyway you could try something like this, yet again it is totally untested though, it replaces previous suggestion in the same place.
Code: Select all
  $colBase  = regexreplace($pattern, "(\.[^.]+?)$");
  $extFiles = <crlf> . quicksearch("$colBase*.$extension /fn", gpc($item, "path"),, n);
  $cntCol   = gettokenindex($colBase . "*",  $previewNames . $extFiles, <crlf>, "iwc");
  if ($cntCol) { $pattern = regexreplace($pattern, "(\.[^.]+?)$","~d". $cntCol . "$1"); }
It will probably still fail under certain obscure conditions with your weird naming scheme, especially if you do things like delete ~d2 but keep ~d3. But you are going to have to learn scripting yourself if you want it to work in every imaginable scenario, I am not capable enough to keep modifying this without test files or testing.

You're such a brilliant!!

Thanks so much!!!

Yes it really works as intended!!

Million of thanks..

XYplorer Beta Club

EXIF Conditional Rename

EXIF Conditional Rename

Re: EXIF Conditional Rename

Re: EXIF Conditional Rename

Re: EXIF Conditional Rename

Re: EXIF Conditional Rename

Re: EXIF Conditional Rename

Re: EXIF Conditional Rename

Re: EXIF Conditional Rename