0

我有一个文件夹，其中包含数百个 txt 文件，其中包含每个公司代码/年/月组合的特定财务数据（对于由文件前面的四位数字指定的特定公司）。我需要一种方法来遍历所有这些文件并为每个文件创建一个 xlsx 以用于审计目的。

例如，该文件夹将包含这样的 txt 文件：

8800-2015-01.txt
8800-2015-02.txt
......and many more like this......

所有文件都有完全相同的列、列名等。我需要读入它们并为每个文件创建 xlsx 文件并将它们保存到同一个文件夹中。

在上面的示例中，此文件夹将包含 txt 和 xlsx 文件，如下所示：

8800-2015-01.txt
8600-2015-02.txt
8800-2015-01.xlsx
8800-2015-02.xlsx

我可以使用以下代码编写代码来列出特定模式的所有文件：

library(writexl)
setwd(path)

list = list.files(pattern = flob2rx('*8800*.txt*')

然后可以做这样的事情：

txt_files <- lapply(list, function(x) read_delim(x,
                                                 "|",
                                                 escape_double = FALSE,
                                                 trim_ws = TRUE,
                                                 skip = 6))

但是，您将如何循环保持每个文件的相同命名约定并将所有 xlsx 写入同一个文件夹？

编辑以显示我所做的。提供的解决方案给了我想法，并导致我使用的最终结果。我还必须进行一些过滤并选择原始帖子中没有的特定列。

library(writexl)

setwd(path)

file_list = list.files(pattern = glob2rx('*880*.TXT*'))

for (i in file_list){
  write_xlsx(
    filter(
      select(
        read_delim(i,
                   "|",
                   skip = 6,
                   escape_double = FALSE,
                   trim_ws = TRUE),
        "col1","col2",......),
      !is.na(col1) & col2 != 'something'),
    paste0(unlist(strsplit(i,"\\."))[1], ".xlsx"))
}
4

2 回答 2

2

我将假设您的文件的列用制表符分隔，即 R 中的 '\t'。

要编写 xlsx，您将需要install.packages("xlsx"). 我不熟悉writexl

那么你可以：

library(xlsx)
setwd(path)
files=dir(pattern="*.txt")
for(i in files){
   write.xlsx(read.csv(i,sep="\t"),paste0(unlist(strsplit(i,"\\."))[1],".xlsx"))
}
于 2019-02-01T18:02:36.190 回答
1

或者，您可以同时做所有事情。首先创建一个data.frame包含有关文件的所有必要信息的文件：

files_inp <- list.files(pattern ='.txt*')
files_out <- gsub(x = files_inp, pattern = ".txt", replacement = ".xlsx")

df_files <- data.frame(files_inp = files_inp, 
                       files_out = files_out, 
                       stringsAsFactors = FALSE)

现在您知道所有输入名称和所有输出名称。然后你可以创建一个函数来读取一个txt并同时保存一个xlsx：

read_and_save <-function(files_dir){
  file_inp <- files_dir[1]
  file_out <- files_dir[2]

  df <- read.table(file = file_inp, sep = "|")
  write_xlsx(x = df, path = file_out)
}

我正在使用read.table，因为我没有你的数据集。现在您可以将此功能应用于您拥有的整个文件集：

apply(X = df_files, MARGIN = 1, FUN = read_and_save)
于 2019-02-01T18:19:54.317 回答