AT NEW是否具有子字符串访问权限

Question

我有一个解决方案，其中包括一个我想要备用的LOOP。所以我想知道，你是否知道更好的方法来做到这一点。

我的目标是循环浏览一个内部的、按字母顺序排序的标准表。这个表有两列：一个名称和一个表，我们称之为子表。对于每一个子表，我都想做一些事情(在我的xml框架中打开一个xml页面)。

现在，每个子表都有一个相应的名称。我想根据这个名称的第一个字母对子表进行分组(意思是，将这些子表的页面放在一个主页上-每个字符一个主页-)。通过对子表进行分组，我的意思是，在表中循环时，我希望根据子表名称的第一个字母以不同的方式处理子表。

到目前为止，我提出了以下解决方案：

TYPES: BEGIN OF l_str_tables_extra,
first_letter(1) TYPE c,
name TYPE string,
subtable TYPE REF TO if_table,
END OF l_str_tables_extra.
DATA: ls_tables_extra TYPE l_str_tables_extra.
DATA: lt_tables_extra TYPE TABLE OF l_str_tables_extra.
FIELD-SYMBOLS: <ls_tables> TYPE str_table."Like LINE OF lt_tables.
FIELD-SYMBOLS: <ls_tables_extra> TYPE l_str_tables_extra.

*"--- PROCESSING LOGIC ------------------------------------------------
SORT lt_tables ASCENDING BY name.
"Add first letter column in order to use 'at new' later on
"This is the loop I would like to spare
LOOP AT lt_tables ASSIGNING <ls_tables>.
ls_tables_extra-first_letter = <ls_tables>-name+0(1). "new column
ls_tables_extra-name = <ls_tables>-name.
ls_tables_extra-subtable = <ls_tables>-subtable.
APPEND ls_tables_extra TO lt_tables_extra.
ENDLOOP.
LOOP AT lt_tables_extra ASSIGNING <ls_tables_extra>.
AT NEW first_letter.
"Do something with subtables with same first_letter.
ENDAT.
ENDLOOP.

我希望我能使用

AT NEW name+0(1)

而不是

AT NEW first_letter

，但不允许偏移和长度。

你看，我必须插入第一个循环来向我的表中添加另一列，这是不必要的，因为没有获得新的信息。

此外，我对其他解决方案感兴趣，因为后来由于不同的原因，我在框架方面遇到了麻烦。一种不同的方法可能也会对我有所帮助。

我很高兴听到任何关于这件事的想法！我在stackoverflow上找不到任何与此相关的内容，但我可能使用了非最佳搜索词；)

Answer 1

在这种情况下，LOOP上添加GROUP BY可能会对您有所帮助：

LOOP AT i_tables
INTO DATA(wa_line)
" group lines by condition
GROUP BY (
" substring() because normal offset would be evaluated immediately
name = substring( val = wa_line-name len = 1 )
) INTO DATA(o_group).
" begin of loop over all tables starting with o_group-name(1)
" loop over group object which contains 
LOOP AT GROUP o_group
ASSIGNING FIELD-SYMBOL(<fs_table>).
" <fs_table> contains your table
ENDLOOP.
" end of loop
ENDLOOP.

Answer 2

为什么不使用IF比较？

data: lf_prev_first_letter(1) type c.
loop at lt_table assigning <ls_table>.
if <ls_table>-name(1) <> lf_prev_first_letter. "=AT NEW
"do something
lf_prev_first_letter = <ls_table>-name(1).
endif.
endloop.