ABAP字符串处理

字符串中包含单引号：单引号前面再加一个单引号

例：jest~stat = 'E0002'

   jest~stat = 'E0003' OR jest~stat = 'E0004'

IF z_stat IS INITIAL.
  z_stat = 'jest~stat = ''E0002'''.
ELSE.
  z_stat = 'jest~stat = ''E0003'' OR jest~stat = ''E0004'''.
ENDIF.

1、连接字符串

CONCATENATE {dobj1 dobj2 ...}|{LINES OF itab} 
             INTO result 
             [IN {BYTE|CHARACTER} MODE] 
            [SEPARATED BY sep] 
            [RESPECTING BLANKS]. 

 

2、拆分字符串：

SPLIT dobj AT sep INTO 
      { {result1 result2 ...} | {TABLE result_tab} } 
      [IN {BYTE|CHARACTER} MODE].

例：

DATA: str  TYPE string VALUE '字符串一 字符串二 字符串三 字符串四',
      str1 TYPE string,
      str2 TYPE string,
      str3 TYPE string.
SPLIT str AT space INTO str1 str2 str3.
WRITE: / str1, / str2, / str3.
字符串一
字符串二
字符串三 字符串四

注意：没有足够的目标字段，则用str的剩余部分填充最后目标字段。

可以用一个内表来接收拆分后的子串，可以自动增长，就不用担心目标字段不够用了。例子如下：

DATA: str    TYPE string VALUE '字符串一 字符串二 字符串三 字符串四'.
DATA: it_str TYPE TABLE OF string,
      wa_str LIKE LINE OF it_str.
SPLIT str AT space INTO TABLE it_str.
LOOP AT it_str INTO wa_str.
  WRITE: / wa_str.
ENDLOOP.
字符串一
字符串二
字符串三
字符串四

segment()函数

segment( val = text index = idx [sep|space = sep] )

根据指定的字符串sep或者指定的字符sapce来将text拆分，并返回第idx（从1开始）个片断

 

3、截断字符串：

SHIFT {c} [BY {n} PLACES] [{mode}].：

 

字符串移动

 

字符串替换

替换指定的字符串（老式的，已过时的）

REPLACE sub_string WITH new INTO dobj 
        [IN {BYTE|CHARACTER} MODE] 
        [LENGTH len].

 

替换某个区间上的字符串

REPLACE SECTION [OFFSET off] [LENGTH len] OF dobj WITH new
                [IN {BYTE|CHARACTER} MODE].

OFFSET or LENGTH必须要指定一个，如果指定了OFFSET，但未指定LENGTH时，替换的内容从OFFSET到dobj的最后；如果指定了LENGTH，但未指定OFFSET时，OFFSET将隐含为0。OFFSET与LENGTH需要大于或等于0，通过OFFSET与LENGTH定位到的子字符串段必须要位于dobj里。

replace

返回码：

0 ——替换成功，并且结果未被截断

2 ——替换成功，但结果右边被截断

4 ——未找到要替换的字符串

 

replace()函数regex

replace( val = text [off = off] [len = len] with = new )

replace( val = text {sub = substring}|{regex = regex} with = new [case = case] [occ = occ] )

使用new替换指定的子符串，返回String类型。

 

搜索字符串

SEARCH <c> FOR <str> <options>.

contains()函数regex

matches()函数regex

count()函数regex