ABAP：截取字符串（Start Routine）

需求：

有主数据ZPLANT，取自工厂描述的一部分，用'-'隔开，比如"工厂A-北京"，ZPLANT只需要"工厂A"。

怎么解决呢：

写在Start Routine里，

DATA:

Z_RES_WA TYPE MATCH_RESULT,

Z_RES_TAB TYPE MATCH_RESULT_TAB,

Z_DATA TYPE _ty_s_SC_1,

Z_OFFSET TYPE I.

LOOP AT SOURCE_PACKAGE INTO Z_DATA.

IF Z_DATA-WERKS(1) <> 'A'.

FIND ALL OCCURRENCES OF REGEX '-' IN Z_DATA-TXTMD RESULTS

Z_RES_TAB.

LOOP AT Z_RES_TAB INTO Z_RES_WA.

Z_DATA-TXTMD = Z_DATA-TXTMD(Z_RES_WA-OFFSET).

ENDLOOP.

MODIFY SOURCE_PACKAGE FROM Z_DATA.

ELSE.

DELETE SOURCE_PACKAGE WHERE WERKS = Z_DATA-WERKS.

ENDIF.

ENDLOOP.

这里了利用了：

FIND ALL OCCURRENCES OF REGEX '-' IN Z_DATA-TXTMD RESULTS

Z_RES_TAB.

这里的RESULTS放在类型为MATCH_RESULT_TAB的表里。



表的行项目为MATCH_RESULT。

有如下参数：



这里说说OFFSET，就是偏移量，想截取，只需要STRING（OFFSET）就哦了~

然后截取完了赋值，赋值完了修改内表，over。