06 февраля 2021

Чтение файла с сервера приложений

Загружаем файл с сервера приложений.

  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 содержит данные файла

Комментариев нет:

Отправить комментарий