从 .txt 文件中读取值并将其写入输出文件

Question

我正在尝试从文件夹中读取文件，对它们进行计数，然后使用带有长度的 for 循环遍历每个文件，使用 cat 函数，对于第一个文件，将输出放入 output.txt 像：

• file1：猫输出
• file2：猫输出

我的代码如下：

entry = list.files(path = "//Users//michael/Desktop//test_folder", full.names = TRUE, recursive = TRUE)
output = list.files(path = "//Users//michael/Desktop//list.txt", full.names = TRUE, recursive = TRUE)
len = length(entry)
for(i in 1){
cat(entry,file="//Users//michael/Desktop//list.txt", sep="\t", append=TRUE)
cat("\n",file="//Users//michael/Desktop//list.txt", append=TRUE)
}

我也尝试过使用for(i in 1:len)，但这只会使这个 x3 更长，因为它会在每次迭代 'i' 时都这样做。

我的 test_folder 看起来像：

• 文件 1.txt 中的值 (John, Michael, Fabian ) 每一个都在一个新行中 (\n)
• 文件 2.txt 具有相似的值

总结一下：
我正在尝试加载我的 test_folder，计算文件数（在我的情况下为 2），遍历 for 循环中的每个文件和 cat 它们，这样我就可以看到里面有什么，然后在我的 list.txt（输出）中打印值像这样的格式：

• file1：猫输出
• file2：猫输出

我的错误在哪里？为了使这项工作正常进行，输出/更改的代码应该是什么样子？

Answer 1

好的，如果我理解正确的话，您想从一个目录中打开多个 .txt 文件，然后连接它们的内容。我建议使用list.files（就像你已经使用的那样）然后lapply 和readLines 打开这些文件。

获取 .txt 文件的位置。这会生成一个列表，列表中的每个元素都是一个目录（文件位置）：

dirs <- list.file(path="path/to/input/directory", full.path=TRUE)

使用 lapply 遍历列表的元素（如您的 for 循环）并使用函数 readLines 打开它们。这将生成一个与dirs 具有相同数量元素的列表，但这次它包含文本文件的内容：

myfiles <- lapply(dirs, readLines)

最后，将列表中的这些元素（每个元素包含一个文本文件的内容）组合成一个对象，您可以将其保存为单个文本文件。

dat <- do.call("rbind", myfiles) # note rbind might need to be replaced with "c" depending on the contents of the .txt files

对不起，如果我遗漏了什么或误解了。请发表评论，我会做出相应调整。