Загрузка длинного текста из Excel файла

Удав

sergeyprotasoff написал(а):

Получается, что грузить 1000 без разбивки вообще не вариант?

У нас не получилось через OLE такое сделать.

MantiCore1977

только что проверил, загнал в ячейку Excel 1000+ символов
вычитал
сделал

Code:

    l = strlen( str2 ).
    WRITE str2+1000(2).

длина 1498, write выводит 2 символа из строки
у меня неправильный Excel?

даже так сделал, все выводит

Code:

    WHILE l < strlen( str2 ) - 100.
     WRITE / str2+l(100). 'не выводит WRITE больше чем на экран помещается:(
     l = l + 100.
    ENDWHILE.

Gustav

sergeyprotasoff, а Ваша версия SAP уже со string'ами? А запускать эту передачу данных Excel->SAP планируете на клиенте? Если да-да, то можно попробовать подход отсюда:

Загрузка большого объема данных из XLS
OLE2: CALL METHOD OF и необязательные аргументы

32767 символов (предел одной ячейки Excel) - без проблем! И не только это.

sergeyprotasoff

Gustav написал:

sergeyprotasoff, а Ваша версия SAP уже со string'ами? А запускать эту передачу данных Excel->SAP планируете на клиенте? Если да-да, то можно попробовать подход отсюда:

Загрузка большого объема данных из XLS
OLE2: CALL METHOD OF и необязательные аргументы

32767 символов (предел одной ячейки Excel) - без проблем! И не только это.

теперь с другим столкнулся, эту инфу из экселя нужно подгрузить в материалы (Доп. данные, Текст/ОсновнДанные), при записи отсекается только 132 символа, т.к. в TLINE поле в 132 символа, но не в этом суть:

Code:

DATA:lv_header TYPE thead,
                      lv_xerfmg TYPE string,
                      lt_lines TYPE STANDARD TABLE OF tline WITH HEADER LINE,
                      lv_header-tdobject = 'MATERIAL'.
                      lv_header-tdname = wa_datatab-col1. "код материала
                      lv_header-tdid  = 'GRUN'.
                      lv_header-tdspras = 'R'.
                      "склеиваю строки
                      APPEND lt_lines.
                      lt_lines-tdline = wa_datatab-col3.
                      APPEND lt_lines.
                      lt_lines-tdline = wa_datatab-col4.
                      CALL FUNCTION 'CREATE_TEXT'
                        EXPORTING
                          fid       = lv_header-tdid
                          flanguage = lv_header-tdspras
                          fname     = lv_header-tdname
                          fobject   = lv_header-tdobject
                        TABLES
                        flines    = lt_lines[].

суть в том, что между склеиваемыми строками добавляется символ перевода каретки! Как от него избавиться? :?:

sergeyprotasoff

точнее так:

lt_lines-tdline = wa_datatab-col2.
APPEND lt_lines.
lt_lines-tdline = wa_datatab-col3.
APPEND lt_lines.
lt_lines-tdline = wa_datatab-col4.
APPEND lt_lines.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
fid = lv_header-tdid
flanguage = lv_header-tdspras
fname = lv_header-tdname
fobject = lv_header-tdobject
TABLES
flines = lt_lines[].

Gustav

sergeyprotasoff написал(а):

суть в том, что между склеиваемыми строками добавляется символ перевода каретки! Как от него избавиться?

Как-то так, наверное?

Code:

REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN вашаСтрока WITH ``.

sergeyprotasoff

Gustav написал:

sergeyprotasoff написал(а):

суть в том, что между склеиваемыми строками добавляется символ перевода каретки! Как от него избавиться?

Как-то так, наверное?

Code:

REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN вашаСтрока WITH ``.

REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN lt_lines-tdline WITH ''.
Не помогает, не понятно на каком этапе этот символ появляется, похоже, что после APPEND.

sergeyprotasoff

MantiCore1977 написал:

только что проверил, загнал в ячейку Excel 1000+ символов
вычитал
сделал

Code:

    l = strlen( str2 ).
    WRITE str2+1000(2).

длина 1498, write выводит 2 символа из строки
у меня неправильный Excel?

даже так сделал, все выводит

Code:

    WHILE l < strlen( str2 ) - 100.
     WRITE / str2+l(100). 'не выводит WRITE больше чем на экран помещается:(
     l = l + 100.
    ENDWHILE.

спасибо! действительно работает) не было бы печали если бы ещё не загрузка этого длинного текста в подробные тексты материала (см.предыдущий пост).....грузится только по 132 символа, а если склеивать, то перевод каретки на стыке появляется :twisted:

Правила форума

Загрузка длинного текста из Excel файла

Кто сейчас на конференции