SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 14:06:24 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

backwards compatibility

Browse Source
This commit is contained in:
Hannes Rempel 2014-10-29 13:30:48 +01:00
parent 27b3467a8e
commit 23858bdf03
1 changed files with 37 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
ZA2X/CLAS/ZCL_EXCEL_READER_HUGE_FILE.slnk
View File

@ -184,8 +184,8 @@ class lcl_test implementation.
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="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>`
).
@ -239,12 +239,16 @@ class lcl_test implementation.
*
method test_read_shared_strings.
data: lo_reader type ref to if_sxml_reader,
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_reader = cl_sxml_string_reader=>create( cl_abap_codepage=>convert_to(
`<sst><si><t/></si><si><t>Alpha</t></si><si><t>Bravo</t></si></sst>`
) ).
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,
@ -259,13 +263,16 @@ class lcl_test implementation.
*
method test_skip_to_inexistent.
data: lo_reader type ref to if_sxml_reader,
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_reader = cl_sxml_string_reader=>create( cl_abap_codepage=>convert_to(
`<sst><si><t/></si><si><t>Alpha</t></si><si><t>Bravo</t></si></sst>`
) ).
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`).
@ -276,9 +283,14 @@ class lcl_test implementation.
*
method get_reader.
data: lv_full type string.
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.
eo_reader = cl_sxml_string_reader=>create( cl_abap_codepage=>convert_to( 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.
@ -411,13 +423,15 @@ endmethod.</source>
<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.
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 &apos;Entry &apos; iv_index &apos; not found in Shared String Table&apos; into lv_error.
raise exception type lcx_not_found
exporting
error = |Entry { iv_index } not found in Shared String Table|.
error = lv_error.
endif.
endmethod.</source>
</method>
@ -428,15 +442,17 @@ endmethod.</source>
<source>method GET_STYLE.
data: lv_tabix type i,
lo_style type ref to zcl_excel_style.
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 &apos;Entry &apos; iv_index &apos; not found in Style Table&apos; into lv_error.
raise exception type lcx_not_found
exporting
error = |Entry { iv_index } not found in Style Table|.
error = lv_error.
else.
gs_buffer_style-index = iv_index.
gs_buffer_style-guid = lo_style-&gt;get_guid( ).
@ -565,14 +581,17 @@ endmethod.</source>
<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-&gt;name ne iv_element_name or
io_reader-&gt;node_type ne c_element_open.
io_reader-&gt;next_node( ).
if io_reader-&gt;node_type = c_end_of_stream.
concatenate &apos;XML error: Didn&apos;&apos;t find element &lt;&apos; iv_element_name &apos;&gt;&apos; into lv_error.
raise exception type lcx_not_found
exporting
error = |XML error: Didn&apos;t find element &lt;{ iv_element_name }&gt;|.
error = lv_error.
endif.
endwhile.