在 R 中解压缩受密码保护的 zip 文件答案

【问题标题】：Unzip password protected zip files in R在 R 中解压缩受密码保护的 zip 文件
【发布时间】：2016-10-06 12:50:08
【问题描述】：

不能在unzip (utils) 函数中指定密码。我知道的另一个功能 getZip (Hmisc) 仅适用于包含一个压缩文件的 zip 文件。

我想做这样的事情来解压缩 Windows 8 中 foo.zip 中的所有文件：

unzip("foo.zip", password = "mypass")

【问题讨论】：

也许试试system("7z x secure.7z")？见：*.com/a/28160425/680068
谢谢，我还是没搞定，但我认为你的建议给了我正确的方向（依赖于 7z 语法）。
用尝试和问题更新你的帖子，或者如果你设法解决它，你可以在下面添加你自己的答案。

标签： r windows unzip password-encryption

【解决方案1】：

我发现这个问题非常有用，但看到没有发布正式答案，所以这里是：

首先我安装了 7z。
然后我将“C:\Program Files\7-Zip”添加到我的环境路径中。
我测试了7z命令被命令行识别。
我打开 R 并输入 system("7z x secure.7z -pPASSWORD") 和相应的 PASSWORD。

我有多个压缩文件，我不希望密码显示在源代码中或存储在任何文本文件中，所以我编写了以下脚本：

file_list <- list.files(path = ".", pattern = ".7z", all.files = T)
pw <- readline(prompt = "Enter the password: ")
for (file in file_list) {
  sys_command <- paste0("7z ", "x ", file, " -p", pw)
  system(sys_command)
}

获取时会提示我输入密码，然后会循环解压缩 zip 文件。

【讨论】：

就像一个魅力，感谢您跟进此事！为了完成，您可以使用 setx PATH "%PATH%;C:\Program Files\7-Zip\" 将 7z 添加到您的环境变量中

【解决方案2】：

password <- "your password"
system(
  command = paste0("unzip -o -P ", password, " ", "yourfile.zip"), 
  wait = TRUE
)

【讨论】：

【解决方案3】：

password <- "your password"
read.table(
  text = system(paste0("unzip -p -P ", password, " yourfile.zip ", "yourfile.csv"),
    intern = "TRUE"
  ), stringsAsFactors = FALSE, header = TRUE, sep = ","
)

【讨论】：

【解决方案4】：

我发现@Kim 的回答最终对我有用，但不是第一次。我想我只是添加一些额外的链接/步骤来帮助我最终到达那里。

关闭并重新打开 R 以便识别环境路径

如果您在执行步骤 1-3 时已经打开了 R，则需要关闭并重新加载 R，以便 R 识别 7z 的环境路径。 @wush978 对这个问题的回答 r system doesn't work when trying 7zip 提供了丰富的信息。我使用 Sys.getenv("PATH") 检查环境路径中是否包含 7zip。

第 4 步。我打开 R 并使用适当的密码输入 system("7z x secure.7z -pPASSWORD")。

我实际上发现这不起作用，所以我按照这篇文章中的说明稍微修改了它，该文章还解释了如何指定输出目录https://*.com/a/16098709/13678913。

如果您已经提取了文件，系统命令会提示您选择是否要使用存档中的文件替换现有文件并提供选项 (Y)es / (N)o / (A)lways / (S)kip all / A(u)to rename all / (Q)uit?

所以修改后的第4步（Y允许替换文件）

system("7z e -ooutput_dir secure.zip -pPASSWORD" Y)

将其完全作为一组修改后的说明

安装 7z。
使用菜单选项将“C:\Program Files\7-Zip\”添加到我的环境路径（此处为说明https://www.opentechguides.com/how-to/article/windows-10/113/windows-10-set-path.html）
关闭并重新打开 R 工作室。输入 Sys.getenv("PATH") 以检查环境中识别的 7zip 的路径（根据 @wush978 对问题 r system doesn't work when trying 7zip 的回答）
在控制台中输入system("7z e -oC:/My Documents/output_dir secure.zip -pPASSWORD") 并使用适当的密码（按照此处的说明https://*.com/a/16098709/13678913）

这里是@Kim的整洁功能的修改版本（包括指定的输出目录和检查现有文件）：

我的主脚本

output_dir <- "C:/My Documents/output_dir " #space after directory name is important
zippedfiles_dir <- "C:/My Documents/zippedfiles_dir/"

file_list <- paste0(output_dir , zippedfiles_dir , list.files(path = zippedfiles_dir, pattern = ".zip", all.files = T))

source("unzip7z.R")

源文件 unzip7z.R 中的代码

pw = readline(prompt = "Enter the password: ")
for (file in file_list) {
  csvfile <- gsub("\\.zip", "\\.csv", gsub(".*? ", "", file)) #csvfile name (removes output_dir from 'file' and replaces .zip extension with .csv)

#check if csvfile already exists in output_dir, and if it does, replace it with archived version and if it doesn't exist, continue to extract.
  if(file.exists(csvfile)) { 
     sys_command = paste0("7z ", "e -o", file, " -p", pw, " Y")
  } else {
     sys_command = paste0("7z ", "e -o", file, " -p", pw)
  } 
  system(sys_command)
}

【讨论】：