我有类似的文字
la<-c("case when ANTIG_CLIENTE <= 4 then '01: ANTIG_CLIENTE <= 4' when ANTIG_CLIENTE <= 8 then '02: ANTIG_CLIENTE <= 8'
else '99: Error' end ")
我想将单引号之间的文本提取为列表:
"01: ANTIG_CLIENTE <= 4","02: ANTIG_CLIENTE <= 8","99: Error"
我尝试了两种方法但没有成功
> sub('[^\]+\"([^\']+).*', '\\1', la)
Error: '\]' is an unrecognized escape in character string starting "'[^\]"
> regmatches(x, gregexpr('"[^']*"', la))[[1]]
Error: unexpected ']' in "regmatches(x, gregexpr('"[^']"
如何获取单引号之间的文本?
最佳答案
这应该得到你想要的。唯一的假设是单引号之间你想要的所有字符串都包含一个冒号(否则,我们应该如何区分 '01: ANTIG_CLIENTE <= 4'
和 ' when ANTIG_CLIENTE <= 8 then '
,两者都在单引号之间?):
> regmatches(la,gregexpr("'[^']*:[^']*'",la))
[[1]]
[1] "'01: ANTIG_CLIENTE <= 4'" "'02: ANTIG_CLIENTE <= 8'" "'99: Error'"
基本上,我们试图返回单引号形式的所有表达式(因此
gregexpr
而不是 regexpr
),除了单引号,冒号之外,还有单引号之外的东西,单引号。如果您想消除返回内容中的单引号,您将需要向前看和向后看,这需要告诉 R 将您的正则表达式解释为 perl:
> regmatches(la,gregexpr("(?<=')[^']*:[^']*(?=')",la,perl=T))
[[1]]
[1] "01: ANTIG_CLIENTE <= 4" "02: ANTIG_CLIENTE <= 8" "99: Error"
关于regex - R正则表达式获取单引号之间的文本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31777636/