提取两个字符串之间的文本

Question

如何提取两个字符串之间的文本。

例如：

x <- "ABCDName:Mr.Praveen KumarDOB"

我想摘录Mr. Praveen Kumar 。

另外，我想从头开始提取字符串，直到遇到Name:。

Answer 1

尝试

gsub('^[^:]+:|[A-Z]{1,}$', '', x)
#[1] "Mr.Praveen Kumar"

sub('Name.*', '', x)
#[1] "ABCD"

Answer 2

你可以试试看

> library(stringr)
> str_extract(x, perl("Name:\\K.*?(?=[A-Z]{2,})"))
[1] "Mr.Praveen Kumar"
> str_extract_all(x, perl("Name:\\K.*?(?=[A-Z]{2,})|.*?(?=Name:)"))[[1]]
[1] "ABCD"             "Mr.Praveen Kumar"