导入多个txt文件并为每个文件写入具有相同名称的单个xlsx文件

Question

我有一个文件夹，其中包含数百个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"))
}

Answer 1

我将假设你的文件用tab分隔列，即R中的'\ t'。

写xlsx你需要qazxsw poi。我不熟悉qazxsw poi

那你就可以：

install.packages("xlsx")

Answer 2

或者，您可以同时执行所有操作。首先创建一个包含有关文件的所有必要信息的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"))
}

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

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)

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

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)
}