相关疑难解决方法(0)

我仍然对正则表达式语法有些困惑。你能帮我解决这些模式吗：

_A00_A1234B_
_A00_A12345B_
_A1_A12345_

到目前为止我的方法：

vapply(strsplit(files, "[_.]"), function(files) files[nchar(files) == 7][1], character(1))

或者

str_extract(str2, "[A-Z][0-9]{5}[A-Z]")

预期的输出是

A1234B
A12345B
A12345

谢谢！