拆分字符串

拆分字符串

*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
RIPRO主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
SapiBook » 拆分字符串

发表评论