rename multiple files by file.rename or other functions

On 28 Sep 2017, at 12:57 , Eric Berger <ericjberger at gmail.com> wrote:

Hi John,
Thanks to Jim for pointing out the file.rename() function. You can try this:

# define the filename templates
strIn  <- "XYZW--Genesis_ABC.mp3"
strOut <- "01Gen--.mp3"

# create the strings "01", "02", ..., "50"
v <- sapply(1:50, function(i) sprintf("%02d",i) )

# perform all the file renames
for ( s in v ) { file.rename(sub("--",s,strIn), sub("--",s,strOut) ) }

HTH,
Eric

On Thu, Sep 28, 2017 at 1:25 PM, Jim Lemon <drjimlemon at gmail.com> wrote:

Hi John,
Maybe this:

filenames<-c("XYZW01Genesis_ABC.mp3","XYZW02Genesis_ABC.mp3")
for(filename in filenames) {
filefirst<-sapply(strsplit(filename,"[.]"),"[",1)
fileno<-sub("_","",gsub("[[:alpha:]]","",filefirst))
file.rename(filename,paste("01Gen",fileno,".mp3",sep=""))
}

Jim

On Thu, Sep 28, 2017 at 7:37 PM, John <miaojpm at gmail.com> wrote:

Hi,

  I have 50 files whose names are

XYZW01Genesis_ABC.mp3
XYZW02Genesis_ABC.mp3
.......
XYZW50Genesis_ABC.mp3

  As you can tell, the only difference across the files are 01, 02,
03,....50.

  I would like to rename them to
01Gen01.mp3
01Gen02.mp3
.......
01Gen50.mp3

 If I store them in one folder and write an R code in that folder, how

can

it be done?

  Thanks,

John

       [[alternative HTML version deleted]]

posting-guide.html

	[[alternative HTML version deleted]]