Extract text between two strings

Question

How can I extract text between two strings.

For eg:

x <- "ABCDName:Mr.Praveen KumarDOB"

I want to extract Mr. Praveen Kumar .

Also, I want to extract string from starting till it encounters Name:.

Answer 1

Try

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

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

Answer 2

You may try this,

> 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"