UI里面excel数据上传并解析的例子（CSV格式）

可以参考系统的例子 CRM_THTMLB_COMP/FileUploadTag 。

下面的是一个简单的CSV格式示例。

METHOD eh_onuploadfile.

  DATA lv_flag TYPE char1.
  DATA lv_value TYPE string .

***实例化前台消息容器
* -------------------------------------------------------------------
* get BOL core (for message handling)
  DATA lr_bol_core                   TYPE REF TO cl_crm_bol_core.
  DATA lr_message_container_manager  TYPE REF TO cl_crm_genil_mess_cont_manager.
  DATA lr_message_container          TYPE REF TO cl_crm_genil_global_mess_cont.
* get BOL core
  lr_bol_core = cl_crm_bol_core=>get_instance( ).
* get current message container manager
  lr_message_container_manager = lr_bol_core->get_message_cont_manager( ).
* get message container
  lr_message_container = lr_message_container_manager->get_global_message_cont( ).
* -------------------------------------------------------------------

  AUTHORITY-CHECK OBJECT 'ZXXXXXXX'
           ID 'ACTVT' FIELD '01'.

  IF sy-subrc <> 0."权限检查

    CALL METHOD lr_message_container->add_message
      EXPORTING
        iv_msg_type       = 'E'
        iv_msg_id         = 'ZXXXXX'
        iv_msg_number     = '001'
        iv_show_only_once = 'X'.

    EXIT.
  ENDIF.

***实例化上传数据控件并使用
* -------------------------------------------------------------------
* get the file attributes and content
  DATA lr_file         TYPE REF TO cl_thtmlb_fileupload.
  DATA lv_file_name    LIKE lr_file->file_name.
  DATA lv_file_content LIKE lr_file->file_content.
  DATA lv_file_length  LIKE lr_file->file_length.
  DATA lv_file_type    LIKE lr_file->file_content_type.
  DATA lv_length       TYPE i.

  lr_file ?= htmlb_event_ex.

  lv_file_name    = lr_file->file_name.
  lv_file_content = lr_file->file_content.
  lv_file_length  = lr_file->file_length.
*lv_file_type    = lr_file->file_content_type.
*CHECK lv_file_type = 'application/vnd.ms-excel'.

* get the last 4 bites of the file name
  lv_length = strlen( lv_file_name ).
  CHECK lv_length > 4.
  lv_length = lv_length - 4.

* check the file type
  IF lv_file_name+lv_length(4) <> '.csv'.
    CALL METHOD lr_message_container->add_message  "判断格式是不是csv
      EXPORTING
        iv_msg_type       = 'E'
        iv_msg_id         = 'ZXXXXX'
        iv_msg_number     = '002'
        iv_show_only_once = 'X'.

    EXIT.
  ENDIF.

***将二进制流转换为string
  DATA lr_converter TYPE REF TO cl_abap_conv_in_ce.
  DATA lv_filestring TYPE string .

  CALL METHOD cl_abap_conv_in_ce=>create
    EXPORTING
      encoding    = 'NON-UNICODE'
      endian      = 'L'
      replacement = '#'
      ignore_cerr = abap_true
      input       = lv_file_content
    RECEIVING
      conv        = lr_converter.

  lr_converter->read( IMPORTING data = lv_filestring ).

  DATA itab_data TYPE STANDARD TABLE OF string.
  DATA wa_itab_data  TYPE string .
  DATA lin2 TYPE i.
  DATA ls_zxxxxxxx TYPE zxxxxxxx .
  DATA lt_zxxxxxxx TYPE TABLE OF zxxxxxxx.


****将string切分成一行一条数据的内表
  SPLIT lv_filestring AT cl_abap_char_utilities=>cr_lf INTO TABLE itab_data.
  DELETE itab_data INDEX 1.

  DESCRIBE TABLE itab_data LINES lin2 .

  IF lin2 = 0 ."数据异常
    CALL METHOD lr_message_container->add_message
      EXPORTING
        iv_msg_type       = 'E'
        iv_msg_id         = 'ZXXXXX'
        iv_msg_number     = '003'
        iv_show_only_once = 'X'.

    EXIT.
  ENDIF.


***整理上传的数据到内表2
  DATA lin3 TYPE i.
  DATA lv_tabix TYPE string.
  DATA itab_data2 TYPE STANDARD TABLE OF string.
  DATA wa_itab_data2  TYPE string .

  DATA lv_sa TYPE string .
  DATA lv_sb TYPE string .
  DATA lv_sc TYPE string .

  LOOP AT itab_data INTO wa_itab_data.

    lv_tabix = sy-tabix .

***因为可能出现双引号中带逗号的数值形式，所以必须要去除这样的逗号和双引号
    CLEAR:lv_sa,lv_sb,lv_sc.
    DO 10 TIMES .

      SPLIT wa_itab_data AT '"' INTO lv_sa lv_sb.
      IF lv_sb IS INITIAL  .
        EXIT.
      ENDIF.
      SPLIT lv_sb AT '"' INTO lv_sc lv_sb.
      REPLACE ALL OCCURRENCES OF ',' IN lv_sc WITH ''.
      CONCATENATE lv_sa lv_sc lv_sb INTO wa_itab_data .

    ENDDO.

    REFRESH itab_data2.
    SPLIT wa_itab_data AT ','  INTO TABLE itab_data2.

    DESCRIBE TABLE itab_data2 LINES lin3 .

    IF lin3 <> 99."列数改变了 每行的列数应该是固定值和内表结构一一对应
      CALL METHOD lr_message_container->add_message
        EXPORTING
          iv_msg_type       = 'E'
          iv_msg_id         = 'ZXXXXX'
          iv_msg_number     = '004'
          iv_show_only_once = 'X'
          iv_msg_v1         = lv_tabix
          iv_msg_v2         = '列数不是99'.

      EXIT.

    ENDIF.

    CLEAR ls_zxxxxxxx.

    CLEAR wa_itab_data2.
    READ TABLE itab_data2  INDEX 1 INTO wa_itab_data2.
    IF wa_itab_data2 IS INITIAL.
      CALL METHOD lr_message_container->add_message
        EXPORTING
          iv_msg_type       = 'E'
          iv_msg_id         = 'ZXXXXX'
          iv_msg_number     = '005'
          iv_show_only_once = 'X'
          iv_msg_v1         = lv_tabix
          iv_msg_v2         = '第一列值为空'.

      EXIT.

    ELSE.
      ls_zxxxxxxx-col1 = wa_itab_data2.
    ENDIF.

   
    CLEAR wa_itab_data2.
    READ TABLE itab_data2  INDEX 88 INTO wa_itab_data2.
    TRY .
        ls_zxxxxxxx-col88 = wa_itab_data2.
      CATCH cx_root.
        CALL METHOD lr_message_container->add_message
          EXPORTING
            iv_msg_type       = 'E'
            iv_msg_id         = 'ZXXXXX'
            iv_msg_number     = '006'
            iv_show_only_once = 'X'
            iv_msg_v1         = lv_tabix
            iv_msg_v2         = '列【88】填入的不是正确的数值类型'.

        EXIT.
    ENDTRY.

    CLEAR wa_itab_data2.
    READ TABLE itab_data2  INDEX 99 INTO wa_itab_data2.
    IF wa_itab_data2 IS NOT INITIAL."日期可能用户没填 防止报错

      CALL FUNCTION 'CONVERT_DATE_INPUT' "#EC NOTEXT
        EXPORTING
          input                     = wa_itab_data2
          plausibility_check        = 'X'
        IMPORTING
          output                    = ls_zxxxxxxx-col99
        EXCEPTIONS
          plausibility_check_failed = 1
          wrong_format_in_input     = 2
          OTHERS                    = 3.
      IF sy-subrc <> 0.

        CALL METHOD lr_message_container->add_message
          EXPORTING
            iv_msg_type       = 'E'
            iv_msg_id         = 'ZXXXXX'
            iv_msg_number     = '007'
            iv_show_only_once = 'X'
            iv_msg_v1         = lv_tabix
            iv_msg_v2         = '列【99】填入的不是正确的日期类型，年月日以点分割,一年只有12个月，一个月最多31天，2月份也没有29号。'.

        EXIT.

      ENDIF.
    ENDIF.

    APPEND ls_zxxxxxxx TO lt_zxxxxxxx .

  ENDLOOP.

ENDMETHOD.