重命名批处理文件，并在下划线前添加前导零

问题描述

我有多个文件Batch1_00000001到Batch9999_00000001包含以下文件名：

Batch1_00000001.pdf
Batch10_00000001.pdf
Batch100_00000001.pdf
Batch1000_00000001.pdf

首先，我想删除单词Batch并将字母b添加到文件名的前面。在那之后，我想在一开始最多添加三个前导零。这样b1_00000001.pdf就变成了b0001_00000001.pdf，就像这样：

b0001_00000001.pdf
b0010_00000001.pdf
b0100_00000001.pdf
b1000_00000001.pdf

有人能解决所有问题吗，或者制定一个正则表达式rename解决方案？预先感谢！

解决方法

您可以尝试：

cols <- grep('Date',names(df))
df$check <- apply(df[cols],1,function(x) all(diff(as.Date(x)) > 0))