*&---------------------------------------------------------------------*
*& Report ZTEST_ABAP_3
*&
*&---------------------------------------------------------------------*
*&本程序关于ABAP字符串常用处理函数说明与使用实例
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_3.
*
*整个程序思路如下:
*1. 定义一系列字符串
*2. 使用常用函数对这些字符串进行处理,如下:
* CONCATENATE:将两个字符串合并成一个字符串。
* condense:删除空格字符
* strlen:获取字符串长度
* replace:字符串替换,只替代第一个符合的位置的字符
* search:在字符串中搜索
* shift:向左或者向右移动字符串内容
* split:将字符串拆分
*
DATA: title_1(10) value 'tutorials',
title_2(10) value 'point',
spaced_title(30) value 'Tutorials Point Limited',
ss(30) VALUE 'aaaa bbbb cccc',
sep,
dest1(30),
dest2(30),
one(30),
two(30),
three(30),
delimiter(1) value ' '.
CONCATENATE title_1 title_2 into dest1.
write: / 'concatenation:' ,dest1.
CONCATENATE title_1 title_2 into dest2 SEPARATED BY SEP."连接时加入分隔符
WRITE: / 'CCONCATEBATION WITH SPACE:', dest2.
CONDENSE spaced_title.
WRITE: / 'CONDENSE:', spaced_title.
CONDENSE spaced_title NO-GAPS.
WRITE: / 'CONDENSE WITH NO GAPS:' ,spaced_title.
SPLIT ss at delimiter into one two three.
WRITE: / one.
WRITE: / two.
WRITE: / three.
REPLACE ' ' with ',,' into ss.
write: / ss.
SEARCH SS for ',,' STARTING AT 1.
write: / SY-SUBRC, SY-FDPOS.