ABAP SHIFT-字符串移位和 CONDENSE去除空格

1314lay_1007

已于 2024-04-05 11:13:08 修改

阅读量858

点赞数 4

分类专栏： SAP ABAP 文章标签： ABAP

于 2024-04-05 10:24:34 首次发布

本文链接：https://blog.csdn.net/weixin_44686958/article/details/137395307

版权

ABAP 同时被 2 个专栏收录

91 篇文章 3 订阅

订阅专栏

SAP

90 篇文章 0 订阅

订阅专栏

文章目录

SHIFT-字符串移位和 CONDENSE去除空格

SHIFT-字符串移位和 CONDENSE去除空格

SHIFT BY n PLACES RIGHT/LEFT

*&---------------------------------------------------------------------*
*& Report Z_TEST_SHIFT_LHY
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_test_shift_lhy.

DATA: lv_str1 TYPE string,
      lv_str2 TYPE string,
      lv_str3 TYPE string.

lv_str1 = 'ABC123'.
lv_str2 = 'DEF456'.
lv_str3 = 'GHI789'.
WRITE:/'lv_str1:',lv_str1.
SHIFT lv_str1.  "向左移动一位

WRITE:/'lv_str1向左移动一位：',lv_str1.
SKIP 1.

WRITE:/'lv_str2:',lv_str2.  "输出BC123
SHIFT lv_str2 BY 2 PLACES RIGHT.  "向右移动两位

WRITE:/'lv_str2 向右移动两位:',lv_str2. "输出：  DEF456
SKIP 1.

WRITE:/'lv_str3:',lv_str3.
SHIFT lv_str3 by 3 PLACES LEFT. "向左移动三位
WRITE:/'lv_str3 向左移动三位:',lv_str3. "输出789

运行结果

在这里插入图片描述

SHIFT … UP TO …

"SHIFT c UP TO c1. 表示指定字符串c从子串c1进行位移，执行结果返回系统参数SY-SUBRC，执行成功返回0，不匹配则返回4
SHIFT lv_str4 UP TO lv_sub1.
WRITE:/'lv_str4 = ',lv_str4.
WRITE:/'SY-SUBRC',sy-subrc. "输出0

SHIFT lv_str5 UP TO lv_sub2.
WRITE:/'lv_str5 = ',lv_str5.
WRITE:/'SY-SUBRC',sy-subrc. "输出4

运行结果

第一个已经移动成功，第二个没有移动成功：
在这里插入图片描述

其他的-变量后面加括号和数字

在这里插入图片描述

SHIFT c LEFT/RIGHT DELETING

移除字符串c左边的子字符串c1
SHIFT c LEFT DELETING LEADING c1.
移除字符串c右边的子字符串c1
SHIFT c RIGHT DELETING TRAILING c1.

DATA: lv_s1 TYPE string,
      lv_s2 TYPE string,
      lv_su1(3) TYPE c VALUE 'ABC',
      lv_su2(3) TYPE c VALUE 'EFG'.
lv_s1 = 'ABCDEFG'.
SHIFT lv_s1 BY 3 PLACES RIGHT.
WRITE:/'lv_s1:' ,lv_s1.

"删除空格
SHIFT lv_s1 LEFT DELETING LEADING space.
WRITE:/'lv_s1:',lv_s1.

"删除前面的ABC
SHIFT lv_s1 LEFT DELETING LEADING lv_su1.
WRITE:/'lv_s1:',lv_s1.

SHIFT lv_s1 RIGHT DELETING TRAILING lv_su2.
WRITE:/'lv_s1:',lv_s1.

运行结果

在这里插入图片描述
向右移动的时候，左侧会用空格补位

SHIFT 去除0

示例程序1

DATA: lv_s1 TYPE string,
      lv_s2 TYPE string,
      lv_su1(3) TYPE c VALUE 'ABC',
      lv_su2(3) TYPE c VALUE 'EFG'.
lv_s2 =  '000000012345'.
WRITE:/'原来的lv_s2:' ,lv_s2.
SHIFT lv_s2 LEFT DELETING LEADING '0'.

WRITE:/'lv_s2删除前面的0之后:' ,lv_s2.

运行结果

在这里插入图片描述

示例程序2

DATA: lv_s1 TYPE string,
      lv_s2 TYPE string,
      lv_su1(3) TYPE c VALUE 'ABC',
      lv_su2(3) TYPE c VALUE 'EFG'.
lv_s1 = 'ABCDEFG'.
lv_s2 =  '1234500000'.

WRITE:/'原来的lv_s2:' ,lv_s2.
"SHIFT lv_s2 LEFT DELETING LEADING '0'.

"WRITE:/'lv_s2删除前面的0之后:' ,lv_s2.
SHIFT lv_s2 RIGHT DELETING TRAILING '0'.
WRITE :/'lv_s2 删除后面的0之后:' ,lv_s2.

运行结果

如果是向右移动，去掉没用的小数位的0,向右移动，看不到0为止，左边会填充空格
在这里插入图片描述

CONDENSE

CONDENSE是可以去除空格的

示例程序

DATA: lv_s1 TYPE string,
      lv_s2 TYPE string,
      lv_su1(3) TYPE c VALUE 'ABC',
      lv_su2(3) TYPE c VALUE 'EFG'.
lv_s1 = 'ABCDEFG'.
lv_s2 =  '1234500000'.
WRITE:/'原来的lv_s2:' ,lv_s2.
"SHIFT lv_s2 LEFT DELETING LEADING '0'.

"WRITE:/'lv_s2删除前面的0之后:' ,lv_s2.
SHIFT lv_s2 RIGHT DELETING TRAILING '0'.
WRITE :/'lv_s2 删除后面的0之后:' ,lv_s2.
CONDENSE lv_s2.
WRITE :/'lv_s2 删除空格之后:' ,lv_s2.