R语言——文件夹操作【名称合并，替换，增加】

R语言实现文件夹常见操作包括合并文件，文件名替换，增加，删除字符等操作。

要点

sub函数，for循环

1.实现读取文件后，替换文件后缀名

folder<-setwd("C:\\Users\\14215\\Desktop\\san")
files<-list.files(folder)
for (f in files){
  newname<-sub(".webp",'.png',f)
  file.rename(f,newname)
}
dir()
##图片会重新命名，格式从之前的.web变成.png后缀命名格式。

2.批量替换文件名

folder<-setwd("C:\\Users\\14215\\Desktop\\san - 副本")
files<-list.files(folder)
files <- file.rename(files,c(paste0(1:31,".png")))  # 重命名

##图片会重新命名，从1-31序列命名。示例格式："1.png"

3.文档末尾增加（或删减）字符代码

getwd()
setwd("E:\\0000\\0001\\2022\\Process\\12月份")

##实现读取文件后，替换文件后缀名
folder<-setwd("E:\\0000\\0001\\2022\\Process\\12月份")
files<-list.files(folder)
for (f in files){
  newname<-paste0(f,"【】")
  file.rename(f,newname)
}
dir()
##所有文件会在原来命名基础上，增加【】。示例："aaa"变成"aaa【】"

2022.2.26 刚刚发现新问题

如图，错误的展示

image.png

思考?

如何变成下图?

image.png

解决方法：
直接修改名字。
那万一有1000个文件怎么办。
我的思路。

先替换.xlsx【】为空，然后在用paste0函数加上"【】.xlsx"就解决了。

image.png

files <- "aaaaaa.xlsx【】"
files
newname<-sub(".xlsx【】","",files)
newname
paste0(newname,"【】.xlsx")