我在處理 R 中的檔案方面沒有經驗！所以請保持外邦人。
我有一個看起來像這樣的pdf：
我想僅從該文本中提取紅色矩形中的資料并將其保存到資料框中（我有數千個此類 pdf）。
到目前為止，我設法讀入了資料并得到了這個->
我的代碼：
library(tidyverse)
library(pdftools)
library(here)
PDF_x <- pdf_text(here("pdf_project/example_for_pdf.pdf")) %>%
str_split("\n")
這使：
[[1]]
[1] " BlaBla heaeder"
[2] " Mr. Bombastic XXXXXXXXXXXXX"
[3] " Text1"
[4] " Text2"
[5] " Text3,"
[6] " Text4"
[7] " Text5"
[8] " Text6"
[9] " Text7"
[10] " Text8"
[11] " Blabla, 12.01.2021"
[12] " bobo /"
[13] " blabla: 111111111"
[14] " Micheal Jackson, justo duo dolores et ea rebu"
[15] " accusam: justo duo dolores et ea rebu"
[16] " dolores: Bla Bla Bla"
[17] " BLABLA_1"
[18] " X-Date: 17.07.2021"
[19] " 1. Master1 Tim"
[20] " 1. Master2 Jack"
[21] " 1. Master3 Monika"
[22] " 1. Master4 Jill"
[23] " Header1"
[24] " Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore"
[25] " magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd"
[26] " gubergren, no sea takimata"
[27] " Header2"
[28] " Lorem ipsum dolor sit amet, consetetur sadipscing elitr."
[29] " Header3"
[30] " Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore"
[31] " magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum."
[32] " Header4"
[33] " Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna"
[34] " aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea"
[35] " takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy"
[36] " eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo"
[37] " dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet."
[38] "ipsum dolor sit a sed diam nonumy eirmod tempor invidunt ut labore et dolore magna Master of Disaster Tim"
[39] "ipsum dolor sit a invidunt ut labore et dolore magna Chief master"
[40] " ipsum dolor sit a invidunt ut labore et dolore magnainvidunt ut labore et dolore magna 2s"
[41] ""
[[2]]
[1] " blablablablablablab" " invidunt ut labore et dolore magna"
[3] "invidunt ut labore et dolore magna..at" ""
我非常感謝任何指導幫助！
uj5u.com熱心網友回復：
作為str_split/strsplit回傳 a list，提取第一個list元素 ( )，在洗掉前導/滯后空格 ( ) 以及 'Header4' 的位置后，找到以 ( ) 'X-Date:'[[1]]開頭的行的位置索引（并減去 1 到獲取上一行位置），獲取序列（）以子集向量元素^trimws:
v1 <- trimws(PDF_x[[1]])
v1[grep("^X-Date:", v1):(grep("Header4", v1)-1)]
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/493623.html
上一篇：EclipseIvyDE托管庫未匯出到可運行的JAR檔案中
下一篇：在一個PDF中按組繪制多個線圖