在两个单词 A 和 B 之间提取一个 word1

Question

我想在两个单词 A 和 B 之间提取一个 word1，但我不想在 word1 前后使用空格。而且我不想占用一个新单词 B 的出现。

例子：

library(stringr)
pattern <- "(?<=wA).*(?=wB)"
str1 <- "qzpdjpqz wA    Hello world !                   wB  edjifdjiq"
str2 <- "qzpdjpqz wA    Hello world !                   wB  wB"

str_match_all(str1, pattern)  
str_match_all(str2, pattern)

str11 <- "qzpdjpqz wA    word1                   wB  edjifdjiq\n 


qzpdjpqz wA                    word2                   wB 
wB\n

qzpdjpqz gregegt wA    word3                   wB  wB\n rsgeef vfsfeqz 

wA    word4 wB                 "

期望的结果 -> “Hello world！”

Answer 1

这是一个基本 R 选项，sub 删除 'wA' 之后和 'wB' 之前的空格。

str1 <- "qzpdjpqz wA    Hello world !                   wB  edjifdjiq"
str2 <- "qzpdjpqz wA    Hello world !                   wB  wB"

sub('.*wA\\s+(.*?)\\s+wB.*', '\\1', c(str1, str2)) 
#[1] "Hello world !" "Hello world !" 

Answer 2

如果已知空格的数量，请计算它们。

stringr::str_match_all(list(str1, str2), '(?<=wA\\s{4}).*(?=\\s{19}wB.+)')
# [[1]]
# [,1]           
# [1,] "Hello world !"
# 
# [[2]]
# [,1]           
# [1,] "Hello world !"

否则试试regmatches(regexpr())。

sapply(list(str1, str2), \(x) 
       trimws(regmatches(x, regexpr('(?<=wA).*(?=wB.+)', x, perl=TRUE))))
# [1] "Hello world !" "Hello world !"