R语言实现文件夹常见操作包括合并文件,文件名替换,增加,删除字符等操作。
要点
sub函数,for循环
1.实现读取文件后,替换文件后缀名
folder<-setwd("C:\\Users\\14215\\Desktop\\san") files<-li(folder) for (f in files){ newname<-sub(".webp",'.png',f) (f,newname) } dir() ##图片会重新命名,格式从之前的.web变成.png后缀命名格式。
2.批量替换文件名
folder<-setwd("C:\\Users\\14215\\Desktop\\san - 副本") files<-li(folder) files <- (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<-li(folder) for (f in files){ newname<-paste0(f,"【】") (f,newname) } dir() ##所有文件会在原来命名基础上,增加【】。示例:"aaa"变成"aaa【】"
2022.2.26 刚刚发现新问题
如图,错误的展示
思考?
如何变成下图?
解决方法: 直接修改名字。 那万一有1000个文件怎么办。
我的思路。
先替换.xlsx【】为空,然后在用paste0函数加上"【】.xlsx"就解决了。
files <- "aaaaaa.xlsx【】" files newname<-sub(".xlsx【】","",files) newname paste0(newname,"【】.xlsx")
有其他好的方法,欢迎在评论区交流。