拆分字符串
拆分字符串
*SPLIT <c> AT <del> INTO <c1> ... <cn>.
该语句在字符字段<c>搜索分界字符串<del>，并将分界符之前和之后的部分放到目标字段<c1>... <cn> 中。
要将所有部分放到不同目标字段中，必须指定足够目标字段。否则，用字段<c>的剩余部分填充最后目标字段并包含分界符。
如果所有目标字段足够长且不必截断任何部分，则将SY-SUBRC设置为0。否则，将其设置为4。* splitting strings
DATA: string10(60) TYPE c ,
p1(20) TYPE c VALUE '++++++++++++++++++++',
p2(20) TYPE c VALUE '++++++++++++++++++++',
p3(20) TYPE c VALUE '++++++++++++++++++++',
p4(20) TYPE c VALUE '++++++++++++++++++++',
del10(3) TYPE c VALUE '***'.
string10 = ' Part 1 *** Part 2 *** Part 3 *** Part 4 *** Part 5'.
WRITE string10.
SPLIT string10 AT del10 INTO p1 p2 p3 p4.
WRITE / p1.
WRITE / p2.
WRITE / p3.
WRITE / p4.
输出如下：
Part 1 *** Part 2 *** Part 3 *** Part 4 *** Part 5
Part 1
Part 2
Part 3
Part 4 *** Part 5
