如何获取 ABAP 内表中的重复项

要识别 ABAP 内表中的重复项，可以结合使用排序和循环。下面的示例展示了如何查找内部表中的重复条目：

DATA: BEGIN OF itab OCCURS 0,field1 TYPE i,field2 TYPE c LENGTH 10,END OF itab,wa LIKE LINE OF itab.* Add sample data to internal table
itab-field1 = 1. itab-field2 = 'A'. APPEND itab.
itab-field1 = 2. itab-field2 = 'B'. APPEND itab.
itab-field1 = 1. itab-field2 = 'A'. APPEND itab.
itab-field1 = 3. itab-field2 = 'C'. APPEND itab.
itab-field1 = 2. itab-field2 = 'B'. APPEND itab.* Sort internal table by the fields you want to check duplicates for
SORT itab BY field1 field2.* Compare current record with

在 ABAP 中，您可以使用简单的逻辑来识别和显示内表中的重复数据。一种常见的方法是使用 SORT 和 DELETE ADJACENT DUPLICATES 来标记或分离重复数据。但是，如果要保留重复数据以作进一步处理或显示，则可以使用另一种使用循环的方法。

下面的示例展示了如何查找和显示内表中的重复数据：

TYPES: BEGIN OF ty_data,id   TYPE i,name TYPE string,END OF ty_data.DATA: lt_table TYPE TABLE OF ty_data,ls_table TYPE ty_data,lt_duplicates TYPE TABLE OF ty_data." Populate the internal table with test data
APPEND VALUE #( id = 1 name = 'John' ) TO lt_table.
APPEND VALUE #( id = 2 name = 'Jane' ) TO lt_table.
APPEND VALUE #( id = 3 name = 'John' ) TO lt_table.
APPEND VALUE #( id = 4 name = 'Alice' ) TO lt_table.
APPEND VALUE #( id = 5 name = 'Jane' ) TO lt_table.
APPEND VALUE #( id = 6 name = 'John' ) TO lt_table." Sort the internal table by name or ID to find duplicates
SORT lt_table BY name." Loop through the table to find duplicates
LOOP AT lt_table INTO ls_table.AT END OF name.IF sy-tabix - sy-tabbix > 1.LOOP AT lt_table FROM sy-tabbix TO sy-tabix INTO ls_table.APPEND ls_table TO lt_duplicates.ENDLOOP.ENDIF.ENDAT.
ENDLOOP." Display the duplicates
LOOP AT lt_duplicates INTO ls_table.WRITE: / 'Duplicate:', ls_table-id, ls_table-name.
ENDLOOP.

说明：

1. 内部表（lt_table）： 该表存储数据记录。
2. 排序： 该表按预计会发现重复记录的列（本例中 name ）排序。
3. 使用 AT END OF 循环：检查一组记录是否具有相同的键（本例中 name）。如果发现某个键有多条记录，这些条目就会被识别为重复。
4. 重复处理： 如果发现重复记录，则将其收集到 lt_duplicates 表中。
5. 显示： 然后使用 LOOP 显示重复数据。
   这种方法可确保检测到重复数据，并将其存储在单独的内部表中，以便进一步处理。