我们有时候会遇到多个txt文件，为了方便统一编辑需要将这些txt文件整合到一个文件当中，。如果文件少还好办些，粘粘贴贴就完事；如果有几百个上千个，这么干就崩溃掉了。如果用下面的方法就可以拼合多个txt文件成一个docx文件，这就方便多了。
rm(list = ls())
setwd("./文档/散装txt文件")
library(tidyverse)
library(readtext)
library(officer)
#列出该目录下所有文件
dir = list.files()
#读取dir长度，也就是文件夹下的文件个数
n = length(dir)
#读入第一个文件内容
merge.data = readtext(file = dir[1])
#循环从第二个文件开始读入所有文件，并组合到merge.data变量中
for (i in 2:n){
new.data = readtext(file = dir[i])
merge.data = paste0(merge.data,"\r\n",new.data)
}
#输出成docx文件
doc_1 <- read_docx()
doc_1 <- body_add_par(doc_1,merge.data)
print(doc_1, target ="目标文档.docx")
网友评论