Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[jkrzok]

IHaveSeveralHundredFilesNamedSomethingLikeThis

I would like to Have Several Hundred Files Named Something Like This.

Does anyone know of anyway to batch seperate words in a file name based on the case of the letters? The renaming software I'm familiar with can't do it. If it can be done in MC I'd be thrilled but I'm willing to look to other software (hopefully free) to do the job.

[dcwebman]

I am not much of an expert with regular expressions but Bulk Rename Utility (http://www.bulkrenameutility.co.uk/) supports them and I would guess that with regular expressions you could do what you want.

[KingSparta]

Does anyone know of anyway to batch separate words in a file name based on the case of the letters?

I Actually Made A Plug-In Once To Do This, It Was Part Of Another Program I Called The Option De-Scrunching.

[MrC]

Or: http://www.publicspace.net/windows/BetterFileRename/index.html

[KingSparta]

Or: http://www.publicspace.net/windows/BetterFileRename/index.html

I don't see where that program addresses the users question.

[MrC]

You're correct - I misread the request.  To atone for my sins,

1) download and install the free ActivePerl :  http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.819-MSWin32-x64-267479.msi

2) Copy and paste the following script to a text file:

------- cut -----------
if ($#ARGV <= 0) {
   $mydir =  ".";
} else {
   $mydir = $ARGV[0];
}

print "Rename files in directory $mydir (y/n) ?\n";
$answer = <STDIN>;
chomp $answer;
exit if ($answer =~ /^[nN]/);

print "Renaming files from directory: $mydir\n";
opendir(THISDIR, $mydir) or die "Can't open directory $mydir: $!";
@allfiles = grep { $_ ne '.' and $_ ne '..' and $_ ne "rename.pl"} readdir THISDIR;
closedir THISDIR;

foreach (@allfiles) {
    my $save = $_;
    if (-e $save) {
        s/([A-Z])([a-z]*)/$1$2 /g;
        s/ (\..*)?$/$1/;
        print "Renaming \"$save\" to \"$_\"\n";
        rename "$save", "$_";
    }
}
print "Enter to exit\n";
$answer = <STDIN>;
------- cut -----------

3) Rename the text file to "rename.pl" and place this into your folder with the files you want to rename.
4) Double click the file to rename all the files in the directory as per your request.

Do this on a copy of a couple of files first to be sure its what you want.  There is no undo!

[KingSparta]

Your Sins Are Forgiven My Son

[jkrzok]

My space bar thanks you.

My near-sighted eyes thank you.

And I thank you all; much drudgery avoided.

[MrC]

Glad it worked out ( I presume!).

[ThoBar]

Any vbscript / jscript bunnies out there want to write a version that can be run via the native windows script host?

i would if i could, but i cant so i wont. may still try though 

[KingSparta]

I will Add It To My New Project.