如何删除R中斜线之间的所有单词？

Question

我有字符串

x <- "('00111','22222', /*abd*/ '22343','24352' /*abdegsg*/)"

我想删除斜线之间的字符，例如

('00111','22222', '22343','24352')

Answer 1

您可以使用库字符串提取所有数字。

x <- "('00111','22222', /*abd*/ '22343','24352' /*abdegsg*/)"

stringr::str_extract_all(x, "\\d+", simplify = T)
#>      [,1]    [,2]    [,3]    [,4]   
#> [1,] "00111" "22222" "22343" "24352"

^{由reprex package（v0.2.1）于2019-02-11创建}

Answer 2

您可以像下面这样

gsub（pattern =“ / [a-zA-Z] * /”，“”，x）

Answer 3

我们可以尝试使用gregexpr作为基本的R解决方案：

x <- "('00111','22222', /*abd*/ '22343','24352' /*abdegsg*/)"
m <- gregexpr("'\\d+'", x)
regmatches(x, m)[[1]]

[1] "'00111'" "'22222'" "'22343'" "'24352'"