正则表达式获取间隔下划线之间的字符串

我见过很多类似的问题，但我无法获得所需的输出。

我有一根绳子means_variab_textimput_x2_200.txt我想抓住ONLY第三个和第四个下划线之间是什么：文本输入

• 我用的是R，stringr，我尝试了很多方法，但都没有解决问题：

my_string <- "means_variab_textimput_x2_200.txt"

str_extract(my_string, '[_]*[^_]*[_]*[^_]*[_]*[^_]*')
"means_variab_textimput"

str_extract(my_string, '^(?:([^_]+)_){4}')
"means_variab_textimput_x2_"
str_extract(my_string, '[_]*[^_]*[_]*[^_]*[_]*[^_]*\\.') ## the closer I got was this
"_textimput_x2_200."

• 有任何想法吗？ PS：我对正则表达式非常陌生，因此非常感谢详细信息:)

• 附加问题：我也可以只得到这个词的“部分”吗？比方说，而不是文本输入 only text但不计算字数？最好知道这两种可能性

• this https://stackoverflow.com/questions/7793950/regex-to-remove-all-text-before-a-character this one https://stackoverflow.com/questions/62582196/regex-to-extract-string-between-third-and-fourth-underscore this one https://stackoverflow.com/questions/17779744/regular-expression-to-get-a-string-between-parentheses-in-javascript有帮助，但我无法得到最终的预期结果。提前致谢。

stringr uses ICU基于正则表达式。因此，一个选项是使用正则表达式环视，但这里的长度不固定，因此(?<=行不通的。另一种选择是删除子字符串str_remove or use str_replace匹配并捕获第三个没有的单词_ ([^_]+）并替换为反向引用（\\1) 捕获的单词

library(stringr)
str_replace(my_string, "^[^_]+_[^_]+_([^_]+)_.*", "\\1") 
[1] "textimput"

如果我们只需要子字符串

str_replace(my_string, "^[^_]+_[^_]+_([^_]{4}).*", "\\1") 
[1] "text"

In base R，更容易strsplit并通过索引获取第三个单词

strsplit(my_string, "_")[[1]][3]
# [1] "textimput"

Or use perl = TRUE in regexpr

regmatches(my_string, regexpr("^([^_]+_){2}\\K[^_]+", my_string, perl = TRUE))
# [1] "textimput"

对于子串

regmatches(my_string, regexpr("^([^_]+_){2}\\K[^_]{4}", my_string, perl = TRUE))
[1] "text"