删除字符串中重复两次以上的字符

Question

这个问题在这里已经有了答案:





remove repeated character between words

(4 个回答)


2年前关闭。




我有这样的文字:

F <- "hhhappy birthhhhhhdayyy"

我想删除重复字符，我试过这个代码

https://stackoverflow.com/a/11165145/10718214

它有效，但如果重复超过 2 个，我需要删除重复字符，如果重复 2 次，则保留它。

所以我期望的输出是

"happy birthday"

有什么帮助吗？

Answer 1

尝试使用 sub , 图案 (.)\\1{2,} :

F <- ("hhhappy birthhhhhhdayyy")
gsub("(.)\\1{2,}", "\\1", F)

[1] "happy birthday"

正则表达式说明:

(.)          match and capture any single character
\\1{2,}      then match the same character two or more times

我们只用单个匹配字符替换。数量 \\1表示 sub 中的第一个捕获组.