上载和下载CSV文件

sap中把txt 、excel 、文件上载到内表中，txt和csv速度最快。

excel文件导出的csv是用,分隔符分隔的，如果单元格的文本中就有逗号，这样会和分隔符逗号混淆，最好abap产生csv文件模板，代码如下：

REPORT  ztest_bapi.
TYPE-POOLS truxs.

TYPES: BEGIN OF ty_csv,
  name1 TYPE char10,
  name2 TYPE char10,
  name3 TYPE char10,
  name4 TYPE char10,
  END OF ty_csv.

DATA: w_filename TYPE string,
      w_file_path TYPE string,
      w_full_path TYPE string,
      lt_tabout TYPE STANDARD TABLE OF ty_csv,
      ls_tabout TYPE  ty_csv.
DATA: lt_title  TYPE truxs_t_text_data WITH HEADER LINE.

constants: c_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB.

FIELD-SYMBOLS <fs> TYPE ANY.

ls_tabout-name1 = '物料1'.
ls_tabout-name2 = '物料2'.
ls_tabout-name3 = '物料3'.
ls_tabout-name4 = '物料4'.
APPEND ls_tabout TO lt_tabout.

CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      default_extension    = 'CSV'
      default_file_name    = '*'
      file_filter          = 'CSV文件(*.CSV)'
    CHANGING
      filename             = w_filename
      path                 = w_file_path
      fullpath             = w_full_path
    EXCEPTIONS
      cntl_error           =
      error_no_gui         =
      not_supported_by_gui =
      OTHERS               = .

  IF sy-subrc <> .
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
* EXPORTING
*   I_FIELD_SEPERATOR          = ';'
*   I_LINE_HEADER              =
*   I_FILENAME                 =
*   I_APPL_KEEP                = ' '
  TABLES
    i_tab_sap_data             = lt_tabout
 CHANGING
   I_TAB_CONVERTED_DATA       = lt_title[]
 EXCEPTIONS
   CONVERSION_FAILED          =
   OTHERS                     =
          .
IF sy-subrc <> .
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*--更改分隔符 为tab键
LOOP AT lt_title ASSIGNING <fs> .
      REPLACE ALL OCCURRENCES OF ';' IN <fs> WITH c_tab.
 ENDLOOP.

*----下载模板
  CALL METHOD cl_gui_frontend_services=>gui_download
              EXPORTING
*                 bin_filesize            =
                filename                = w_filename
**                filetype                = 'DAT'
*                 codepage                = '8404'
*                 ignore_cerr             = ABAP_TRUE
*                 replacement             = '#'
              CHANGING
                data_tab                = lt_title[]
              EXCEPTIONS
                file_write_error        =
                no_batch                =
                gui_refuse_filetransfer =
                invalid_type            =
                no_authority            =
                unknown_error           =
                header_not_allowed      =
                separator_not_allowed   =
                filesize_not_allowed    =
                header_too_long         =
                dp_error_create         =
                dp_error_send           =
                dp_error_write          =
                unknown_dp_error        =
                access_denied           =
                dp_out_of_memory        =
                disk_full               =
                dp_timeout              =
                file_not_found          =
                dataprovider_exception  =
                control_flush_error     =
                not_supported_by_gui    =
                error_no_gui            =
                OTHERS                  = .

  IF sy-subrc <> .
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.