Соответствие шаблону для извлечения условий сопоставления строк

Question

Я пытаюсь извлечь строку, соответствующую шаблону в строке. Для того, чтобы иметь смысл:

x <- "this.is.fairly//Whatit.is/path/IDbeginUntilhere7/seenit" 

Цель состоит в регулярном выражении является возвращение: IDbeginUntilhere. Я попытался это:

str <- regmatches(x, gregexpr("^I.*7$", x)) 

, который я понимаю, что это не работает, так как I находится в середине строки. Вопрос может быть слишком простым, но я был бы признателен за любую помощь, которую я могу получить.

Answer 1

Понятно, что основной проблемой является якорь: начало строки ^ и конец строки $.

Вторичная проблема заключается в том, что жадная точке также будет соответствовать по / разграниченным подразделам (т.е. будет соответствовать всему Id7/Not-to-match7 вместо Id7).

Вы должны использовать что-то вроде

str <- regmatches(x, gregexpr("I[^/]*7", x)) 

См regex demo

Если вы не нуждаетесь в 7, вам нужно использовать смотреть вперед, и Perl, как регулярное выражение:

str <- regmatches(x, gregexpr("I[^/]*(?=7)", x, perl=TRUE)) 

См. another demo