R语言如何删除字符串中被双引号包裹的文本内容？

实现方案（R语言） #

核心逻辑通过正则匹配删除所有成对双引号包裹的内容，再清理冗余符号后格式化输出，代码可直接运行：

# 定义原始字符串
x <- 'aaaaa,"bbb",ccccc,"dddd",abcd"dddd"'

# 1. 替换所有双引号包裹的内容为空
res_tmp <- gsub(pattern = '"[^"]*"', replacement = "", x = x)

# 2. 拆分字符串并过滤空字段
valid_fields <- Filter(f = nzchar, x = strsplit(res_tmp, split = ",")[[1]])

# 3. 格式化输出要求的结果
final_res <- paste0('"', paste(valid_fields, collapse = '","'), '"')

# 打印结果验证
print(final_res)

运行上述代码后输出结果为："aaaaa","ccccc","abcd"，完全符合要求。

关键逻辑说明 #

• 正则表达式"[^"]*"可精准匹配所有成对出现的双引号及其中的内容："匹配开头双引号，[^"]*匹配0个或多个非双引号的字符，最后"匹配结尾双引号，不会出现跨内容匹配的问题。
• 后续步骤用于处理替换后产生的连续逗号等冗余内容，提取有效字段后按要求格式拼接即可。

内容的提问来源于stack exchange，提问作者Foulball