ABAP中如何实现标准规范的数值格式校验？

针对你遇到的数值校验问题，给你几个靠谱的标准实现方案，完美解决现有方法的缺陷：

方案1：类型转换异常捕获（推荐，自动适配用户格式） #

直接尝试把字符串转成数值类型，利用ABAP的转换异常来判断合法性。这种方式会自动读取用户SU01里的小数/千分符设置，还支持科学计数法。

示例代码：

DATA(lv_input) = '123.345,786e13'. " 符合格式的合法数值
DATA(lv_is_valid) = abap_true.

TRY.
    DATA(lv_num) = CONV f( lv_input ). " 转浮点数支持科学计数法，按需换成i/p类型
CATCH cx_sy_conversion_no_number.
    lv_is_valid = abap_false.
ENDTRY.

IF lv_is_valid.
    WRITE '数值格式合法'.
ELSE.
    WRITE '数值格式非法'.
ENDTRY.

• 转换类型按需选：i（整数）、p（定点数，适合金额）、f（浮点数，支持科学计数法）
• 自动适配用户的格式设置，比如用户设逗号为小数点、点为千分符时，1.234,56会被正确识别

方案2：使用标准FM NUMERIC_CHECK #

这个函数模块专门做数值校验，还能返回格式化后的结果，可手动指定分隔符规则。

示例代码：

DATA: lv_input TYPE string VALUE '123.345,786e13',
      lv_output TYPE string,
      lv_valid TYPE abap_bool.

CALL FUNCTION 'NUMERIC_CHECK'
  EXPORTING
    input        = lv_input
*   DECIMALS     = 2 " 可选：指定固定小数位数
*   THOUSANDS_SEP = ',' " 可选：指定千分符，不填用系统默认
*   DECIMAL_SEP   = '.' " 可选：指定小数点，不填用系统默认
  IMPORTING
    output       = lv_output
    valid        = lv_valid.

IF lv_valid = abap_true.
    WRITE |数值格式合法，格式化后：{ lv_output }|.
ELSE.
    WRITE '数值格式非法'.
ENDIF.

• 不指定分隔符时，自动用系统T000表的默认格式
• 支持科学计数法的校验，非法格式（比如多分隔符）会被正确判定

方案3：用类 CL_ABAP_NUMBER_FORMAT 做精细化校验 #

适合复杂场景，可自定义区域格式，校验规则更严格。

示例代码：

DATA(lv_input) = '12,45.64,47-18'. " 非法数值
DATA(lv_formatter) = cl_abap_number_format=>get_instance(
  i_style = if_abap_format=>style_number
  i_locale = cl_abap_locale=>get_current( ) " 用当前用户的区域设置
).

TRY.
    DATA(lv_num) = lv_formatter->parse( lv_input ).
    WRITE '数值格式合法'.
CATCH cx_abap_format_parse_error.
    WRITE '数值格式非法'.
ENDTRY.

• 可通过i_locale指定不同区域，适配多环境格式需求
• 严格校验字符排列，像包含多个分隔符的非法输入会被精准拦截

为什么原方法会失效？ #

你之前用的IF val CO '0123456789.,+-'只是做了字符白名单检查，完全没校验字符的排列规则：

• 允许出现多个小数点/千分符（比如12,45.64,47）
• 允许正负号出现在任意位置（比如123-45）
• 不支持科学计数法的e/E字符
• 无法适配不同环境的小数点/千分符差异

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