Загрузка документа MS Word во внутреннюю таблицу

Burning

Добрый день пытаюсь загрузить документ формата *.doc. Использую ф.м. GUI_UPLOAD с параметром filetype = 'BIN'. Ф.м. возвращает таблицу строк. Как мне конвертировать в string результат?

D.Krokhun

FM 'SCMS_BINARY_TO_XSTRING'

AFH

Этим способом вы не получите текстовое содержимое doc-файла. Он имеет сложную структуру и расковырять бинарные данные на уровне абапа будет "сложновато". Действуйте через OLE.

Burning

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

Действуйте через OLE.

Если не трудно Вы бы не могли привести пример или ссылку, как обрабатывать загружаемый файл через OLE?

DKiyanov

в строку можно преобразовать так

Code:

  DATA: converter TYPE REF TO cl_abap_conv_obj.
  DATA: xstr TYPE xstring.

  CALL METHOD cl_umc_ostream=>tab2xstr
    EXPORTING
      it_data  = tab
      i_length = size
    IMPORTING
      e_xstr   = xstr.

но с данными .doc файла тут действительно делать нечего

AFH

Как работать с OLE примеров очень много. Вам нужно примерно следующее:

1. Открыть документ
2. сделать

Code:

    ваш документ.WholeStory
    ваш документ.Copy

3. Импортировать в абапе содержимое буфера обмена:

CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_IMPORT

Таким образом весь текст документа должен оказаться у вас в обычной текстовой табличке без форматирования.

Burning

Нашел функцию ALSM_EXCEL_TO_INTERNAL_TABLE, есть ли аналог только с Word?

Code:

INCLUDE ole2incl.

DATA: l_word_basic TYPE ole2_object.

TYPES: BEGIN OF ty_tab,
        line TYPE string,
       END OF ty_tab.

DATA: word_tab TYPE STANDARD TABLE OF ty_tab .
CREATE OBJECT l_word_basic 'WORD.BASIC'.
CALL METHOD OF l_word_basic 'FILEOPEN'
  EXPORTING
  #1 = 'C:\temp\123.DOC'.
*Select All
CALL METHOD OF l_word_basic 'WholeStory'.
*Copy
CALL METHOD OF l_word_basic 'Copy'.

* read clipboard into ABAP
CALL METHOD cl_gui_frontend_services=>clipboard_import
  IMPORTING
    data                 = word_tab
  EXCEPTIONS
    cntl_error           = 1
*      ERROR_NO_GUI         = 2
*      NOT_SUPPORTED_BY_GUI = 3
    OTHERS               = 4
        .
**  Close WORD
CALL METHOD OF l_word_basic 'APPCLOSE'.
* Free Object
FREE OBJECT l_word_basic.

Метод clipboard_import - вернул пустую таблицу. :cry:

Брат Мигель

через iXML грузим, парсим, находим таблицу и читаем содержимое.
мне кажется код не очень большой будет но работать будет только для docx.

Burning

Брат Мигель написал:

через iXML грузим, парсим, находим таблицу и читаем содержимое.
мне кажется код не очень большой будет но работать будет только для docx.

Можно немного подробнее куда копать :idea:

Брат Мигель

считываем docx в xstring

Code:

l_data_xml = cl_openxml_helper=>load_local_file ( l_filename ).

достаем содержимое файла.

Code:

  CREATE OBJECT gr_zipper.
  gr_zipper-> load( string ).
  gr_zipper-> get( EXPORTING name = 'word/document.xml' IMPORTING content = gv_document ).
  gr_ixml = cl_ixml=>create ( ).
  gr_stream_factory = gr_ixml->create_stream_factory ( ).
  gr_istream = gr_stream_factory->create_istream_xstring ( gv_document ).
  gr_document = gr_ixml->create_document ( ).
  gr_parser = gr_ixml->create_parser ( stream_factory = gr_stream_factory
                                        istream        = gr_istream
                                        document       = gr_document ). 
    gr_parser-> parse( ).

идем по таблицам

Code:

 lr_ffilter = lr_nnode ->create_filter_name( name = 'tbl' namespace = 'w' ).
 lr_fiterator = lr_nnode ->create_iterator_filtered( lr_ffilter ).
 lr_fnode = lr_fiterator ->get_next( ).

идем строкам таблицы

Code:

 lr_ffilter = lr_nnode ->create_filter_name( name = 'tr' namespace = 'w' ).
 lr_fiterator = lr_nnode ->create_iterator_filtered( lr_ffilter ).
 lr_fnode = lr_fiterator ->get_next( ).

идем по ячейкам

Code:

 lr_ffilter = lr_nnode ->create_filter_name( name = 'tc' namespace = 'w' ).
 lr_fiterator = lr_nnode ->create_iterator_filtered( lr_ffilter ).
 lr_fnode = lr_fiterator ->get_next( ).
 lv_value = lr_fnode->get_value().

Конечно копаться в мозгах XML файла дело неблагодарное

, но как вариант.

Брат Мигель

Можно еще получить доступ через трансформацию xml файла, но я пока не осилил.
Можно погуглить, достаточно много ссылок.

Crystal_Ra

Цитата:

Можно еще получить доступ через трансформацию xml файла, но я пока не осилил.
Можно погуглить, достаточно много ссылок.

Трансформация дело хорошее - но не избавленное от глюков.
При переносе на разные версии сапа вылезает косяк - не стоит того .. "мне так кажется".
openxml - просто и надежно и со вкусом.

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

Загрузка документа MS Word во внутреннюю таблицу

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