如何在ABAP报表中随机打乱字符串类型内表的顺序？

嗨，这个问题我刚好在项目里处理过！ABAP里其实有几种实用的方式来实现内表的随机排序，既有适合高版本的简洁写法，也有老版本能用的方案，我给你详细拆解下：

一、ABAP 7.40+ 推荐用法：内表排序+随机数字段 #

从ABAP 7.40开始，我们可以借助新语法和随机数工具快速实现，步骤非常清晰：

1. 给原内表的每条记录绑定一个临时随机数字段（可以用临时结构体内表）
2. 生成随机数赋值给每个临时字段
3. 按随机数字段排序，最后提取原字段即可得到打乱顺序的内表

给你贴个可直接运行的代码示例：

TYPES: BEGIN OF ty_string_with_rand,
         value TYPE string,
         rand  TYPE i, " 临时存储随机数的字段
       END OF ty_string_with_rand.
DATA: ty_string_with_rand_table TYPE STANDARD TABLE OF ty_string_with_rand.

" 初始化原字符串内表
DATA(lt_original) = VALUE string_table( ( '苹果' ) ( '香蕉' ) ( '橘子' ) ( '葡萄' ) ).

" 生成带随机数的临时内表
DATA(lt_temp) = VALUE ty_string_with_rand_table( 
  FOR line IN lt_original ( 
    value = line 
    rand = cl_abap_random_int=>create( seed = CONV i( sy-uzeit ) )->get_next( min = 0 max = 999999 ) 
  ) 
).

" 按随机数字段排序
SORT lt_temp BY rand ASCENDING.

" 提取打乱后的结果内表
DATA(lt_shuffled) = VALUE string_table( FOR line IN lt_temp ( line-value ) ).

这里用cl_abap_random_int类生成随机数，比直接用RANDOM函数更可控，用sy-uzeit做种子能保证每次运行的打乱结果都不一样。

二、老版本ABAP（7.40以下）：函数模块或手动洗牌 #

如果你的系统版本比较老，没法用上面的新语法，这两种方案也能搞定：

1. 借助函数模块生成随机数后排序 #

可以用RS_RANDOM_INT这个函数模块生成随机整数，逻辑和高版本类似，只是写法更传统：

TYPES: BEGIN OF ty_string_with_rand,
         value TYPE string,
         rand  TYPE i,
       END OF ty_string_with_rand.
DATA: lt_original TYPE string_table,
      lt_temp     TYPE STANDARD TABLE OF ty_string_with_rand,
      ls_temp     TYPE ty_string_with_rand,
      lv_rand     TYPE i.

" 初始化原内表
lt_original = VALUE #( ( '苹果' ) ( '香蕉' ) ( '橘子' ) ( '葡萄' ) ).

" 给每条记录分配随机数
LOOP AT lt_original INTO DATA(lv_string).
  CALL FUNCTION 'RS_RANDOM_INT'
    EXPORTING
      min = 0
      max = 999999
    IMPORTING
      rnd = lv_rand.
  ls_temp-value = lv_string.
  ls_temp-rand = lv_rand.
  APPEND ls_temp TO lt_temp.
ENDLOOP.

" 按随机数排序
SORT lt_temp BY rand.

" 提取结果
REFRESH lt_original.
LOOP AT lt_temp INTO ls_temp.
  APPEND ls_temp-value TO lt_original.
ENDLOOP.

2. 手动实现Fisher-Yates洗牌算法 #

如果不想用临时内表，直接在原内表上操作的话，经典的Fisher-Yates洗牌算法是个好选择，效率很高，适合数据量大的场景：

DATA: lt_original TYPE string_table,
      lv_index    TYPE i,
      lv_temp_str TYPE string,
      lv_rand_idx TYPE i.

" 初始化原内表
lt_original = VALUE #( ( '苹果' ) ( '香蕉' ) ( '橘子' ) ( '葡萄' ) ( '芒果' ) ).

" 执行Fisher-Yates洗牌
DO lines( lt_original ) - 1 TIMES.
  lv_index = sy-index.
  " 生成从当前索引到最后一条记录的随机索引
  CALL FUNCTION 'RS_RANDOM_INT'
    EXPORTING
      min = lv_index
      max = lines( lt_original )
    IMPORTING
      rnd = lv_rand_idx.
  " 交换当前元素和随机索引的元素
  lv_temp_str = lt_original[ lv_index ].
  lt_original[ lv_index ] = lt_original[ lv_rand_idx ].
  lt_original[ lv_rand_idx ] = lv_temp_str.
ENDDO.

三、有没有直接的内置方法？ #

很遗憾，ABAP并没有提供直接打乱内表顺序的内置函数模块或方法，上面的几种方式都是借助随机数+排序，或者手动洗牌来实现的，不过实现起来都不算复杂，根据你的系统版本选对应的方案就行。

内容的提问来源于stack exchange，提问作者Matthias