我仍然对正则表达式语法有些困惑。您能否以这些模式帮助我:
_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
谢谢!
你可以试试
library(stringr)
str_extract(str2, "[A-Z][0-9]{4,5}[A-Z]?")
#[1] "A1234B" "A12345B" "A12345"
在此模式中,查找大写字母[A-Z]
,后跟4
或5位数字[0-9]{4,5}
,后跟大写字母[A-Z]
?
或者您可以使用stringi
更快
library(stringi)
stri_extract(str2, regex="[A-Z][0-9]{4,5}[A-Z]?")
#[1] "A1234B" "A12345B" "A12345"
或一个base R
选择是
regmatches(str2,regexpr('[A-Z][0-9]{4,5}[A-Z]?', str2))
#[1] "A1234B" "A12345B" "A12345"
str2 <- c('_A00_A1234B_', '_A00_A12345B_', '_A1_A12345_')
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句