使用pdftools的r脚本pdf到excel

Question

我使用pdftools将pdf转换成excel。我想要提取下面的表values.The代码，但是它将所有的东西都粘贴在行中(我的意思是，这些值没有在不同的颜色中分开--我唯一想要的是表格，就像它在pdf(数据和值)中那样)。。有人能帮忙处理密码吗？也许我们需要一个分离器？我希望得到一些帮助！下面的3张图片：- Excel输出，预期的Excel输出和我正在使用的PDF。

library(pdftools)
tx<-pdf_text("Path")
tx2<-strsplit(tx,"\n")
library(xlsx)
write.xlsx(tx2,file="ds.xlsx")

Answer 1

试试这个..。

library(pdftools)
library(stringr)
library(xlsx)

tx <- pdf_text("Path")
tx2 <- unlist(str_split(tx, "[\\r\\n]+"))
tx3 <- str_split_fixed(str_trim(tx2), "\\s{2,}", 5)

write.xlsx(tx3, file="ds.xlsx")