Question

我正在使用R中的stringr软件包，并希望将除之后的所有值替换为 MATCH 即可。我收到一条错误，指出'。。。必须有一个有界的最大长度（U_REGEX_LOOK_BEHIND_LIMIT）'。这是我的代码抛出错误：

strings <- c(" wholesale trade  except motor vehicles motorcycles",
             " retail trade  except motor vehicles motorcycles") 


str_replace_all(strings,'(?<=\\bexcept\\W+)\\w+','MATCH')

我想要的输出是：

> strings
[1] " wholesale trade  except MATCH MATCH MATCH"
[2] " retail trade  except MATCH MATCH MATCH"

注意，有些字符串会有更多 MATCH 来替换。

谢谢！

Answer 1

您可以使用gsub的基础R解决方案：

strings <- c(" wholesale trade  except motor vehicles motorcycles",
             " retail trade  except motor vehicles motorcycles") 
gsub("(?:\\G(?!^)\\s+|\\bexcept\\s+)\\K\\w+", "MATCH", strings, perl=TRUE)
# [1] " wholesale trade  except MATCH MATCH MATCH"
# [2] " retail trade  except MATCH MATCH MATCH"

请参阅R demo。

stringr等效物可以是

> str_replace_all(strings, "(\\G(?!^)\\s+|\\bexcept\\s+)\\w+", "\\1MATCH")
[1] " wholesale trade  except MATCH MATCH MATCH"
[2] " retail trade  except MATCH MATCH MATCH"

基本上，模式是

(?:\G(?!^)\s+|\bexcept\s+)\K\w+

请参阅online regex demo。

如果要匹配任何非空白字符块，\w可能会替换为\S。

模式详情

(?:\G(?!^)\s+|\bexcept\s+) - 匹配整个单词except和其后的任何1 +空格字符（\bexcept\s+）或（|）上一场比赛结束时1+ （\G(?!^)\s+）
\K - 清除匹配值
\w+ - 匹配1个字母字符（\S+）将匹配任何1个或多个非空白字符）

Answer 2

以下是一个base R，其中将字符串拆分为＆＃39;除了＆＃39;用＆＃39; MATCH＆＃34;替换第二个元素中的单词和第一次paste

sapply(strsplit(strings, "\\bexcept\\s+"), 
     function(x) paste0(x[1], "except ", gsub("\\w+", "MATCH", x[2])))
#[1] " wholesale trade  except MATCH MATCH MATCH" 
#[2] " retail trade  except MATCH MATCH MATCH"

Answer 3

这使用gsubfn提取except...部分并使用匿名函数处理（用公式表示法表示）。该函数接受两个参数x和y，其值为两个捕获组，即正则表达式中的两个带括号的表达式。第一个参数x将作为except传递，后跟尾随空格或空格，第二个y是字符串的其余部分。（它通过扫描函数体，即公式的右侧，并提取自由变量来确定参数的名称和数量。）然后使用gsub替换{{1}中的每个单词与y。在常规正则表达式MATCH匹配空格，\s匹配非空格。 \S匹配从那一点开始的所有内容。它保留原始间距，仅使用相对简单的正则表达式。

.*

正则表达式正面观察，包括所有以单词开头的单词

3 个答案: