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.