ABAP 二进制流转换成本地文件 DEMO

最新推荐文章于 2023-12-07 16:28:21 发布

原创

最新推荐文章于 2023-12-07 16:28:21 发布 · 604 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#服务器 #java #linux #数据库 #前端 #开发语言

该段代码展示了在SAPABAP环境中，用户如何通过GUI服务打开文件对话框选择文本文件，进行上传，对文件内容进行Base64解码，然后将解码后的数据转换为二进制，最终下载到本地。主要涉及文件操作和数据编码转换。

*&---------------------------------------------------------------------*
*& Report YTEST0003
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YTEST0003.
DATA: FILENAME TYPE STRING VALUE 'C:\a.txt'.

TYPES: BEGIN OF ITAB,
         FL1 TYPE STRING,
       END OF ITAB.

DATA: DATA_TAB TYPE STANDARD TABLE OF ITAB,
      WA_TAB   LIKE LINE OF DATA_TAB.

DATA : L_RC        TYPE  I,
       L_FILETABLE TYPE FILETABLE.
DATA:lv_string TYPE string.


PARAMETERS: P_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\a.txt'.         "物料导入摸版

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE            = '请选择本地文件'
*     DEFAULT_EXTENSION       =
*     DEFAULT_FILENAME        =
      FILE_FILTER             = '文本文件 (*.txt)|*.txt|全部文件 (*.*)|*.*|'
      INITIAL_DIRECTORY       = SPACE