Как извлечь текст в диапазоне?

Question

У меня есть например:

Text=‘ Text1. Text2(Gino).Text(Ant)text. Text4. Text(Fi).’

Желаемый вывод:

Text=‘Text2(Gino). Text(Ant)text. Text(Fi)’

Answer 1

Похоже, вам нужны только те части текста, которые содержат круглые скобки, а части разделены точками.

Попробуйте это регулярное выражение:

\w+\(\w+\)\w*\.\s*

Поиск всех совпадений и присоединениевсе они будут производить желаемую строку.

Объяснение:

Регулярное выражение соответствует некоторым символам слова (\w+), за которыми следуют открытая скобка \( и еще несколько символов слова (\w+), за которым следует закрывающая скобка \) и, возможно, за ней следуют еще несколько символов слова (\w*).После этого он ищет точку и необязательные пробельные символы.

Answer 2

Не уверен, что это то, что вы искали:

Text <- "Text1. Text2(Gino).Text(Ant)text. Text4. Text(Fi)."
Text <- gsub("Text1. ", "", Text, fixed=TRUE)
Text <- gsub("Text4. ", "", Text, fixed=TRUE)
Text
[1] "Text2(Gino).Text(Ant)text. Text(Fi)."

Изменено fixed=TRUE на fixed=FALSE, если вы хотите использовать регулярные выражения.