如何使用函数rbind散布在许多不同的zip文件中的类似的CSV文件？

发布于 2025-02-06 17:46:59 字数 861 浏览 2 评论 0原文

考虑一个包括许多ZIP文件的文件“ C：/ZFILE”。

现在，考虑到这些ZIP中的每一个都包含许多CSV，其中一个特定的CSV名为“ name.csv”，所有这些分散的“ name.csv”都被命名和结构化（即相同的列）。

如何打开所有这些分散的CSV？

下面的脚本允许这一点，但是功能更合适。

如何做？

谢谢

zfile <- "C:/ZFILE"
zlist <- list.files(path = zfile, pattern = "\\.zip$", recursive = FALSE, full.names = TRUE)
zlist # list all zip from the zfile file
zunzip <- lapply(zlist, unzip, exdir = zfile) # unzip all zip in the zfile file (may takes time depending on the number of zip)
library(data.table) # rbindlist & fread
csv_name <- "NAME.CSV"
csv_list <- list.files(path = zfile, pattern = paste0("\\", csv_name, "$"), recursive = TRUE, ignore.case = FALSE, full.names = TRUE)
csv_list # list all 'NAME.CSV' from the zfile file
csv_rbind <- rbindlist(sapply(csv_list, fread, simplify = FALSE), idcol = 'filename')

原文

Consider one file 'C:/ZFILE' that includes many zip files.

Now, consider that each of these zip includes many csv, among which one specific csv named 'NAME.CSV', all these scattered 'NAME.CSV' being similarly named and structured (i.e., same columns).

How to rbind all these scattered csv?

The script below allows that, but a function would be more appropriate.

How to do this?

Thanks

zfile <- "C:/ZFILE"
zlist <- list.files(path = zfile, pattern = "\\.zipquot;, recursive = FALSE, full.names = TRUE)
zlist # list all zip from the zfile file
zunzip <- lapply(zlist, unzip, exdir = zfile) # unzip all zip in the zfile file (may takes time depending on the number of zip)
library(data.table) # rbindlist & fread
csv_name <- "NAME.CSV"
csv_list <- list.files(path = zfile, pattern = paste0("\\", csv_name, "quot;), recursive = TRUE, ignore.case = FALSE, full.names = TRUE)
csv_list # list all 'NAME.CSV' from the zfile file
csv_rbind <- rbindlist(sapply(csv_list, fread, simplify = FALSE), idcol = 'filename')

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

爱本泡沫多脆弱 2025-02-13 17:47:01

您可以尝试此类函数（您可以将UNZIP调用直接传递到cmd data.table :: fread（））

get_zipped_csv <- function(path) {
  fnames = list.files(path,full.names = T)
  rbindlist(lapply(fnames, \(f) fread(cmd = paste0("unzip -p ",f))[,src:=f]))
}

的用法：

get_zipped_csv(path = "C:\ZFILE\")

You can try this type of function ( you can pass the unzip call directly to the cmd param of data.table::fread())

get_zipped_csv <- function(path) {
  fnames = list.files(path,full.names = T)
  rbindlist(lapply(fnames, \(f) fread(cmd = paste0("unzip -p ",f))[,src:=f]))
}

Usage: