R中的正则表达式帮助

Question

我有看起来像这样的数据，其中负号是数字末尾的后缀。

"general_amount"
"0000000441244"
"0000000127769-"
"0000000043819"
"0000000522600-"

有人可以帮我找到一个正则表达式，以在下面产生所需的输出。

"general_amount"
 441244
-127769
 43819
-522600

Answer 1

sub('^0*([^-]*)(-?)$', '\\2\\1', x)

## [1] "general_amount" "441244"         "-127769"        "43819"          "-522600"

^0*匹配所有前导0字符。
[^-]*匹配所有非-字符。
-? 匹配零个或一个-字符。
最后， $匹配字符串的结尾。

中间的两个片断被()捕获为\\\\1和\\\\2 ，并以相反的顺序打印。

Answer 2

使用gsub ，还有另一个想法。

想法是将输入分为3个元素

1. 0系列：（^ 0+）
2. 系列数字：（[0-9] +）

3. 找到“-” 1或零次：（-？）”

     as.numeric(gsub("(^0+)([0-9]+)(-?)","\\\\3\\\\2",tt)) [1] 441244 -127769 43819 -522600 

Answer 3

老兄，我花了3个小时才找到问题的答案

sed -re 's/[^a-zA-Z0-9]0+([0-9]+)(-?)/\2\1/g' anyfile.txt 

但是最后我做到了。 可能会有一些短暂的机会，但我快到了