根据第一个和最后一个逗号分割字符串

我想在第一个和最后一个逗号上分割字符串。每个字符串至少有两个 逗号。以下是示例数据集和所需的结果。

这里有一个类似的问题询问如何在第一个逗号上拆分：在字符串中的第一个逗号处拆分

这里我问如何在前两个冒号上分割字符串：在前两个冒号上分割字符串

感谢您的任何建议。我更喜欢基本 R 中的解决方案。抱歉，如果这是重复的。

my.data <- read.table(text='

my.string        some.data
123,34,56,78,90     10
87,65,43,21         20
a4,b6,c8888         30
11,bbbb,ccccc       40
uu,vv,ww,xx         50
j,k,l,m,n,o,p       60', header = TRUE, stringsAsFactors=FALSE)

desired.result <- read.table(text='

 my.string1 my.string2 my.string3 some.data
        123   34,56,78         90        10
         87      65,43         21        20
         a4         b6      c8888        30
         11       bbbb      ccccc        40
         uu      vv,ww         xx        50
          j  k,l,m,n,o          p        60', header = TRUE, stringsAsFactors=FALSE)

您可以使用\K运算符将已匹配的文本保留在结果之外，并使用否定的前瞻断言来执行此操作（好吧almost，中间部分的开头有一个烦人的逗号，我还没有在strsplit）。但我喜欢将其作为构建正则表达式的练习......

x <- '123,34,56,78,90'
strsplit( x , "^[^,]+\\K|,(?=[^,]+$)" , perl = TRUE )
#[[1]]
#[1] "123"       ",34,56,78" "90"

解释：

• ^[^,]+：从字符串的开头匹配一个或多个字符not a ,
• \\K: 但不要在匹配中包含那些匹配的字符
• 所以第一个匹配是第一个逗号......
• |: 或者你可以匹配...
• ,(?=[^,]+$) : a ,只要后面跟着 [(?=...)] 一个或多个字符are not a ,直到字符串末尾（$)...