文章目录
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.
运行结果
在删除之前是： 12345
