mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 11:06:15 +08:00
#129 ready to test
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@233 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf
parent
04cab6b096
commit
f398336e09
|
|
@ -1,5 +1,5 @@
|
|||
<?xml version="1.0" encoding="utf-16"?>
|
||||
<PROG NAME="ZDEMO_EXCEL15" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100820" UNAM="MYSSHT" UDAT="20111219" VERN="000035" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20111219" STIME="051805" IDATE="20111219" ITIME="051805" UCCHECK="X">
|
||||
<PROG NAME="ZDEMO_EXCEL15" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100820" UNAM="DEVELOPER" UDAT="20111223" VERN="000039" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20111223" STIME="122713" IDATE="20111223" ITIME="122713" UCCHECK="X">
|
||||
<textPool>
|
||||
<language SPRAS="E">
|
||||
<textElement ID="R" ENTRY="abap2xlsx Demo: Reader" LENGTH="22 "/>
|
||||
|
|
@ -24,7 +24,6 @@ TYPE-POOLS: abap.
|
|||
TYPES:
|
||||
BEGIN OF t_demo_excel15,
|
||||
input TYPE string,
|
||||
output TYPE string,
|
||||
END OF t_demo_excel15.
|
||||
|
||||
DATA: excel TYPE REF TO zcl_excel,
|
||||
|
|
@ -70,12 +69,16 @@ INITIALIZATION.
|
|||
cl_gui_cfw=>flush( ).
|
||||
p_path = lv_workdir.
|
||||
|
||||
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
|
||||
<wa_files>-input = '01_HelloWorld.xlsx'.
|
||||
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
|
||||
<wa_files>-input = '02_Styles.xlsx'.
|
||||
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
|
||||
<wa_files>-input = '03_iTab.xlsx'.
|
||||
<wa_files>-output = '15_iTabFromReader.xlsx'.
|
||||
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
|
||||
<wa_files>-input = '04_Sheets.xlsx'.
|
||||
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
|
||||
<wa_files>-input = '08_Range.xlsx'.
|
||||
<wa_files>-output = '15_RangeFromReader.xlsx'.
|
||||
|
||||
START-OF-SELECTION.
|
||||
|
||||
|
|
@ -85,8 +88,9 @@ START-OF-SELECTION.
|
|||
cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ).
|
||||
|
||||
LOOP AT lt_files ASSIGNING <wa_files>.
|
||||
CONCATENATE p_path lv_file_separator <wa_files>-output INTO output_file_path.
|
||||
CONCATENATE p_path lv_file_separator <wa_files>-input INTO input_file_path.
|
||||
CONCATENATE p_path lv_file_separator '15_' <wa_files>-input INTO output_file_path.
|
||||
REPLACE '.xlsx' IN output_file_path WITH 'FromReader.xlsx'.
|
||||
|
||||
TRY.
|
||||
CREATE OBJECT reader TYPE zcl_excel_reader_2007.
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
<?xml version="1.0" encoding="utf-16"?>
|
||||
<PROG NAME="ZDEMO_EXCEL26" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100711" UNAM="FEMIA" UDAT="20110528" VERN="000067" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110528" STIME="183241" IDATE="20110528" ITIME="183241" UCCHECK="X">
|
||||
<PROG NAME="ZDEMO_EXCEL26" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100711" UNAM="DEVELOPER" UDAT="20111223" VERN="000070" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20111223" STIME="123104" IDATE="20111223" ITIME="123104" UCCHECK="X">
|
||||
<textPool>
|
||||
<language SPRAS="E">
|
||||
<textElement ID="R" ENTRY="abap2xlsx Demo: Hello World" LENGTH="27 "/>
|
||||
<textElement ID="R" ENTRY="abap2xlsx Demo: Test Excel Reader (Now in ZDEMO_EXCEL15)" LENGTH="56 "/>
|
||||
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="24 "/>
|
||||
<textElement ID="S" KEY="P_READER" ENTRY=" Write back after using Reader" LENGTH="37 "/>
|
||||
</language>
|
||||
|
|
@ -17,87 +17,6 @@
|
|||
|
||||
REPORT zdemo_excel26.
|
||||
|
||||
DATA: lo_excel TYPE REF TO zcl_excel,
|
||||
lo_excel_writer TYPE REF TO zif_excel_writer,
|
||||
lo_excel_reader TYPE REF TO zif_excel_reader.
|
||||
|
||||
DATA: lv_file TYPE xstring,
|
||||
lv_bytecount TYPE i,
|
||||
lt_file_tab TYPE solix_tab.
|
||||
|
||||
DATA: lv_full_path TYPE string,
|
||||
lv_workdir TYPE string,
|
||||
lv_file_separator TYPE c.
|
||||
|
||||
CONSTANTS: lv_demo01 TYPE string VALUE '01_HelloWorld.xlsx'.
|
||||
CONSTANTS: lv_demo02 TYPE string VALUE '02_Styles.xlsx'.
|
||||
|
||||
PARAMETERS: p_path TYPE zexcel_export_dir.
|
||||
|
||||
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
|
||||
lv_workdir = p_path.
|
||||
cl_gui_frontend_services=>directory_browse( EXPORTING initial_folder = lv_workdir
|
||||
CHANGING selected_folder = lv_workdir ).
|
||||
p_path = lv_workdir.
|
||||
|
||||
INITIALIZATION.
|
||||
cl_gui_frontend_services=>get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ).
|
||||
cl_gui_cfw=>flush( ).
|
||||
p_path = lv_workdir.
|
||||
|
||||
START-OF-SELECTION.
|
||||
|
||||
IF p_path IS INITIAL.
|
||||
p_path = lv_workdir.
|
||||
ENDIF.
|
||||
cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ).
|
||||
|
||||
* Demo01
|
||||
|
||||
CONCATENATE p_path lv_file_separator lv_demo01 INTO lv_full_path.
|
||||
|
||||
CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007.
|
||||
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
|
||||
lo_excel = lo_excel_reader->load_file( lv_full_path ).
|
||||
lv_file = lo_excel_writer->write_file( lo_excel ).
|
||||
REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'.
|
||||
|
||||
" Convert to binary
|
||||
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
|
||||
EXPORTING
|
||||
buffer = lv_file
|
||||
IMPORTING
|
||||
output_length = lv_bytecount
|
||||
TABLES
|
||||
binary_tab = lt_file_tab.
|
||||
|
||||
" Save the file
|
||||
cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = lv_bytecount
|
||||
filename = lv_full_path
|
||||
filetype = 'BIN'
|
||||
CHANGING data_tab = lt_file_tab ).
|
||||
* Demo02
|
||||
|
||||
CONCATENATE p_path lv_file_separator lv_demo02 INTO lv_full_path.
|
||||
|
||||
CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007.
|
||||
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
|
||||
lo_excel = lo_excel_reader->load_file( lv_full_path ).
|
||||
lv_file = lo_excel_writer->write_file( lo_excel ).
|
||||
REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'.
|
||||
|
||||
" Convert to binary
|
||||
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
|
||||
EXPORTING
|
||||
buffer = lv_file
|
||||
IMPORTING
|
||||
output_length = lv_bytecount
|
||||
TABLES
|
||||
binary_tab = lt_file_tab.
|
||||
|
||||
" Save the file
|
||||
cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = lv_bytecount
|
||||
filename = lv_full_path
|
||||
filetype = 'BIN'
|
||||
CHANGING data_tab = lt_file_tab ).</source>
|
||||
* Gregor Wolf, 23.12.2011:
|
||||
* Moved functionality to ZDEMO_EXCEL15</source>
|
||||
</PROG>
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user