mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 06:16:14 +08:00
959b02aa12
If Excel's shared string table (SST) contains the empty string not only at the beginning but also redundantly at a further place, the following bug in the shared string table reader of class ZCL_EXCEL_READER_HUGE_FILE occurs: Since the sXML reader was not cleared with the beginning of each node, the last read string of the table was carried over into the next string . Added unit test ```test_shared_string_some_empty``` to reproduce the bug, and fixed it in the way proposed by Kai Walter (see Def-376)
636 lines
31 KiB
XML
636 lines
31 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<CLAS CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" VERSION="1" LANGU="D" DESCRIPT="Can read large .xlsx files" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" WITH_UNIT_TESTS="X" DURATION_TYPE="0 " RISK_LEVEL="0 " REFCLSNAME="ZCL_EXCEL_READER_2007">
|
|
<types CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="T_CELL_CONTENT" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="1 " TYPTYPE="4" SRCROW1="4 " SRCCOLUMN1="4 " SRCROW2="9 " SRCCOLUMN2="24 " TYPESRC_LENG="219 " TYPESRC="begin of t_cell_content,
|
|
|
|
datatype type zexcel_cell_data_type,
|
|
|
|
value type zexcel_cell_value,
|
|
|
|
formula type zexcel_cell_formula,
|
|
|
|
style type zexcel_cell_style,
|
|
|
|
end of t_cell_content
|
|
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="T_CELL_COORD" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="2 " TYPTYPE="4" SRCROW1="11 " SRCCOLUMN1="4 " SRCROW2="14 " SRCCOLUMN2="22 " TYPESRC_LENG="134 " TYPESRC="begin of t_cell_coord,
|
|
|
|
row type zexcel_cell_row,
|
|
|
|
column type zexcel_cell_column_alpha,
|
|
|
|
end of t_cell_coord
|
|
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="T_CELL" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="3 " TYPTYPE="4" SRCROW1="16 " SRCCOLUMN1="4 " SRCROW2="19 " SRCCOLUMN2="21 " TYPESRC_LENG="140 " TYPESRC="begin of t_cell.
|
|
|
|
include type t_cell_coord as coord.
|
|
|
|
include type t_cell_content as content.
|
|
|
|
types: end of t_cell
|
|
|
|
"/>
|
|
<localImplementation>*"* use this source file for the definition and implementation of
|
|
*"* local helper classes, interface definitions and type
|
|
*"* declarations
|
|
|
|
* Signal "not found"
|
|
class lcx_not_found implementation.
|
|
method constructor.
|
|
super->constructor( textid = textid previous = previous ).
|
|
me->error = error.
|
|
endmethod. "constructor
|
|
method if_message~get_text.
|
|
result = error.
|
|
endmethod. "if_message~get_text
|
|
endclass. "lcx_not_found IMPLEMENTATION</localImplementation>
|
|
<localTypes>*"* use this source file for any type of declarations (class
|
|
*"* definitions, interfaces or type declarations) you need for
|
|
*"* components in the private section
|
|
|
|
* Signal for "Not found"
|
|
class lcx_not_found definition inheriting from cx_static_check.
|
|
public section.
|
|
data error type string.
|
|
methods constructor
|
|
importing error type string
|
|
textid type sotr_conc optional
|
|
previous type ref to cx_root optional.
|
|
methods if_message~get_text redefinition.
|
|
endclass.</localTypes>
|
|
<localMacros>*"* use this source file for any macro definitions you need
|
|
*"* in the implementation part of the class</localMacros>
|
|
<localTestClasses>*"* use this source file for your ABAP unit test classes
|
|
class lcl_test definition deferred.
|
|
class zcl_excel_reader_huge_file definition local friends lcl_test.
|
|
|
|
*
|
|
class lcl_test definition for testing " #AU Risk_Level Harmless
|
|
inheriting from cl_aunit_assert. " #AU Duration Short
|
|
|
|
private section.
|
|
data:
|
|
out type ref to zcl_excel_reader_huge_file, " object under test
|
|
excel type ref to zcl_excel,
|
|
worksheet type ref to zcl_excel_worksheet.
|
|
methods:
|
|
setup,
|
|
test_number for testing,
|
|
test_shared_string for testing,
|
|
test_shared_string_missing for testing,
|
|
test_inline_string for testing,
|
|
test_empty_cells for testing,
|
|
test_boolean for testing,
|
|
test_style for testing,
|
|
test_style_missing for testing,
|
|
test_formula for testing,
|
|
test_read_shared_strings for testing,
|
|
test_shared_string_some_empty for testing,
|
|
test_skip_to_inexistent for testing,
|
|
get_reader importing iv_xml type string returning value(eo_reader) type ref to if_sxml_reader,
|
|
assert_value_equals importing iv_row type i default 1 iv_col type i default 1 iv_value type string,
|
|
assert_formula_equals importing iv_row type i default 1 iv_col type i default 1 iv_formula type string,
|
|
assert_style_equals importing iv_row type i default 1 iv_col type i default 1 iv_style type ZEXCEL_CELL_STYLE,
|
|
assert_datatype_equals importing iv_row type i default 1 iv_col type i default 1 iv_datatype type string.
|
|
|
|
endclass. "lcl_test DEFINITION
|
|
|
|
*
|
|
class lcl_test implementation.
|
|
|
|
*
|
|
method test_number.
|
|
data lo_reader type ref to if_sxml_reader.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="n"><v>17</v></c>`
|
|
).
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
assert_value_equals( `17` ).
|
|
assert_datatype_equals( `n` ).
|
|
endmethod. "test_shared_string
|
|
|
|
*
|
|
method test_shared_string.
|
|
data lo_reader type ref to if_sxml_reader.
|
|
append `Test1` to out->shared_strings.
|
|
append `Test2` to out->shared_strings.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="s"><v>1</v></c>`
|
|
).
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
assert_value_equals( `Test2` ).
|
|
assert_datatype_equals( `s` ).
|
|
endmethod. "test_shared_string
|
|
*
|
|
method test_shared_string_missing.
|
|
|
|
data: lo_reader type ref to if_sxml_reader,
|
|
lo_ex type ref to lcx_not_found,
|
|
lv_text type string.
|
|
append `Test` to out->shared_strings.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="s"><v>1</v></c>`
|
|
).
|
|
|
|
try.
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
fail(`Index to non-existent shared string should give an error`).
|
|
catch lcx_not_found into lo_ex.
|
|
lv_text = lo_ex->get_text( ). " >>> May inspect the message in the debugger
|
|
endtry.
|
|
|
|
endmethod.
|
|
*
|
|
method test_inline_string.
|
|
data lo_reader type ref to if_sxml_reader.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="inlineStr"><is><t>Alpha</t></is></c>`
|
|
).
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
assert_value_equals( `Alpha` ).
|
|
assert_datatype_equals( `inlineStr` ).
|
|
endmethod. "test_inline_string
|
|
|
|
*
|
|
method test_boolean.
|
|
data lo_reader type ref to if_sxml_reader.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="b"><v>1</v></c>`
|
|
).
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
assert_value_equals( `1` ).
|
|
assert_datatype_equals( `b` ).
|
|
endmethod. "test_boolean
|
|
|
|
*
|
|
method test_formula.
|
|
data lo_reader type ref to if_sxml_reader.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="n"><f>A2*A2</f></c>`
|
|
).
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
assert_formula_equals( `A2*A2` ).
|
|
assert_datatype_equals( `n` ).
|
|
endmethod. "test_formula
|
|
|
|
*
|
|
method test_empty_cells.
|
|
|
|
* There is no need to store an empty cell in the ABAP worksheet structure
|
|
|
|
data: lo_reader type ref to if_sxml_reader,
|
|
lo_ex type ref to lcx_not_found,
|
|
lv_text type string.
|
|
append `` to out->shared_strings.
|
|
append `t` to out->shared_strings.
|
|
lo_reader = get_reader(
|
|
`<c r="A1" t="s"><v>0</v></c>` &
|
|
`<c r="A2" t="inlineStr"><is><t></t></is></c>` &
|
|
`<c r="A3" t="s"><v>1</v></c>`
|
|
).
|
|
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
|
|
assert_value_equals( iv_row = 1 iv_col = 1 iv_value = `` ).
|
|
assert_value_equals( iv_row = 2 iv_col = 1 iv_value = `` ).
|
|
assert_value_equals( iv_row = 3 iv_col = 1 iv_value = `t` ).
|
|
|
|
endmethod.
|
|
|
|
*
|
|
method test_style.
|
|
data:
|
|
lo_reader type ref to if_sxml_reader,
|
|
lo_style type ref to zcl_excel_style,
|
|
lv_guid type ZEXCEL_CELL_STYLE.
|
|
create object lo_style.
|
|
append lo_style to out->styles.
|
|
lv_guid = lo_style->get_guid( ).
|
|
|
|
lo_reader = get_reader(
|
|
`<c r="A1" s="0"><v>18</v></c>`
|
|
).
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
|
|
assert_style_equals( lv_guid ).
|
|
|
|
endmethod. "test_style
|
|
|
|
*
|
|
method test_style_missing.
|
|
|
|
data:
|
|
lo_reader type ref to if_sxml_reader,
|
|
lo_ex type ref to lcx_not_found,
|
|
lv_text type string.
|
|
|
|
lo_reader = get_reader(
|
|
`<c r="A1" s="0"><v>18</v></c>`
|
|
).
|
|
|
|
try.
|
|
out->read_worksheet_data( io_reader = lo_reader io_worksheet = worksheet ).
|
|
fail(`Reference to non-existent style should throw an lcx_not_found exception`).
|
|
catch lcx_not_found into lo_ex.
|
|
lv_text = lo_ex->get_text( ). " >>> May inspect the message in the debugger
|
|
endtry.
|
|
|
|
endmethod. "test_style
|
|
|
|
*
|
|
method test_read_shared_strings.
|
|
data: lo_c2x type ref to cl_abap_conv_out_ce,
|
|
lv_xstring type xstring,
|
|
lo_reader type ref to if_sxml_reader,
|
|
lt_act type stringtab,
|
|
lt_exp type stringtab.
|
|
|
|
lo_c2x = cl_abap_conv_out_ce=>create( ).
|
|
lo_c2x->convert( exporting data = `<sst><si><t/></si><si><t>Alpha</t></si><si><t>Bravo</t></si></sst>`
|
|
importing buffer = lv_xstring ).
|
|
lo_reader = cl_sxml_string_reader=>create( lv_xstring ).
|
|
append :
|
|
`` to lt_exp,
|
|
`Alpha` to lt_exp,
|
|
`Bravo` to lt_exp.
|
|
|
|
lt_act = out->read_shared_strings( lo_reader ).
|
|
|
|
assert_equals( act = lt_act
|
|
exp = lt_exp ).
|
|
|
|
endmethod.
|
|
|
|
*
|
|
method test_shared_string_some_empty.
|
|
data: lo_reader type ref to if_sxml_reader,
|
|
lt_act type stringtab,
|
|
lt_exp type stringtab.
|
|
lo_reader = cl_sxml_string_reader=>create( cl_abap_codepage=>convert_to(
|
|
`<sst><si><t/></si>` &
|
|
`<si><t>Alpha</t></si>` &
|
|
`<si><t/></si>` &
|
|
`<si><t>Bravo</t></si></sst>`
|
|
) ).
|
|
append :
|
|
`` to lt_exp,
|
|
`Alpha` to lt_exp,
|
|
`` to lt_exp,
|
|
`Bravo` to lt_exp.
|
|
|
|
lt_act = out->read_shared_strings( lo_reader ).
|
|
|
|
assert_equals( act = lt_act
|
|
exp = lt_exp ).
|
|
|
|
endmethod.
|
|
|
|
|
|
*
|
|
method test_skip_to_inexistent.
|
|
data: lo_c2x type ref to cl_abap_conv_out_ce,
|
|
lv_xstring type xstring,
|
|
lo_reader type ref to if_sxml_reader,
|
|
lo_ex type ref to lcx_not_found,
|
|
lv_text type string.
|
|
|
|
lo_c2x = cl_abap_conv_out_ce=>create( ).
|
|
lo_c2x->convert( exporting data = `<sst><si><t/></si><si><t>Alpha</t></si><si><t>Bravo</t></si></sst>`
|
|
importing buffer = lv_xstring ).
|
|
lo_reader = cl_sxml_string_reader=>create( lv_xstring ).
|
|
try.
|
|
out->skip_to( iv_element_name = `nonExistingElement` io_reader = lo_reader ).
|
|
fail(`Skipping to non-existing element must raise lcx_not_found exception`).
|
|
catch lcx_not_found into lo_ex.
|
|
lv_text = lo_ex->get_text( ). " May inspect exception text in debugger
|
|
endtry.
|
|
endmethod.
|
|
|
|
*
|
|
method get_reader.
|
|
data: lv_full type string,
|
|
lo_c2x type ref to cl_abap_conv_out_ce,
|
|
lv_xstring type xstring.
|
|
concatenate `<root><sheetData><row>` iv_xml `</row></sheetData></root>` into lv_full.
|
|
lo_c2x = cl_abap_conv_out_ce=>create( ).
|
|
lo_c2x->convert( exporting data = lv_full
|
|
importing buffer = lv_xstring ).
|
|
eo_reader = cl_sxml_string_reader=>create( lv_xstring ).
|
|
endmethod. "get_reader
|
|
*
|
|
method assert_value_equals.
|
|
|
|
constants: lc_empty_string type string value is initial.
|
|
|
|
field-symbols: <ls_cell_data> type zexcel_s_cell_data,
|
|
<lv_value> type string.
|
|
|
|
read table worksheet->sheet_content assigning <ls_cell_data>
|
|
with table key cell_row = iv_row cell_column = iv_col.
|
|
if sy-subrc eq 0.
|
|
assign <ls_cell_data>-cell_value to <lv_value>.
|
|
else.
|
|
assign lc_empty_string to <lv_value>.
|
|
endif.
|
|
|
|
assert_equals( act = <lv_value>
|
|
exp = iv_value ).
|
|
|
|
endmethod. "assert_value_equals
|
|
**
|
|
method assert_formula_equals.
|
|
|
|
field-symbols: <ls_cell_data> type zexcel_s_cell_data.
|
|
|
|
read table worksheet->sheet_content assigning <ls_cell_data>
|
|
with table key cell_row = iv_row cell_column = iv_col.
|
|
assert_subrc( sy-subrc ).
|
|
|
|
assert_equals( act = <ls_cell_data>-cell_formula
|
|
exp = iv_formula ).
|
|
|
|
endmethod. "assert_formula_equals
|
|
*
|
|
method assert_style_equals.
|
|
|
|
field-symbols: <ls_cell_data> type zexcel_s_cell_data.
|
|
|
|
read table worksheet->sheet_content assigning <ls_cell_data>
|
|
with table key cell_row = iv_row cell_column = iv_col.
|
|
assert_subrc( sy-subrc ).
|
|
|
|
assert_equals( act = <ls_cell_data>-cell_style
|
|
exp = iv_style ).
|
|
|
|
endmethod.
|
|
*
|
|
method assert_datatype_equals.
|
|
|
|
field-symbols: <ls_cell_data> type zexcel_s_cell_data.
|
|
|
|
read table worksheet->sheet_content assigning <ls_cell_data>
|
|
with table key cell_row = iv_row cell_column = iv_col.
|
|
assert_subrc( sy-subrc ).
|
|
|
|
assert_equals( act = <ls_cell_data>-data_type
|
|
exp = iv_datatype ).
|
|
|
|
endmethod. "assert_datatype_equals
|
|
method setup.
|
|
create object out.
|
|
create object excel.
|
|
create object worksheet
|
|
exporting
|
|
ip_excel = excel.
|
|
endmethod. "setup
|
|
endclass. "lcl_test IMPLEMENTATION</localTestClasses>
|
|
<typeIntfDef CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" TYPEGROUP="IF_SXML_NODE" VERSION="1" TPUTYPE="2" IMPLICIT="X"/>
|
|
<attribute CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="C_ATTRIBUTE" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="5 " ATTDECLTYP="2" ATTVALUE="IF_SXML_NODE=>CO_NT_ATTRIBUTE" ATTEXPVIRT="0" TYPTYPE="1" TYPE="IF_SXML_NODE=>NODE_TYPE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="C_ELEMENT_CLOSE" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="3 " ATTDECLTYP="2" ATTVALUE="IF_SXML_NODE=>CO_NT_ELEMENT_CLOSE" ATTEXPVIRT="0" TYPTYPE="1" TYPE="IF_SXML_NODE=>NODE_TYPE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="C_ELEMENT_OPEN" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="2 " ATTDECLTYP="2" ATTVALUE="IF_SXML_NODE=>CO_NT_ELEMENT_OPEN" ATTEXPVIRT="0" TYPTYPE="1" TYPE="IF_SXML_NODE=>NODE_TYPE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="C_END_OF_STREAM" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="1 " ATTDECLTYP="2" ATTVALUE="IF_SXML_NODE=>CO_NT_FINAL" ATTEXPVIRT="0" TYPTYPE="1" TYPE="IF_SXML_NODE=>NODE_TYPE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="C_NODE_VALUE" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="6 " ATTDECLTYP="2" ATTVALUE="IF_SXML_NODE=>CO_NT_VALUE" ATTEXPVIRT="0" TYPTYPE="1" TYPE="IF_SXML_NODE=>NODE_TYPE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GS_BUFFER_STYLE" VERSION="1" LANGU="D" EXPOSURE="0" STATE="1" EDITORDER="4 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="4" SRCROW1="25 " SRCCOLUMN1="4 " SRCROW2="28 " SRCCOLUMN2="25 " TYPESRC_LENG="117 " TYPESRC="begin of gs_buffer_style,
|
|
|
|
index type i value -1,
|
|
|
|
guid type zexcel_cell_style,
|
|
|
|
end of gs_buffer_style
|
|
|
|
"/>
|
|
<inheritance CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" REFCLSNAME="ZCL_EXCEL_READER_2007" VERSION="1" STATE="1">
|
|
<redefinition CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" REFCLSNAME="ZCL_EXCEL_READER_2007" VERSION="1" MTDNAME="LOAD_SHARED_STRINGS" EXPOSURE="1"/>
|
|
<redefinition CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" REFCLSNAME="ZCL_EXCEL_READER_2007" VERSION="1" MTDNAME="LOAD_WORKSHEET" EXPOSURE="1"/>
|
|
</inheritance>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="FILL_CELL_FROM_ATTRIBUTES" VERSION="1" LANGU="D" DESCRIPT="Fill some cell properties from <c> element attributes" EXPOSURE="0" STATE="1" EDITORDER="2 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="FILL_CELL_FROM_ATTRIBUTES" SCONAME="IO_READER" VERSION="1" LANGU="D" DESCRIPT="SXML Reader Interface" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="IF_SXML_READER"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="FILL_CELL_FROM_ATTRIBUTES" SCONAME="ES_CELL" VERSION="1" LANGU="D" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="T_CELL"/>
|
|
<exception CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="FILL_CELL_FROM_ATTRIBUTES" SCONAME="LCX_NOT_FOUND" VERSION="1" LANGU="D" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method FILL_CELL_FROM_ATTRIBUTES.
|
|
|
|
while io_reader->node_type ne c_end_of_stream.
|
|
io_reader->next_attribute( ).
|
|
if io_reader->node_type ne c_attribute.
|
|
exit.
|
|
endif.
|
|
case io_reader->name.
|
|
when `t`.
|
|
es_cell-datatype = io_reader->value.
|
|
when `s`.
|
|
if io_reader->value is not initial.
|
|
es_cell-style = get_style( io_reader->value ).
|
|
endif.
|
|
when `r`.
|
|
es_cell-coord = get_cell_coord( io_reader->value ).
|
|
endcase.
|
|
endwhile.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_CELL_COORD" VERSION="1" LANGU="D" DESCRIPT='Cell coordinates from expression (like "B2")' EXPOSURE="0" STATE="1" EDITORDER="4 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_CELL_COORD" SCONAME="IV_COORD" VERSION="1" LANGU="D" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STRING"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_CELL_COORD" SCONAME="ES_COORD" VERSION="1" LANGU="D" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="T_CELL_COORD"/>
|
|
<source>method GET_CELL_COORD.
|
|
|
|
zcl_excel_common=>convert_columnrow2column_a_row(
|
|
exporting
|
|
i_columnrow = iv_coord
|
|
importing
|
|
e_column = es_coord-column
|
|
e_row = es_coord-row
|
|
).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SHARED_STRING" VERSION="1" LANGU="D" DESCRIPT="Read from shared string table" EXPOSURE="0" STATE="1" EDITORDER="6 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SHARED_STRING" SCONAME="IV_INDEX" VERSION="1" LANGU="D" DESCRIPT="Zero-based Index" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ANY"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SHARED_STRING" SCONAME="EV_VALUE" VERSION="1" LANGU="D" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING"/>
|
|
<exception CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SHARED_STRING" SCONAME="LCX_NOT_FOUND" VERSION="1" LANGU="D" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_SHARED_STRING.
|
|
data: lv_tabix type i,
|
|
lv_error type string.
|
|
lv_tabix = iv_index + 1.
|
|
read table shared_strings into ev_value index lv_tabix.
|
|
if sy-subrc ne 0.
|
|
concatenate 'Entry ' iv_index ' not found in Shared String Table' into lv_error.
|
|
raise exception type lcx_not_found
|
|
exporting
|
|
error = lv_error.
|
|
endif.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_STYLE" VERSION="1" LANGU="D" DESCRIPT="Read from style table" EXPOSURE="0" STATE="1" EDITORDER="7 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_STYLE" SCONAME="IV_INDEX" VERSION="1" LANGU="D" DESCRIPT="Zero-based Index" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ANY"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_STYLE" SCONAME="EV_STYLE_GUID" VERSION="1" LANGU="D" DESCRIPT="Style ID" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE"/>
|
|
<exception CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_STYLE" SCONAME="LCX_NOT_FOUND" VERSION="1" LANGU="D" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_STYLE.
|
|
|
|
data: lv_tabix type i,
|
|
lo_style type ref to zcl_excel_style,
|
|
lv_error type string.
|
|
|
|
if gs_buffer_style-index ne iv_index.
|
|
lv_tabix = iv_index + 1.
|
|
read table styles into lo_style index lv_tabix.
|
|
if sy-subrc ne 0.
|
|
concatenate 'Entry ' iv_index ' not found in Style Table' into lv_error.
|
|
raise exception type lcx_not_found
|
|
exporting
|
|
error = lv_error.
|
|
else.
|
|
gs_buffer_style-index = iv_index.
|
|
gs_buffer_style-guid = lo_style->get_guid( ).
|
|
endif.
|
|
endif.
|
|
|
|
ev_style_guid = gs_buffer_style-guid.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SXML_READER" VERSION="1" LANGU="D" DESCRIPT="Create an sXML reader for an XML file in the zip archive" EXPOSURE="0" STATE="1" EDITORDER="9 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SXML_READER" SCONAME="IV_PATH" VERSION="1" LANGU="D" DESCRIPT="Path of the file in the archive" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STRING"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SXML_READER" SCONAME="EO_READER" VERSION="1" LANGU="D" DESCRIPT="sXML reader" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="IF_SXML_READER"/>
|
|
<exception CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="GET_SXML_READER" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="D" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_SXML_READER.
|
|
|
|
data: lv_xml type xstring.
|
|
|
|
lv_xml = get_from_zip_archive( iv_path ).
|
|
eo_reader = cl_sxml_string_reader=>create( lv_xml ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_2007" CMPNAME="LOAD_SHARED_STRINGS" VERSION="0" EXPOSURE="0" STATE="0" EDITORDER="0 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<source>method LOAD_SHARED_STRINGS.
|
|
|
|
data: lo_reader type ref to if_sxml_reader.
|
|
|
|
lo_reader = get_sxml_reader( ip_path ).
|
|
|
|
shared_strings = read_shared_strings( lo_reader ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_2007" CMPNAME="LOAD_WORKSHEET" VERSION="0" EXPOSURE="0" STATE="0" EDITORDER="0 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<source>method LOAD_WORKSHEET.
|
|
|
|
data: lo_reader type ref to if_sxml_reader.
|
|
|
|
lo_reader = get_sxml_reader( ip_path ).
|
|
|
|
read_worksheet_data( io_reader = lo_reader
|
|
io_worksheet = io_worksheet ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="PUT_CELL_TO_WORKSHEET" VERSION="1" LANGU="D" DESCRIPT="Put cell data to worksheet" EXPOSURE="0" STATE="1" EDITORDER="5 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="PUT_CELL_TO_WORKSHEET" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="D" DESCRIPT="Worksheet" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="PUT_CELL_TO_WORKSHEET" SCONAME="IS_CELL" VERSION="1" LANGU="D" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="T_CELL"/>
|
|
<source>method PUT_CELL_TO_WORKSHEET.
|
|
check is_cell-value is not initial
|
|
or is_cell-formula is not initial
|
|
or is_cell-style is not initial.
|
|
call method io_worksheet->set_cell
|
|
exporting
|
|
ip_column = is_cell-column
|
|
ip_row = is_cell-row
|
|
ip_value = is_cell-value
|
|
ip_formula = is_cell-formula
|
|
ip_data_type = is_cell-datatype
|
|
ip_style = is_cell-style.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_SHARED_STRINGS" VERSION="1" LANGU="D" DESCRIPT="Reads the XML file containing the shared strings" EXPOSURE="0" STATE="1" EDITORDER="3 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_SHARED_STRINGS" SCONAME="IO_READER" VERSION="1" LANGU="D" DESCRIPT="sXML reader" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="IF_SXML_READER"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_SHARED_STRINGS" SCONAME="ET_SHARED_STRINGS" VERSION="1" LANGU="D" DESCRIPT="Table with Strings" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="STRINGTAB"/>
|
|
<source>method read_shared_strings.
|
|
|
|
data lv_value type string.
|
|
|
|
while io_reader->node_type ne c_end_of_stream.
|
|
io_reader->next_node( ).
|
|
if io_reader->name eq `t`.
|
|
case io_reader->node_type .
|
|
when c_element_open .
|
|
clear lv_value .
|
|
when c_node_value .
|
|
lv_value = lv_value && io_reader->value .
|
|
when c_element_close .
|
|
append lv_value to et_shared_strings.
|
|
endcase .
|
|
endif.
|
|
endwhile.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_WORKSHEET_DATA" VERSION="1" LANGU="D" DESCRIPT="Reads the data, formula and styles of the worksheet's cells" EXPOSURE="0" STATE="1" EDITORDER="8 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_WORKSHEET_DATA" SCONAME="IO_READER" VERSION="1" LANGU="D" DESCRIPT="Worksheet reader" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="IF_SXML_READER"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_WORKSHEET_DATA" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="D" DESCRIPT="Worksheet" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>
|
|
<exception CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="READ_WORKSHEET_DATA" SCONAME="LCX_NOT_FOUND" VERSION="1" LANGU="D" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method READ_WORKSHEET_DATA.
|
|
|
|
data: ls_cell type t_cell.
|
|
|
|
* Skip to <sheetData> element
|
|
skip_to( iv_element_name = `sheetData` io_reader = io_reader ).
|
|
|
|
* Main loop: Evaluate the <c> elements and its children
|
|
while io_reader->node_type ne c_end_of_stream.
|
|
io_reader->next_node( ).
|
|
case io_reader->node_type.
|
|
when c_element_open.
|
|
if io_reader->name eq `c`.
|
|
ls_cell = fill_cell_from_attributes( io_reader ).
|
|
endif.
|
|
when c_node_value.
|
|
case io_reader->name.
|
|
when `f`.
|
|
ls_cell-formula = io_reader->value.
|
|
when `v`.
|
|
if ls_cell-datatype eq `s`.
|
|
ls_cell-value = get_shared_string( io_reader->value ).
|
|
else.
|
|
ls_cell-value = io_reader->value.
|
|
endif.
|
|
when `t` or `is`.
|
|
ls_cell-value = io_reader->value.
|
|
endcase.
|
|
when c_element_close.
|
|
case io_reader->name.
|
|
when `c`.
|
|
put_cell_to_worksheet( is_cell = ls_cell io_worksheet = io_worksheet ).
|
|
when `sheetData`.
|
|
exit.
|
|
endcase.
|
|
endcase.
|
|
endwhile.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="SKIP_TO" VERSION="1" LANGU="D" DESCRIPT="Go ahead till element with given name is found" EXPOSURE="0" STATE="1" EDITORDER="1 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="SKIP_TO" SCONAME="IV_ELEMENT_NAME" VERSION="1" LANGU="D" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STRING"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="SKIP_TO" SCONAME="IO_READER" VERSION="1" LANGU="D" DESCRIPT="SXML Reader Interface" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="IF_SXML_READER"/>
|
|
<exception CLSNAME="ZCL_EXCEL_READER_HUGE_FILE" CMPNAME="SKIP_TO" SCONAME="LCX_NOT_FOUND" VERSION="1" LANGU="D" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SKIP_TO.
|
|
|
|
data: lv_error type string.
|
|
|
|
* Skip forward to given element
|
|
while io_reader->name ne iv_element_name or
|
|
io_reader->node_type ne c_element_open.
|
|
io_reader->next_node( ).
|
|
if io_reader->node_type = c_end_of_stream.
|
|
concatenate 'XML error: Didn''t find element <' iv_element_name '>' into lv_error.
|
|
raise exception type lcx_not_found
|
|
exporting
|
|
error = lv_error.
|
|
endif.
|
|
endwhile.
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
</CLAS>
|