使用gsub删除多个逗号和尾随逗号

Question

例如，我希望使用函数trimcommas将x转换为y:

x <- c("a,b,c", ",a,b,,c", ",,,a,,,b,c,,,")
# y <- TrimCommas(x) # presumably
y <- c("a,b,c", "a,b,c", "a,b,c")

空格的解决方案是gsub（“^*（？<=)*$”,“”,x,perl=t)，所以我希望比较这方面的解决方案也能帮助解释一些正则表达式的基本原理。

Answer 1

解决方法不是很相似吗？

x <- c("a,b,c", ",a,b,,c", ",,,a,,,b,c,,,")
gsub("^,*|(?<=,),|,*$", "", x, perl=T)
# [1] "a,b,c" "a,b,c" "a,b,c"

regex^,*（？<=,）,,*$:

• ^,*--这与字符串开头的0个或多个逗号匹配
• （？<=,）,--这是一个正面的检查，以查看逗号后面是否有逗号，因此它与,,
中的 ,相匹配
• ,*$--这与字符串末尾的0个或多个逗号匹配

正如你所看到的，上面的所有内容都没有被替换。

您可以使用此函数使其通用于任何字符(“”、“、”等）：

TrimMult <- function(x, char=" ") {
  return(gsub(paste0("^", char, "*|(?<=", char, ")", char, "|", char, "*$"),
              "", x, perl=T))
}