Question

我正在尝试在操作系统的同一文件夹中批量重命名许多文件。

我有一个包含两个变量的数据集：oldname和newname。

数据集中的文件名比实际文件多，因此需要重命名，因此我想构建一些与文件与数据集中的观测值匹配的文件，重命名匹配的文件，然后将其移动到新位置

例如，我在一个位置上有三个文件：

filepath/to/my/files/file1.jpg
filepath/to/my/files/file2.jpg
filepath/to/my/files/file3.jpg

具有字符串变量的数据集：

Dataset
     newname     oldname    
a    pink        files/file1.jpg
b    blue        files/file4.jpg
c    purple      files/file6.jpg
d    green       files/file3.jpg
e    red         files/file2.jpg

这是程序的期望输出：

filepath/for/matches/pink.jpg
filepath/for/matches/red.jpg
filepath/for/matches/green.jpg

我需要使用!运算符来实现我想要的吗？

编辑：

到目前为止，我已经有了一种移动火柴的方法，但没有重命名它们的方法：

global dir "/filepath"
global old "$dir/to/my/"
global new "$dir/for/matches"
ssc install mvfiles

preserve 
keep if oldname!=.
foreach i in oldname{
    mvfiles, infolder($old) outfolder($new) match(substr(`i',6,9))
}
restore

Answer 1

不一定。您只需使用copy命令即可实现所需的功能。

以下方法应该起作用：

clear

input str1 letter str10 newname  str15 oldname    
"a"    "pink"        "files/file1"
"b"    "blue"        "files/file4"
"c"    "purple"      "files/file6"
"d"    "green"       "files/file3"
"e"    "red"         "files/file2"
end

local inpath "filepath/to/my/files/"
local outpath "different/filepath/for/matches/"
local files : dir "`inpath'" files "*.jpg"

local obs = _N

foreach fil of local files {
    forvalues i = 1 / `obs' {
        local oldname = oldname[`i']
        if substr("`fil'", 1, strpos("`fil'", ".") - 1) == substr("`oldname'", 7, .) {
            local newname = newname[`i']
            copy "`inpath'`fil'" " `outpath'`newname'.jpg"
        }
    }
}

只需用所需的路径替换本地宏inpath和outpath。

请注意，如果您还希望在复制文件后删除该文件，则只需在copy命令之后添加以下内容：

erase "`inpath'`fil'"

自动重命名文件

1 个答案: