替换字符串中的非重复字符

Question

嗨，我想用空格替换正斜杠，但前提是它出现一次。

 str_replace_all( 'NOOOOO//ABCDEFGHI/asdfasd//sdkksksks', "/(?!=/)", " ")

这里我希望输出为:NOOOOO//ABCDEFGHI asdfasd//sdkksksks

Answer 1

使用 sub 尝试以下选项:

input <- "NOOOOO//ABCDEFGHI/asdfasd//sdkksksks"
gsub("(?<!/)/(?!/)", " ", input, perl=TRUE)

[1] "NOOOOO//ABCDEFGHI asdfasd//sdkksksks"

这里的策略是使用模式 (?<!/)/(?!/) , 它匹配一个正斜杠，它在两边都被除了另一个正斜杠之外的任何东西包围。