【ABAP】float类型输出删除多余的0

最新推荐文章于 2026-08-11 12:29:37 发布

原创最新推荐文章于 2026-08-11 12:29:37 发布 · 91 阅读

本内容遵循CC 4.0 BY-SA版权协议


  DATA: lv_temp    TYPE string,
        lv_len     TYPE i,
        lv_decimal TYPE string,
        lv_integer TYPE string.

  lv_temp = cv_number_str.
  CONDENSE lv_temp.

  " 检查是否包含小数点
  IF lv_temp CA '.'.
    " 分割整数部分和小数部分
    SPLIT lv_temp AT '.' INTO lv_integer lv_decimal.

    " 去除小数部分末尾的零
    DO.
      lv_len = strlen( lv_decimal ).
      IF lv_len = 0.
        EXIT.
      ENDIF.
      lv_len = lv_len - 1.

      IF lv_decimal+lv_len(1) = '0'.
        lv_decimal = lv_decimal+0(lv_len).
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.

    " 重新组合
    IF lv_decimal IS NOT INITIAL.
      cv_number_str = lv_integer && '.' && lv_decimal.
    ELSE.
      cv_number_str = lv_integer.
    ENDIF.
  ENDIF.

这段ABAP代码的主要功能是处理数字字符串，去除小数部分末尾多余的零。以下是代码的详细解析：

代码逻辑说明

初始化变量：
- lv_temp：临时存储输入的字符串
- lv_len：用于记录字符串长度
- lv_decimal：存储小数部分
- lv_integer：存储整数部分
预处理：
```
lv_temp = cv_number_str.
CONDENSE lv_temp.
```
- 将输入字符串赋值给临时变量
- 使用CONDENSE去除字符串中的多余空格
检查小数点：
```
IF lv_temp CA '.'.
```
- 通过CA '.'检查字符串是否包含小数点
分割整数与小数部分：
```
SPLIT lv_temp AT '.' INTO lv_integer lv_decimal.
```
- 以小数点作为分隔符，将字符串拆分为整数部分和小数部分

去除小数部分末尾的零：

DO.
  lv_len = strlen( lv_decimal ).
  IF lv_len = 0.
    EXIT.
  ENDIF.
  lv_len = lv_len - 1.
  IF lv_decimal+lv_len(1) = '0'.
    lv_decimal = lv_decimal+0(lv_len).
  ELSE.
    EXIT.
  ENDIF.
ENDDO.

循环检查小数部分的最后一个字符
如果是0则移除，直到遇到非零字符或字符串为空时退出循环

重组结果：
```
IF lv_decimal IS NOT INITIAL.
  cv_number_str = lv_integer && '.' && lv_decimal.
ELSE.
  cv_number_str = lv_integer.
ENDIF.
```
- 若小数部分非空，则拼接整数部分和小数部分
- 若小数部分为空（全被移除），则仅保留整数部分