我有多个mp3文件,我想重命名以组织它们。他们中的大多数都有类似的格式:数字0,后跟数字(1:9),空格,然后是mp3文件名。他们看起来像这样:
head(files)
[1] "01 50 Cent - Candy Shop.mp3"
[2] "01 50 Cent - Fresh '83.mp3"
[3] "01 Akon ft Eminem - Smack That.mp3"
[4] "01 Akon ft Snoop Dog - I Wanna Love You.mp3"
[5] "01 Aldo Ranks - Baila.mp3"
[6] "01 Aldo Ranks - El Alicate.mp3"
或
head(files[1098:1102])
[1] "1-01 Spragga Benz - She Nuh Ready Yet.mp3"
[2] "1-01 Tal Bachman - Darker Side Of Blue.mp3"
[3] "1-01 When Love Takes Over (feat. Kelly Rowland).mp3"
[4] "1-02 Big Boy - Voz Sensual.m4a"
[5] "1-02 Come Out And See.mp3"
为简单起见,我的工作目录是包含这些文件的文件夹。
什么是重命名这些文件的有效方法?可能使用substr
,grep
或其他一些正则表达式?我应该写一个函数吗?
我尝试将文件名存储在名为files
的变量中,但效率不高,因为对元素的更改未反映在我的工作目录中。
任何建议>
答案 0 :(得分:1)
我不是一个正则表达式专家,远非它,但这个很简单。
files <-
c("01 50 Cent - Candy Shop.mp3", "01 50 Cent - Fresh 83.mp3",
"01 Akon ft Eminem - Smack That.mp3", "01 Akon ft Snoop Dog - I Wanna Love You.mp3",
"01 Aldo Ranks - Baila.mp3", "01 Aldo Ranks - El Alicate.mp3"
)
new_names <- sub("^0[[:digit:]] ", "", files)
new_names
然后,要实际重命名它们,请使用file.rename
。
file.rename(from = files, to = new_names)