r - 使用正则表达式清理电话号码

Question

我有以下电话号码组成，其中 33 是​​区号:

+331234567
+3301234567
00331234567
003301234567
0331234567
033-123-456-7
0033.1234567

我只期待 331234567

我曾尝试使用 R 清理这些数字

R::tidyverse::str_replace_all(c("+331234567", "033-123-456-7", "0033.1234567"), pattern = "[^0-9.]", replacement = "") removing non-numeric characters
R::tidyverse::str_replace_all("0331234567", pattern = "^0", replacement = "") removing the leading 0
R::tidyverse::str_replace_all("00331234567", pattern = "^00", replacement = "") removing the leading 00

我的问题是如何删除之间的零:3301234567 或 003301234567 或 +3301234567 或 03301234567

感谢任何帮助

Answer 1

你可以使用

gsub("^(?:00?|\\+)330?|\\W", "", x, perl=TRUE)

参见 regex demo .查看R demo online .

如果33之后可以有更多的0在你需要提取的数字之前，将0?替换为0* 。

详情

• ^ - 字符串的开始
• (?:00?|\+) - 00、0 或 +
• 330? - 33 或 330
• | - 或者
• \W - 任何非单词字符。