如何用正则表达式移除数字中除最后一个外的所有小数点？

你的原正则表达式失效是因为Oracle的REGEXP_REPLACE不支持Perl风格的零宽断言（比如(?!)这类前瞻语法），所以无法识别需要保留的最后一个小数点。

下面提供两种可行的实现方式：

方案一：利用字符串反转处理 #

通过反转字符串将最后一个小数点转为第一个，移除后续所有小数点后再反转回来：

SELECT REVERSE(REGEXP_REPLACE(REVERSE('100.100.10'), '(\.)(.*)', '\1' || REPLACE('\2', '.', ''))) AS cleaned_number FROM dual;

执行后结果为：100000.10

方案二：通过位置拆分拼接 #

用INSTR定位最后一个小数点的位置，拆分字符串后移除前缀的小数点再拼接：

SELECT 
    REPLACE(SUBSTR('100.100.10', 1, INSTR('100.100.10', '.', -1) - 1), '.', '') 
    || SUBSTR('100.100.10', INSTR('100.100.10', '.', -1)) 
AS cleaned_number FROM dual;

这个方法不需要依赖正则的高级特性，兼容性更好，执行结果同样是100000.10

内容的提问来源于stack exchange，提问作者TonyS