Загружаем файл с сервера приложений.
DATA:
lv_file(100)
lv_file_size TYPE i,
lv_size TYPE i,
lv_xstring TYPE xstring,
lt_data TYPE solix_tab,
lt_data_tmp TYPE solix_tab,
ls_data_tmp LIKE LINE OF lt_data_tmp.
lv_file = '/tmp/test-1.xlsx'.
OPEN DATASET lv_file FOR INPUT IN BINARY MODE.
IF sy-subrc = 0.
DO.
READ DATASET lv_file INTO lv_xstring.
IF sy-subrc = 0.
lv_size = xstrlen( lv_xstring ).
ADD lv_size TO lv_file_size.
REFRESH lt_data_tmp.
TRY.
CALL METHOD cl_bcs_convert=>xstring_to_xtab
EXPORTING
iv_xstring = lv_xstring
IMPORTING
et_xtab = lt_data_tmp.
CATCH cx_bcs .
ENDTRY.
INSERT LINES OF lt_data_tmp INTO TABLE lt_data.
ELSE.
EXIT.
ENDIF.
ENDDO.
ENDIF.
CLOSE DATASET lv_file.
" lt_data содержит данные файла
Комментариев нет:
Отправить комментарий