使用R语言批量修改文件名

在R语言默认目录下有一文件夹test，其下有三个文件，分别是test1.txt， text2.txt, text3.txt， 现在要对这三个文件进行批量的修改。主要使用到了for 循环和sub()字符替换函数。思路是先通过list.files()函数将test文件夹下面的三个文件名读至变量，然后通过for循环来实现批量修改文件名。

1. 修改文件扩展名

folder<-setwd('~/test')
files<-list.files(folder)
  for (f in files){
  newname<-sub(".txt",'.xls',f)
  file.rename(f,newname)
}
dir()

 显示结果：

[1] "text1.xls" "text2.xls" "text3.xls"

2. 删除文件扩展名

 folder<-setwd('~/test')
files<-list.files(folder)
  for (f in files){
  newname<-sub('.xls','',f)
  file.rename(f,newname) 
}
dir()

显示结果：

[1] "text1" "text2" "text3"

 3. 增添文件扩展名

这里我们用到一个正则表达式，用‘$’代替字符的尾部，将字符尾部替换为'.doc'

folder<-setwd('~/test')
files<-list.files(folder)
  for (f in files){
  newname<-sub('$','.doc',f)
  file.rename(f,newname)
}
dir() 

输出结果：

 "text1.doc" "text2.doc" "text3.doc" 

4.  修改文件名中的字符

folder<-setwd('~/test')
files<-list.files(folder)
  for (f in files){
  newname<-sub('xt','ab',f) #将原文件中的字符xt，替换为字符ab
  file.rename(f,newname)
}
dir()

输出结果：

[1] "teab1.doc" "teab2.doc" "teab3.doc"

5. 删除文件名中的数字

把实验目录下的文件分别修改为tab.doc,teb.doc, tdb.doc，用“\\d”正则表达式代替文件中的数字。

folder<-setwd('~/test')
files<-list.files(folder)
  for (f in files){
  newname<-sub('\\d','',f) 
  file.rename(f,newname)
}
dir()

输出结果：

[1] "tab.doc" "tdb.doc" "teb.doc" 

参考文章：

1.R语言文件目录操作 https://www.omicsclass.com/article/338

2.R语言字符串替换 https://www.cnblogs.com/emanlee/p/4464018.html