R語言——批量重命名文件

• 前言
• 源代碼
• 樣例
• 小結

---

前言

針對指定文件夾里的文件，并依據參考表批量重命名文件。

---

提示：以下是本篇文章正文內容，下面案例僅供學習參考

源代碼

# 批量重命名文件 # 批量重命名不可以撤銷，請慎重 # 參考excel表中必須含有舊名、新名兩個字段名以及相應的內容 # WorkingDirectory -------------------------------------------------------- pkg <- c('dplyr', 'openxlsx', 'stringr', 'pbapply') sapply(pkg, library, character.only = T) #加載相應的包 options(stringsAsFactors = F) choose.dir(caption = '請選擇含有待重命名的目標文件夾：') %>% setwd() #選擇含有待重命名的目標文件夾 da1 <- read.xlsx(choose.files(caption = '用于重命名文件的參考excel表：')) #選擇用于重命名文件的參考excel表 # rename ------------------------------------------------------------------ target_1 <- getwd() t_file_1 <- data.frame(old = list.files(target_1), new = NA) t_file_1$v1 <- t_file_1$old %>% str_remove('\\.[^\\.]\\w+$') t_file_1$v2 <- t_file_1$old %>% str_extract('\\.[^\\.]\\w+$')# 檢查 a <- t_file_1$v1 %>% setdiff(da1$舊名) if(length(unique(t_file_1$v1)) != length(unique(da1$舊名))) warning('Error: 所選文件夾里文件名稱與excel表中去重的舊名稱長度不一致') if(length(a) != 0) warning('Error: 所選文件夾里含有excel表中未聲明的舊名稱，如——' %>% paste0(a %>% paste(sep = '，')))t_file_1$new <- t_file_1$v1 %>% match(da1$舊名) %>% da1$新名[.] t_file_1$new <- t_file_1$new %>% paste0(t_file_1$v2) t_file_1 %>% select(old, new) %>% pbapply(1, function(df) file.rename(paste0( target_1,'/', df[1] ) , paste0( target_1,'/' ,df[2] )))

樣例

用于重命名的參考表樣式：

重命名前：

重命名后：

小結

R語言——批量重命名文件案例如上所述。有問題的小伙伴可Email我，郵箱地址：simozr@qq.com。

總結

以上是生活随笔為你收集整理的R语言——批量重命名文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。