ABAP实现粘贴板的操作，复制粘贴

ABAP可以实现复制粘贴的操作
自己玩儿
项目里暂时用不到

在ABAP中的 CLASS ：CL_GUI_FRONTEND_SERVICES中提供了两个方法来控制与剪贴板内容的导入导出，

分别是：CLIPBOARD_EXPORT和CLIPBOARD_IMPORT。

   
CLIPBOARD_EXPORT是将一个内表的内容导入到剪贴板中，示例程序如下：

复制
  

 DATA rc
TYPE i.

   
DATA:BEGIN OF itab OCCURS 0,

   
line(200) TYPE c ,

    END
OF itab.

   
itab-line = '好吧，你已经把我复制了……'.

   
APPEND itab.

    CALL
METHOD cl_gui_frontend_services=>clipboard_export

   
IMPORTING

   
data                
= itab[]

   
CHANGING

   
rc                  
= rc

   
*     
EXCEPTIONS

   
*       
CNTL_ERROR          
= 1

   
*       
ERROR_NO_GUI        
= 2

   
*       
NOT_SUPPORTED_BY_GUI = 3

   
*       
others              
= 4

   
.

    IF
sy-subrc <> 0.

   
*    
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

   
*               
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

   
ENDIF.

粘贴  
 

CLIPBOARD_IMPORT是将剪贴板中的内容导入到一个定义好的内表当中，示例程序如下：

    DATA
rc TYPE i.

   
DATA:BEGIN OF itab OCCURS 0,

   
line(200) TYPE c ,

    END
OF itab.

    CALL
METHOD cl_gui_frontend_services=>clipboard_import

   
IMPORTING

   
DATA                
= itab[]      
    "粘贴板内数据

   
LENGTH              
= rc      
     
  "一共几行

   
*  EXCEPTIONS

   
*   
CNTL_ERROR          
= 1

   
*   
ERROR_NO_GUI        
= 2

   
*   
NOT_SUPPORTED_BY_GUI = 3

   
*   
others              
= 4

   
.

    IF
sy-subrc <> 0.

    *
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

   
*           
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

   
ENDIF.

   
write: '粘贴板中一共' ,rc,' 行数据，如下：'.

    loop
at itab.

   
write / itab-line.

   
endloop.