ABAP字符串控制函数

 CONCATENATE：合并字符串.

CONCATENATE f1 … fn INTO g [SEPARATED BY h].

 1 * CONCATENATE合并字符串 2 DATA: c1(10)  TYPE c VALUE  'Sum', 3       c2(3)   TYPE c VALUE  'mer', 4       c3(5)   TYPE c VALUE  'holi ', 5       c4(10)  TYPE c VALUE  'day', 6       c5(30)  TYPE c , 7       sep(3)  TYPE c VALUE ' - '. 8 CONCATENATE c1 c2 c3 c4 INTO c5. 9 WRITE c5.10 CONCATENATE c1 c2 c3 c4 INTO c5 SEPARATED BY sep.11 WRITE / c5.

--------------------------------------------------------

输出结果：
Summerholiday
Sum - mer - holi - day

--------------------------------------------------------

SPLIT: 字符串拆分.

SPLIT f AT g INTO h1 … hn.

SPLIT f AT g INTO TABLE itable.

 1 * splitting strings 2 DATA: string10(60) TYPE c , 3       p1(20) TYPE c VALUE '++++++++++++++++++++', 4       p2(20) TYPE c VALUE '++++++++++++++++++++', 5       p3(20) TYPE c VALUE '++++++++++++++++++++', 6       p4(20) TYPE c VALUE '++++++++++++++++++++', 7       del10(3) TYPE c VALUE '***'. 8 string10 = ' Part 1 *** Part 2 *** Part 3 *** Part 4 *** Part 5'. 9 WRITE string10.10 SPLIT string10 AT del10 INTO p1 p2 p3 p4.11 WRITE / p1.12 WRITE / p2.13 WRITE / p3.14 WRITE / p4.

--------------------------------------------------------

输出结果：

Part 1 *** Part 2 *** Part 3 *** Part 4 *** Part 5

Part 1        

Part 2        

Part 3        

Part 4 *** Part 5

--------------------------------------------------------

 

SHIFT：字符串整体或者字串进行转移.

如果SHIFT 操作的对象是 C类型， 则所有字节都会向前移动一位，最后一位用空格代替；

如果SHIFT操作的对象是String类型，则所有字符都会向前移动一位，最后一位删除；

SHIFT c <LEFT/RIGHT/CIRCULAR>.

SHIFT c BY n PLACES.

SHIFT c UP TO c1.

 1 * SHIFT c BY n PLACES 用法. 2 DATA: t1(10) TYPE c VALUE 'abcdefghij', 3      string1 LIKE t1. 4  5 string1 = t1. 6 WRITE string1. 7 SHIFT string1. 8 WRITE / string1. 9 string1 = t1.10 SHIFT string1 BY 3 PLACES LEFT.11 WRITE / string1.12 string1 = t1.13 SHIFT string1 BY 3 PLACES RIGHT.14 WRITE / string1.15 string1 = t1.16 SHIFT string1 BY 3 PLACES CIRCULAR.17 WRITE / string1.

--------------------------------------------------------

输出结果：

abcdefghij   “string1

bcdefghij

defghij  

   abcdefg

defghijabc

--------------------------------------------------------

 1 * SHIFT c UP TO c1 2 DATA: t2(10) TYPE c VALUE 'abcdefghij', 3       string2 LIKE t2, 4       str2(2) TYPE c VALUE 'ef'. 5  6 string2 = t2. 7 WRITE string2. 8 SHIFT string2 UP TO str2. 9 WRITE / string2.10 string2 = t2.11 SHIFT string2 UP TO str2 LEFT.12 WRITE / string2.13 string2 = t2.14 SHIFT string2 UP TO str2 RIGHT.15 WRITE / string2.16 string2 = t2.17 SHIFT string2 UP TO str2 CIRCULAR.18 WRITE / string2.

--------------------------------------------------------

输出结果：

abcdefghij

efghij   

efghij   

    abcdef

efghijabcd

--------------------------------------------------------

移除字符串左/右边的子字符串：

SHIFT c LEFT DELETEING LEADING c1.

SHIFT c RIGHT DELETEING TRAILING c1.

 1 * SHIFT c LEFT/RIGHT DELETEING LEADING c1 2 DATA: t3(14) TYPE c VALUE '    abcdefghij', 3       string3 LIKE t3, 4       str3(6) TYPE c VALUE 'ghijkl'. 5  6 string3 = t3. 7 WRITE string3. 8 SHIFT string3 LEFT DELETING LEADING space. 9 WRITE / string3.10 string3 = t3.11 SHIFT string3 RIGHT DELETING TRAILING str3.12 WRITE / string3.

--------------------------------------------------------

输出结果：

    abcdefghij

abcdefghij   

        abcdef

--------------------------------------------------------

 

CONDENSE：重新整合分配字符串.

CONDENSE c <NO-GAPS>.

 1 * condensing strings 2 DATA: string9(25) TYPE c VALUE ' one  two   three    four', 3       len9 TYPE i. 4  5 len9 = strlen( string9 ). 6 WRITE: string9, '!'. 7 WRITE: / 'Length: ', len9. 8 CONDENSE string9. 9 len9 = strlen( string9 ).10 WRITE: string9, '!'.11 WRITE: / 'Length: ', len9.12 CONDENSE string9 NO-GAPS.13 len9 = strlen( string9 ).14 WRITE: string9, '!'.15 WRITE: / 'Length: ', len9.

--------------------------------------------------------

输出结果：

one  two   three    four !

Length:          25  one two three four        !

Length:          18  onetwothreefour           !

Length:          15

--------------------------------------------------------

 

TRANSLATE:实现字符串转换.

TRANSLATE c TO UPPER CASE.

TRANSLATE c TO LOWER CASE.

TRANSLATE c USING c1.

 1 * translating signs 2 DATA: t5(10) TYPE c VALUE 'AbCdEfGhIj', 3       string5 LIKE t5, 4       rule5(20) TYPE c VALUE 'AxbXCydYEzfZ'. 5  6 string5 = t5. 7 WRITE string5. 8 TRANSLATE string5 TO UPPER CASE.       "#EC SYNTCHAR 9 WRITE / string5.10 string5 = t5.11 TRANSLATE string5 TO LOWER CASE.       "#EC SYNTCHAR12 WRITE / string5.13 string5 = t5.14 TRANSLATE string5 USING rule5.         "#EC SYNTCHAR15 WRITE / string5.

----------------------------------------------

输出结果：

AbCdEfGhIj

ABCDEFGHIJ

abcdefghij

xXyYzZGhIj

----------------------------------------------

TRANSLATE c … FROM CODE PAGE g1 … TO CODE PAGE g2.

 

OVERLAY:参考字符串对空白字符进行填充.

OVERLAY c with c1.

 

REPLACE:字符串按条件取代.

REPLACE f … WITH g … INTO h.

 1 * replacing values 2 DATA: t4(10) TYPE c VALUE 'abcdefghij', 3       string4 LIKE t4, 4       str41(4) TYPE c VALUE 'cdef', 5       str42(4) TYPE c VALUE 'klmn', 6       str43(2) TYPE c VALUE 'kl', 7       str44(6) TYPE c VALUE 'klmnop', 8       len4 TYPE i VALUE 2. 9 10 string4 = t4.11 WRITE string4.12 REPLACE str41 WITH str42 INTO string4.13 WRITE / string4.14 string4 = t4.15 REPLACE str41 WITH str42 INTO string4 LENGTH len4.16 WRITE / string4.17 string4 = t4.18 REPLACE str41 WITH str43 INTO string4.19 WRITE / string4.20 string4 = t4.21 REPLACE str41 WITH str44 INTO string4.22 WRITE / string4.

----------------------------------------------

输出结果：

abcdefghij

abklmnghij

abklmnefgh

abklghij 

abklmnopgh

--------------------------------------------------------

 

SERACH:搜索指定字符串. 通过SY_SUBRC取值得到查询结果.

SERACH f FOR g.

[ABBREVIATED] : 从指定字符串中按顺序搜索相匹配字符串 abbreviated

[STARTING AT n1 ]：从字符串第n1个字符串开始搜索

[ENDING AT n2 ]：搜索到字符串第 n2个字符为止

[AND MARK]：从指定字符串中模糊搜索相匹配字符串

 1 *searching strings 2 DATA string7(30) TYPE c VALUE 'This is a little sentence.'. 3 WRITE: / 'Searched', 'SY-SUBRC', 'SY-FDPOS'. 4  5 ULINE /1(26). 6 SEARCH string7 FOR 'X'. 7 WRITE: / 'X', sy-subrc UNDER 'SY-SUBRC', 8                sy-fdpos UNDER 'SY-FDPOS'. 9 SEARCH string7 FOR 'itt   '.10 WRITE: / 'itt   ', sy-subrc UNDER 'SY-SUBRC',11                    sy-fdpos UNDER 'SY-FDPOS'.12 SEARCH string7 FOR '.e .'.13 WRITE: / '.e .', sy-subrc UNDER 'SY-SUBRC',14                   sy-fdpos UNDER 'SY-FDPOS'.15 SEARCH string7 FOR '*e'.16 WRITE: / '*e ', sy-subrc UNDER 'SY-SUBRC',17                 sy-fdpos UNDER 'SY-FDPOS'.18 SEARCH string7 FOR 's*'.19 WRITE: / 's* ', sy-subrc UNDER 'SY-SUBRC',20                 sy-fdpos UNDER 'SY-FDPOS'.

----------------------------------------------

输出结果：

Searched SY-SUBRC SY-FDPOS

--------------------------------------------

X            4        0

itt           0       11

.e .          0       15

*e           0       10

s*           0       17

----------------------------------------------

 1 * 2 DATA: string8(30) TYPE c VALUE 'This is a fast first example.', 3       pos8 TYPE i, 4       off8 TYPE i. 5  6 WRITE / string8. 7 SEARCH string8 FOR 'ft' ABBREVIATED. 8 WRITE: / 'SY-FDPOS:', sy-fdpos. 9 pos8 = sy-fdpos + 2.10 SEARCH string8 FOR 'ft' ABBREVIATED STARTING AT pos8 AND MARK.11 WRITE / string8.12 WRITE: / 'SY-FDPOS:', sy-fdpos.13 off8 = pos8 + sy-fdpos - 1.14 WRITE: / 'Off:', off8.

----------------------------------------------

输出结果：

This is a fast first example.

SY-FDPOS:    10

This is a fast FIRST example.

SY-FDPOS:     4

Off:         15

----------------------------------------------

 

SERACH itab FOR g.

[ABBREVIATED] : 从内表中按顺序逐行搜索相匹配字符串

[STARTING AT line1 ]：从字符串第n1个字符串开始搜索

[ENDING AT line2 ]：搜索最大范围到内表中具体某行

[AND MARK]：从内表中模糊搜索相匹配字符串

 

搜索内表与字符串操作一致: