ABAP去掉字段尾0

最新推荐文章于 2024-06-13 09:55:38 发布

Explore1995

最新推荐文章于 2024-06-13 09:55:38 发布

阅读量707

点赞数

分类专栏： ABAP 文章标签： abap 尾数0

本文链接：https://blog.csdn.net/OutThink/article/details/128338864

版权

ABAP 专栏收录该内容

30 篇文章 4 订阅

订阅专栏

实现效果

在这里插入图片描述

实现过程

REPORT zktest1216.


DATA:lv_c(12) TYPE c VALUE `13 r 3.0000`.

WRITE:lv_c.

CONDENSE lv_c NO-GAPS.
SHIFT lv_c RIGHT DELETING TRAILING space.
SHIFT lv_c RIGHT DELETING TRAILING '0'.
SHIFT lv_c RIGHT DELETING TRAILING '.'.
CONDENSE lv_c NO-GAPS.

WRITE:/ lv_c.

说明

condense去除字段中的前导空格并用一个空格替换其它空格序列。
如果指定附加的 NO-GAPS，则去除所有空格。
不加 no-gaps效果如下
加了no-gaps
shift的用法
1）.SHIFT:截断字符串
SHIFT {c} [BY {n} PLACES] [{mode}].：
作用：去掉字符串的前n个位置的字符，如果n未指定，默认为1，如果指定的n小于等于0，则字符串不变。如果n超出字符串的长度，则字符串变空，所以在做此操作的时候要注意n的指定。可以首先获得该字符串的长度，方法：len＝STRLEN©。
Mode：指定字符串截断的方向。
LEFT:从左边截断
RIGHT:从右边截断
CIRCULAR：把左边的字符放到右边。
```
     SHIFT {c} UP TO {str} {mode}.：
      作用：把字符串中在str以前的字符都去掉，同样可以指定mode，原理同上。
    SHIFT {c} LEFT DELETING LEADING {str}.
    SHIFT {c} RIGHT DELETING TRAILING {str}.：
      作用：这两个语句就是把字符串c中前的（LEFT）或者后的(RIGHT)的字符str都去掉。
```