如何在abap中拆分多次？

Question

我想将我的代码拆分到一个工作区并将其附加到内部 table 以供稍后执行。

但有时文本包含 3 个以上的数字，例如 3;5;3;6;2;5，但它总是 3,6,9,12... 数字。我要循环3次，然后是下3个数字等等的问题，如何解决？

DATA: text(100) type c,
it_1 TYPE STANDART TABLE LIKE text,
it_2 TYPE STANDART TABLE LIKE text,
it_3 TYPE STANDART TABLE LIKE text,
string(100) TYPE c.


text = '123;2;2'.

SPLIT text AT ';' INTO  wa_1-c1 wa_1-c2 wa_1-c3.

APPEND wa_1-c1 to it_1.
APPEND wa_1-c2 to it_2.
APPEND wa_1-c3 to it_3.

LOOP at it_1 INTO string.
PERFORM task using string.
ENDLOOP.

Answer 1

您应该使用 INTO TABLE 添加到 split 关键字而不是对字段进行硬编码。

DATA: text_s TYPE string.

text_s = '123;2;2'.

DATA: text_tab TYPE TABLE OF string.

SPLIT text_s AT ';' INTO TABLE text_tab.

LOOP AT text_tab ASSIGNING FIELD-SYMBOL(<line>).

  "do whatever on each token here

ENDLOOP.

Answer 2

这会将字符串拆分为 3-er 块，同时用其余部分覆盖它：

WHILE text IS NOT INITIAL.
  SPLIT AT ';'
        INTO wa_1-c1
             wa_1-c2
             wa_1-c3
             text.
  APPEND: wa_1-c1 to it_1,
          wa_1-c2 to it_2,
          wa_1-c3 to it_3.
ENDWHILE.

请注意，字符串变量text最后会是初始值，如果还需要它的原始值，那么你可以定义另一个字符串，复制值并使用它一个用于拆分。

Answer 3

如果您想控制迭代三次，并且您将文本值保存在 3 个不同的内部表中，您可以尝试使用 Sy-tabix。

DATA: text(100) type c,
it_1 TYPE STANDARD TABLE OF text,
it_2 TYPE STANDARD TABLE OF text,
it_3 TYPE STANDARD TABLE OF text,
string(100) TYPE c.

text = '123;2;2'.

SPLIT text AT ';' INTO  TABLE it_1.

LOOP at it_1 INTO string WHERE sy-tabix = 3.
WRITE : string.
ENDLOOP.
 if sy-tabix = 3.
   LOOP AT it_2 INTO string WHERE sy-tabix = sy-tabix+3.
     "do the next loop    
     ENDLOOP.
   ENDIF.

如何在abap中拆分多次？

How do I split multiple times in abap?

abap