利用 ABAP 標準工具類 cl_abap_zip

*&---------------------------------------------------------------------* *& Report ZBM_TST_ZIP *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------*REPORT zbm_tst_zip.DATA: lo_zip TYPE REF TO cl_abap_zip. CREATE OBJECT lo_zip.DATA: l_file_path TYPE string. DATA: lt_xml_rawtable TYPE dcxmllines. DATA: lv_xstring TYPE xstring. DATA: lv_upload_xstring TYPE xstring. DATA: lv_upload_string TYPE string. TRY.CALL METHOD cl_salv_test_data=>select_fileIMPORTINGfilename = l_file_path.CATCH cx_root. ENDTRY. CALL METHOD cl_gui_frontend_services=>gui_uploadEXPORTINGfilename = l_file_pathfiletype = 'BIN'CHANGINGdata_tab = lt_xml_rawtableEXCEPTIONSOTHERS = 1.LOOP AT lt_xml_rawtable INTO lv_xstring.CONCATENATE lv_upload_xstring lv_xstring INTO lv_upload_xstring IN BYTE MODE. ENDLOOP.DATA: lo_conv_in TYPE REF TO cl_abap_conv_in_ce. TRY.lo_conv_in = cl_abap_conv_in_ce=>create( input = lv_upload_xstring ).lo_conv_in->read( IMPORTING data = lv_upload_string ).CATCH cx_root . ENDTRY.DATA: l_filename TYPE string VALUE 'T005'. lo_zip->add( name = l_filename content = lv_upload_xstring ).DATA: l_file TYPE xstring. l_file = lo_zip->save( ).WRITE: l_file. WRITE: lv_upload_string. * DATA: lt_xml_stream TYPE etxml_xline_tabtype. DATA: lv_length TYPE i. TRY. CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'EXPORTINGbuffer = l_fileIMPORTINGoutput_length = lv_lengthTABLESbinary_tab = lt_xml_stream.CALL METHOD cl_gui_frontend_services=>gui_downloadEXPORTINGbin_filesize = lv_lengthfiletype = 'BIN'filename = 'C:\Documents and Settings\Desktop\A1F 2 A1F\T002.zip'CHANGINGdata_tab = lt_xml_streamEXCEPTIONSOTHERS = 0. CATCH cx_root.ENDTRY.WRITE:/ 'END'.

總結

以上是生活随笔為你收集整理的如何使用 ABAP 把多个文件打成一个 zip包 -利用 ABAP 标准工具类 cl_abap_zip的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。