Rename File Names

[armsys]

Dear XY Script Gurus,
I seek your help.
How to accomplish the following 9 tasks to all selected files with a script (named "rename.xys"):
[01] Apply regex November (\d{1}), (\d{4}) > $2.11.0$1
[02] Apply regex November (\d{2}), (\d{4}) > $2.11.$1
[03] Apply regex December (\d{1}), (\d{4}) > $2.12.0$1
[04] Apply regex December (\d{2}), (\d{4}) > $2.12.$1
[05] Apply regex January (\d{1}), (\d{4}) > $2.11.0$1
[06] Apply regex January (\d{2}), (\d{4}) > $2.11.$1
[07] Apply regex [ ]-[ ] > [ ]
[08] Apply regex [ ][ ] > [ ]
[09] Set Attribute to non-readonly

How to hotkey the rename.xys?
Thank you for your help.

[highend]

Em,

a foreach loop, regexreplace() + attrstamp()?

I posted dozens of scripts that use the first two of them...

[armsys]

a foreach loop, regexreplace() + attrstamp()?
I posted dozens of scripts that use the first two of them...

Hi Highend,
Thanks for your tips. I'll search around.

[armsys]

If I knew how to do it, I won't ask in the first place.
Please help. Thanks.

[highend]

Code: Select all

    setting "BackgroundFileOps", 0;
    foreach($item, "<get SelectedItemsNames |>") {
        attrstamp("r", 4, $item);
        $newName = regexreplace($item, "^(Book) (November) (\d{2}), (\d{4})(\.[^.]+$)", "$1 $4.11.$3$5");
        $newName = regexreplace($item, "^(Book) (November) (\d{1}), (\d{4})(\.[^.]+$)", "$1 $4.11.0$3$5");
        // Same procedure for all other months...

        $newName = regexreplace($newName, "\s-?\s", " ");
        renameitem($newName, $item);
    }

[armsys]

Hi Highend,
My script is far simpler.

Code: Select all

global $File, $FileName, $FilePath, $FileExt;
  rename r,"November (\d{1}), (\d{4}) > $2.11.0$1";
  rename r,"November (\d{2}), (\d{4}) > $2.11.$1";
  rename r,"December (\d{1}), (\d{4}) > $2.12.0$1";
  rename r,"December (\d{2}), (\d{4}) > $2.12.$1";
  rename r,"January (\d{1}), (\d{4}) > $2.11.0$1";
  rename r,"January (\d{2}), (\d{4}) > $2.11.$1";
  rename r,"November (\d{4}) > $1.11";
  rename r,"December (\d{4}) > $1.12";
  rename r,"[ ]*-[ ]* >  ";
  attrstamp("r",4);
  }

[armsys]

The script above is named rename.xys.
How to assign a hotkey, say, ALT+R, to rename.xys?

[highend]

Code: Select all

  rename r,"January (\d{1}), (\d{4}) > $2.11.0$1";
  rename r,"January (\d{2}), (\d{4}) > $2.11.$1";

These are wrong, January != 11

Assign the script to a user defined command and the keyboard shortcut to it is in the same gui

[armsys]

Hi Highend,

These are wrong, January != 11

Thank you for taking time to go thru my script and found a serious error.
Thanks a million.

Assign the script to a user defined command and the keyboard shortcut to it is in the same gui

Got it. Thank you for perfect guidance.

[armsys]

Hi Highend,
I wish to learn more about xyscript...
What are the differences between our scripts?
Is my script anything wrong?
Thank you.

[FluxTorpedoe]

Hi’

To expand on what highend has already posted, here’s a tiny "Date converter".
It can be run on all files at once and takes care of automatically translating the months into digits, while adding a leading zero to the days or months when need be.

I quickly arranged it for your case "AnyName Month ##, ####.ext", so obviously it would need to be adjusted/strengthened if the naming scheme differs (e.g. different order, date-like digits in name, "-" instead of "," etc.).
Also there’s no non-date renaming (extra spaces, etc.). Just replace the current text $filename; line with your renaming actions.

Code: Select all

"Date converter"

	$l_months = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
	
	foreach ($filename, <get SelectedItemsNames |>) { $i=1;
		foreach ($month, $l_months) {
			$filename = regexreplace(regexreplace($filename, "\b".$month."[a-z]+\b (\d\d*), (\d{4})", "$2.".$i++.".$1"), "\b(\d)\b", "0$1");
		}
	
		text $filename; // Your action (rename, etc.)
	
	}

Note: A break/continue could be added to spare a few CPU cycles, but XY’s regex is very efficient, so…

Hope this helps,
Flux

[armsys]

Hi Flux,

It can be run on all files at once and takes care of automatically translating the months into digits, while adding a leading zero to the days or months when need be.

I'm humbled and impressed by your regex tricks.
I see you use $i to get the month number.
I see you use \b(\d)\b to construct a zero-padded 2-digit day number.
Thanks a million.

[armsys]

Hi Flux,

Code: Select all

text $filename; // Your action (rename, etc.)

Yes, it did display the correct filename.
But the filename didn't change. No action has been taken. Why?

[highend]

No action has been taken. Why?

Just replace the current text $filename; line with your renaming actions.

[armsys]

The script fails to rename the selected filenames, except the first one.

Code: Select all

setting "BackgroundFileOps", 0;
 $l_months = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
 foreach ($filename, <get SelectedItemsNames |>) { $i=1;
  foreach ($month, $l_months) {
    $NewName = regexreplace(regexreplace($filename, "\b".$month."[a-z]+\b (\d\d*), (\d{4})", "$2.".$i++.".$1"), "\b(\d)\b", "0$1");
    }                               
    renameitem($NewName, $filename);
    }