shorten files based on content in a range

[thinksuccess]

Hi,

I have a list of image files that were auto generated and thus contain letters and or numbers that should not be there.

Here is an example of what I want to be able to do.

Rename: AT4040_t_16140.jpg

To: AT4040.jpg

Basically the "_t_and anything betweeen the .jpg is what I want to get rid of.


Thanks

 

[DRJ]

lets say the file name was in A1 then type this in B1

=LEFT(A1,FIND("_",A1,1)-1)&".jpg"

This should get you started.

-Jacob

 

[Greg Truby]

The other part you might need is the Name Statement from VBA. From VB Help:
Name Statement Example
This example uses the Name statement to rename a file. For purposes of this example, assume that the directories or folders that are specified already exist. On the Macintosh, “HD:” is the default drive name and portions of the pathname are separated by colons instead of backslashes.

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names.
Name OldName As NewName ' Rename file.

OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' Move and rename file.

 

[thinksuccess]

Thanks DRJ! That worked perfect!

Now if I could just figure out how to actually rename the images on the server

 

[DRJ]

See if Greg Truby's solution helps you. If not we can come up with something else.

 

[thinksuccess]

The problem is all my images are auto generated on a unix server so I would need some type of rename script. Actually the rename script I use now just for lowercase of the extensions is:

#!/usr/bin/perl -w
#
#

chomp($L = `ls -1 *.jpg *.JPG`);

@fls = split(/\n/, $L);

foreach $i (@fls) {
($name, $ext) = split(/\./, $i);
rename($i, uc($name).".".lc($ext));
}

If this could be modifed to do what I need that would be great!

I know this is an excel board but you guys are so smart I'm confident someone can come up with something.

Thanks Again!