# add 'hour' for 2-digit $-values (with optional decimal fraction)
# but only if NOT followed by 000 or K
gsub("(\\$\\d{1,2}(?:\\.[\\d]+)?(?!000|K))", "\\1 hour", txt, perl=TRUE)
第二种情况：
# add 'salary' for 4-5-digit $-values (with optional decimal fraction)
# but only if followed by 000 or K
gsub("(\\$\\d{1,2}(000|K))", "\\1 salary", txt, perl=TRUE)
1条答案
按热度按时间9njqaruj1#
在一种情况下，它可以使用 negative lookahead 正则表达式：
第二种情况：
我只用几个片段测试过这个。也许你的测试用例比我的复杂。