ABAP字符串操作

1. 字符串连接

CONCATENATE dobj1 dobj2 ... INTO result.

2.字符串分隔, split 一个string的部分到一个内表或一系列的变量

DATA: str1 TYPE string,
str2 TYPE string,
str3 TYPE string,
itab TYPE TABLE OF string,
text TYPE string.
text = `What a drag it is getting old`.
SPLIT text AT space INTO: str1 str2 str3,
TABLE itab.

3. 字符串查找, 在一个字符串中查找模式串(FIND or SEARCH)

FIND 'knows'
IN SECTION OFFSET 5 OF 'Everybody knows this is nowhere'
MATCH OFFSET moff " => moff = 10
MATCH LENGTH mlen. " => mlen= 5

 

在字符串dobj中查找pattern
SEARCH dobj FOR pattern [IN { BYTE | CHARACTER } MODE]
[STARTING AT p1] [ENDING AT p2]
[ABBREVIATED]
[AND MARK].
if sy-subrc = 0. then SY-FDPOS = 返回pattern在dobj中的位置
About pattern:
'pat' - 忽略尾部空格
'.pat.' -不忽略尾部空格
'*pat' - 以pat结尾
'pat*' - 以pat开始
单词是指:　用 空格 , ; : ? ! () / + =分隔的字串

4. 字符串替换

DATA: text1 TYPE string VALUE 'xababx'.
REPLACE 'ab' IN text1 WITH 'xx'. --> xxxabx

5. 去前导0 (Remove leading zero)

SHIFT dobj LEFT DELETING LEADING '0'.
FM : CONVERSION_EXIT_ALPHA_OUTPUT

6. 增前导0 (Add leading zero)

DATA v_s(5).
UNPACK '123' to v_s. ==> v_s = '00123'
FM: CONVERSION_EXIT_ALPHA_INPUT

7. 字符串的长度, 内表的行数
STRLEN( dobj) 字符串的长度
LINES( itab ) 内表的行数

8. 删字符串中的空格

CONDENSE text.         "在每個連接串中間會有一個空格
CONDENSE text No-GAPS. "在後面加入NO-GAPS後，所有空格都會去除。

9. 大小写转换，字符变换
DATA text TYPE string.
text = `Careful with that Axe, Eugene`.
TRANSLATE text TO UPPER CASE. "大写
TRANSLATE text TO LOWER CASE. "小写

 

DATA text TYPE string.
text = 'Barbcbdbarb'.
TRANSLATE text USING 'ABBAabba'.　“A与B转换 a与b转换

10. 特殊字符
在字符串中加入回车换行或TAB字符，在其他语言可以使用$13$10这样的ASCII码进行插入.但在ABAP中要使用sap的类CL_ABAP_CHAR_UTILITIES. 里面有字符常量:CR_LF,HORIZONTAL_TAB,NEWLINE等等.

11. 字符串位操作
DATA: v_s(10) value 'abcd'.
v_s+0(1) = 'b'.
v_s+2(*) = '12'.
=> v_s = 'bb12'.