用括号分隔[重复]

Question

假设我有一个类似“a B C(123-456-789)”的字符串，我想知道从中检索“123-456-789”的最佳方法是什么。

strsplit("A B C (123-456-789)", "\\(")
[[1]]
[1] "A B C" "123-456-789)"

Answer 1

如果我们想提取大括号之间带有-的数字，一个选项是str_extract。如果字符串中有多个模式，请使用str_extract_all

 library(stringr)
 str_extract(str1, '(?<=\\()[0-9-]+(?=\\))')
 #[1] "123-456-789"
 str_extract_all(str2, '(?<=\\()[0-9-]+(?=\\))')

在上面的代码中，我们使用regex lookarounds来提取数字和-。正lookbehind（？<=\\()[0-9-]+与(123-456-789中的-([0-9-]+)和-([0-9-]+)匹配数字，而不是在123-456-789中。类似地，lookhead([0-9-]+(?=\)')与-中的-匹配数字，但与(123-456-789或123-456-789)等情况无关

使用strsplit，可以将split指定为[()]。我们将()保留在方括号内，以便将其视为字符，否则我们必须转义括号('\\(\\)')。

 strsplit(str1, '[()]')[[1]][2]
 #[1] "123-456-789"

如果有多个子字符串要从字符串中提取，我们可以使用lapply循环，并使用grep提取数字拆分部分

 lapply(strsplit(str2, '[()]'), function(x) grep('\\d', x, value=TRUE))

或者我们可以使用stri_split，从stringi，它也可以删除空字符串(omit_empty=true)。

 library(stringi)
 stri_split_regex(str1, '[()A-Z ]', omit_empty=TRUE)[[1]]
 #[1] "123-456-789"

 stri_split_regex(str2, '[()A-Z ]', omit_empty=TRUE)

 library(qdapRegex)
 rm_round(str1, extract=TRUE)[[1]]
 #[1] "123-456-789"
 rm_round(str2, extract=TRUE)

 str1 <-  "A B C (123-456-789)"
 str2 <- c("A B C (123-425-478) A", "ABC(123-423-428)",
 "(123-423-498) ABCDD", 
  "(123-432-423)", "ABC (123-423-389) GR (124-233-848) AK")