'encoding UTF-8 Do not remove or change this line! '************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* '* '* short description : XML Calc Include File '* '\*********************************************************************************** Dim Isliste(250) as string Dim OutputPath as string sub sxc7_01 printlog "--------------------------- sxc_01.inc ------------------------------" printlog "------------------------ Alien Attributes ---------------------------" call tAlienAttributes printlog "---------------------- File Format Changes --------------------------" call tfeat906 printlog "------------------------------ Cells --------------------------------" call tCellformats1 call tCellformats2 call tCellformats3 end sub '------------------------------------------------------------------------- testcase tAlienAttributes Dim i as integer Dim a as integer Dim c as integer Dim xXMLStyleName as string Dim xPath as string Dim AttrNameInDOM as string Dim AttributeSearch(50) as string Dim AttributeValue(50) as string printlog "+- alien_attributes.sxc" call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\alien_attributes.sxc")) if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes.sxc") , "StarOffice XML (Calc)") then '/// Closing the document also if there is a verification dialog. call hCloseDocument() sleep(3) UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes") ) if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes\styles.xml")) = FALSE then warnlog "XML-file 'styles.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes\meta.xml")) = FALSE then warnlog "XML-file 'meta.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes\content.xml")) = FALSE then warnlog "XML-file 'content.xml' not well formed!" else call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes.sxc")) sleep(2) call hCloseDocument sleep(2) SAXReadFile(gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes\content.xml")) printlog "-----------------" printlog "Hidden Namespaces" printlog "-----------------" '/// content.xml '/// Hidden attributes in namespaces '///+ Searching for: xmlns:foo="http://openoffice.org/2000/foo" '///+ Searching for: xmlns:bla="http://openoffice.org/2000/bla" '------------------------------------------------------------------------- AttributeSearch(1) = "xmlns:foo" AttributeValue(1) = "http://openoffice.org/2000/foo" AttributeSearch(2) = "xmlns:bla" AttributeValue(2) = "http://openoffice.org/2000/bla" printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- SAXSeekElement("office:document-content") for i = 1 to 2 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "Hidden attributes (in namespace): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i printlog " * * *" '/// hidden attributes '///+
  1. in a cell style
    2. '///+
  2. in a paragraph style (twice)
    3. '///+
  3. in a text style (twice)
    4. '///+
  4. in a graphic style
'///+ Searching for: bla="holla" '///+ Searching for: bla1="holla1" '///+ Searching for: bla2="holla2" '///+ Searching for: foo:foobla="holla" '///+ Searching for: foo:foobla1="holla1" '///+ Searching for: foo:foobla2="holla2" '///+ Searching for: bla:blabla="holla" '///+ Searching for: bla:blabla1="holla1" '///+ Searching for: bla:blabla2="holla2" AttributeSearch(1) = "bla" AttributeValue(1) = "holla" AttributeSearch(2) = "bla1" AttributeValue(2) = "holla1" AttributeSearch(3) = "bla2" AttributeValue(3) = "holla2" AttributeSearch(4) = "foo:foobla" AttributeValue(4) = "holla" AttributeSearch(5) = "foo:foobla1" AttributeValue(5) = "holla1" AttributeSearch(6) = "foo:foobla2" AttributeValue(6) = "holla2" AttributeSearch(7) = "bla:blabla" AttributeValue(7) = "holla" AttributeSearch(8) = "bla:blabla1" AttributeValue(8) = "holla1" AttributeSearch(9) = "bla:blabla2" AttributeValue(9) = "holla2" '------------------------------------------------------------------------- printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- for c = 1 to 6 if c = 1 then printlog "---------------------------------------" printlog "Hidden attributes in a cell style" printlog "---------------------------------------" end if if c = 2 OR c = 3 then printlog "---------------------------------------" printlog "Hidden attributes in a paragraph style (" & c-1 & ")" printlog "---------------------------------------" end if if c = 4 or c = 5 then printlog "---------------------------------------" printlog "Hidden attributes in a text style (" & c-3 & ")" printlog "---------------------------------------" end if if c = 6 then printlog "---------------------------------------" printlog "Hidden attributes in a graphic style" printlog "---------------------------------------" end if SAXSeekElement("/") SAXSeekElement("office:document-content") SAXSeekElement("office:automatic-styles") 'The hidden attributes are in a known sequence included, 'so the same routine will be used for different styles! 'Note: The first four style:style elements do not have any hidden attributes -> 4+c. SAXSeekElement("style:style" , 4+c ) AttrNameInDOM = SAXGetAttributeValue("style:name") printlog " + Style name: " & AttrNameInDOM printlog " |" SAXSeekElement("style:properties") for i = 1 to 9 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then 'c = means 'th+4 style:style in DOM tree if c = 1 then warnlog "Hidden attributes (in a cell style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if if c = 2 or c = 3 then ' warnlog "Hidden attributes (in a paragraph style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" warnlog "#i100879# : Hidden attributes (in a paragraph style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if if c = 4 or c = 5 then warnlog "Hidden attributes (in a text style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if if c = 6 then warnlog "Hidden attributes (in a graphic style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if end if next i next c SAXSeekElement("/") printlog " * * *" '------------------------------------------------------------------------- SAXRelease() SAXReadFile(gOfficePath & ConvertPath("user\work\xml\calc\level1\alien_attributes\styles.xml")) '------------------------------------------------------------------------- printlog " -------------------" printlog " s t y l e s . x m l" printlog " -------------------" printlog "-----------------" printlog "Hidden Namespaces" printlog "-----------------" '/// styles.xml '/// Hidden attributes in namespaces '///+ Searching for: xmlns:foo="http://openoffice.org/2000/foo" '///+ Searching for: xmlns:bla="http://openoffice.org/2000/bla" '------------------------------------------------------------------------- AttributeSearch(1) = "xmlns:foo" AttributeValue(1) = "http://openoffice.org/2000/foo" AttributeSearch(2) = "xmlns:bla" AttributeValue(2) = "http://openoffice.org/2000/bla" printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- SAXSeekElement("office:document-styles") for i = 1 to 2 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "Hidden attributes (in namespace): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i printlog " * * *" SAXSeekElement("/") '------------------------------------------------------------------------- '/// hidden attributes '///+
  1. in a table cell template style
    2. '///+
  2. in a master page template style
'///+ Searching for: bla="holla" '///+ Searching for: bla1="holla1" '///+ Searching for: bla2="holla2" '///+ Searching for: foo:foobla="holla" '///+ Searching for: foo:foobla1="holla1" '///+ Searching for: foo:foobla2="holla2" '///+ Searching for: bla:blabla="holla" '///+ Searching for: bla:blabla1="holla1" '///+ Searching for: bla:blabla2="holla2" AttributeSearch(1) = "bla" AttributeValue(1) = "holla" AttributeSearch(2) = "bla1" AttributeValue(2) = "holla1" AttributeSearch(3) = "bla2" AttributeValue(3) = "holla2" AttributeSearch(4) = "foo:foobla" AttributeValue(4) = "holla" AttributeSearch(5) = "foo:foobla1" AttributeValue(5) = "holla1" AttributeSearch(6) = "foo:foobla2" AttributeValue(6) = "holla2" AttributeSearch(7) = "bla:blabla" AttributeValue(7) = "holla" AttributeSearch(8) = "bla:blabla1" AttributeValue(8) = "holla1" AttributeSearch(9) = "bla:blabla2" AttributeValue(9) = "holla2" '------------------------------------------------------------------------- printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- for c = 1 to 2 SAXSeekElement("/") if c = 1 then printlog "-----------------------------------------------" printlog "Hidden attributes in a template of a cell style" printlog "-----------------------------------------------" SAXSeekElement("office:document-styles") SAXSeekElement("office:styles") SAXSeekElement("style:style" , 2) AttrNameInDOM = SAXGetAttributeValue("style:name") printlog " + Style name: " & AttrNameInDOM printlog " |" end if if c = 2 then printlog "------------------------------------------------------" printlog "Hidden attributes in a template of a master page style" printlog "------------------------------------------------------" SAXSeekElement("office:document-styles") SAXSeekElement("office:automatic-styles") SAXSeekElement("style:page-master") AttrNameInDOM = SAXGetAttributeValue("style:name") printlog " + Style name: " & AttrNameInDOM printlog " |" end if SAXSeekElement("style:properties") for i = 1 to 9 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then if c = 1 then warnlog "Hidden attributes (in a template of a cell style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if if c = 2 then warnlog "Hidden attributes (in a template of a master page style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if end if next i next c SAXSeekElement("/") '------------------------------------------------------------------------- printlog " * * *" SAXRelease() end if else call hCloseDocument end if endcase '------------------------------------------------------------------------- testcase tfeat906 Dim i as integer Dim a as integer Dim c as integer Dim xXMLStyleName as string Dim xPath as string Dim AttrNameInDOM as string Dim AttributeSearch(50) as string Dim AttributeValue(50) as string printlog "+- feat906.sxc" call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\feat906.sxc")) if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906.sxc") , "StarOffice XML (Calc)") then '/// Closing the document also if there is a verification dialog. call hCloseDocument() sleep(3) UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906") ) if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906\styles.xml")) = FALSE then warnlog "XML-file 'styles.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906\meta.xml")) = FALSE then warnlog "XML-file 'meta.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906\content.xml")) = FALSE then warnlog "XML-file 'content.xml' not well formed!" else call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906.sxc")) sleep(2) call hCloseDocument sleep(2) SAXReadFile(gOfficePath & ConvertPath("user\work\xml\calc\level1\feat906\content.xml")) printlog "-------------------------------" printlog "draw:notify-on-update-of-ranges" printlog "-------------------------------" '/// content.xml '/// draw:notify-on-update-of-ranges '/// Feature (Change) 906 '///+
The draw:object got a new attribute. This attribute is only '///+ on chart objects given. It gives the ranges or tablenames '///+ of the chart (the ranges or tablenames the chart is '///+ connected to). If the attribute is not given the object '///+ will be loaded otherwise the object is only loaded if in '///+ the ranges or tables is something changed or the object is '///+ showed. If the value of the attribute is empty it is a OLE '///+ chart with its own data. '///+ This increase the performance of loading charts, because '///+ they are only loaded if they are needed.
'///+ This attribute replaces the draw:notify-on-update-table '///+ attribute which only was usable by the wordprocessing '///+ application. The new one is used by the wordprocessing and '///+ the spreadsheet application. '///+ The data in this attribute are twice, because the chart has '///+ this data too, but to get this data from the chart it has '///+ to be loaded.
'/// Searching for: draw:notify-on-update-of-ranges="Sheet1.A1:Sheet1.A5" '------------------------------------------------------------------------- AttributeSearch(1) = "draw:notify-on-update-of-ranges" AttributeValue(1) = "Sheet1.A1:Sheet1.A5" printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- SAXSeekElement("office:document-content") SAXSeekElement("office:body") SAXSeekElement("table:table") SAXSeekElement("table:table-row" , 2) SAXSeekElement("table:table-cell" , 2) SAXSeekElement("draw:object") for i = 1 to 1 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "Hidden attributes (in namespace): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i printlog " * * *" SAXRelease() end if else call hCloseDocument end if endcase '------------------------------------------------------------------------- testcase tCellformats1 Dim i as integer Dim a as integer Dim xXMLStyleName as string Dim xPath as string Dim AttributeSearch(50) as string Dim AttributeValue(50) as string printlog "+- cellformats1.sdc" call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats1.sdc")) if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1.sxc") , "StarOffice XML (Calc)") then '/// Closing the document also if there is a verification dialog. call hCloseDocument() sleep(3) UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1") ) if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1\styles.xml")) = FALSE then warnlog "XML-file 'styles.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1\meta.xml")) = FALSE then warnlog "XML-file 'meta.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1\content.xml")) = FALSE then warnlog "XML-file 'content.xml' not well formed!" else call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1.sxc")) sleep(2) call hCloseDocument sleep(2) printlog " ---------------------" printlog " c o n t e n t . x m l" printlog " ---------------------" '/// content.xml SAXReadFile(gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats1\content.xml")) printlog "-----------" printlog "T A B L E S" printlog "-----------" '/// table style t1 '///+ Searching for: style:master-page-name="Default" /// '///+ Searching for: style:family="table" /// '------------------------------------------------------------------------- AttributeSearch(1) = "style:family" AttributeValue(1) = "table" AttributeSearch(2) = "style:master-page-name" AttributeValue(2) = "Default" printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- xXMLStyleName = GetItemStyleName ( "office:body", "table:table", "table:table" , 1 , "table:style-name" ) printlog " +---------------------------------------------------------" printlog " |" & xXMLStyleName printlog " +---------------------------------------------------------" xPath = GetXMLElementPath( "office:automatic-styles" , "style:style" , "style:name" , xXMLStyleName) for i = 1 to 2 SAXSeekElement(xPath) printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "Table Style: " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i '///+  style properties: '///+  Searching for: table:display="true" '------------------------------------------------------------------------- AttributeSearch(1) = "table:display" AttributeValue(1) = "true" '------------------------------------------------------------------------- SAXSeekElement(xPath) SAXSeekElement("style:properties") printlog " +- " & AttributeSearch(1) if SAXGetAttributeValue(AttributeSearch(1)) <> AttributeValue(1) then warnlog "style:properties: " & AttributeSearch(1) & " is not " & AttributeValue(1) & "!" end if SAXSeekElement("/") printlog " * * *" printlog "---------" printlog "C E L L S" printlog "---------" '/// cell style ce2 '///+ Searching for: style:family="table-cell" '///+ Searching for: style:parent-style-name="Default" '------------------------------------------------------------------------- AttributeSearch(1) = "style:family" AttributeValue(1) = "table-cell" AttributeSearch(2) = "style:parent-style-name" AttributeValue(2) = "Default" printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- SAXSeekElement("office:document-content") SAXSeekElement("office:body") SAXSeekElement("table:table") SAXSeekElement("table:table-row" , 2) SAXSeekElement("table:table-cell" , 2) xXMLStyleName = SAXGetAttributeValue("table:style-name") printlog " +---------------------------------------------------------" printlog " |" & xXMLStyleName printlog " +---------------------------------------------------------" xPath = GetXMLElementPath( "office:automatic-styles" , "style:style" , "style:name" , xXMLStyleName) for i = 1 to 2 SAXSeekElement(xPath) printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "Table Style: " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i '///+  style properties: '///+ Searching for: fo:color="#000000" '///+ Searching for: style:font-name="Arial" '///+ Searching for: fo:font-size="10pt" '///+ Searching for: fo:font-style="italic" '///+ Searching for: style:text-underline="single" '///+ Searching for: fo:font-weight="bold" '------------------------------------------------------------------------- AttributeSearch(1) = "fo:color" AttributeValue(1) = "#000000" AttributeSearch(2) = "style:font-name" AttributeValue(2) = "Arial" AttributeSearch(3) = "fo:font-size" AttributeValue(3) = "10pt" AttributeSearch(4) = "fo:font-style" AttributeValue(4) = "italic" AttributeSearch(5) = "style:text-underline" AttributeValue(5) = "single" AttributeSearch(6) = "fo:font-weight" AttributeValue(6) = "bold" '------------------------------------------------------------------------- SAXSeekElement(xPath) SAXSeekElement("style:properties") for i = 1 to 6 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "style:properties: " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i SAXSeekElement("/") printlog " * * *" '/// cell 3 '///+ Searching for: style:family="table-cell" '///+ Searching for: style:parent-style-name="Default" '------------------------------------------------------------------------- AttributeSearch(1) = "style:family" AttributeValue(1) = "table-cell" AttributeSearch(2) = "style:parent-style-name" AttributeValue(2) = "Default" printlog "++ Feature(s) to be searched for:" printlog " |" '------------------------------------------------------------------------- SAXSeekElement(1) SAXSeekElement("office:body") SAXSeekElement("table:table") SAXSeekElement("table:table-row" , 4) SAXSeekElement("table:table-cell" , 2) xXMLStyleName = SAXGetAttributeValue("table:style-name") printlog " +---------------------------------------------------------" printlog " |" & xXMLStyleName printlog " +---------------------------------------------------------" xPath = GetXMLElementPath( "office:automatic-styles" , "style:style" , "style:name" , xXMLStyleName) for i = 1 to 2 SAXSeekElement(xPath) printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "Table Style: " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i '///+  style properties: '///+ Searching for: fo:color="#800000" '///+ Searching for: style:text-outline="true" '///+ Searching for: style:text-crossing-out="single-line" '///+ Searching for: fo:font-size="12pt" '///+ Searching for: fo:language="en" '///+ Searching for: fo:country="US" '///+ Searching for: fo:text-shadow="none" '------------------------------------------------------------------------- AttributeSearch(1) = "fo:color" AttributeValue(1) = "#800000" AttributeSearch(2) = "style:text-outline" AttributeValue(2) = "true" AttributeSearch(3) = "fo:font-size" AttributeValue(3) = "12pt" AttributeSearch(4) = "style:text-crossing-out" AttributeValue(4) = "single-line" AttributeSearch(5) = "fo:text-shadow" AttributeValue(5) = "none" AttributeSearch(6) = "fo:country" AttributeValue(6) = "US" AttributeSearch(7) = "fo:language" AttributeValue(7) = "en" '------------------------------------------------------------------------- SAXSeekElement(xPath) SAXSeekElement("style:properties") for i = 1 to 7 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "style:properties: " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i SAXSeekElement("/") printlog " * * *" '/// cell 4 '///+  style properties: '///+ Searching for: style:font-name="Times New Roman" '///+ Searching for: fo:font-size="28pt" '------------------------------------------------------------------------- AttributeSearch(1) = "style:font-name" AttributeValue(1) = "Comic Sans MS" AttributeSearch(2) = "fo:font-size" AttributeValue(2) = "16pt" '------------------------------------------------------------------------- SAXSeekElement(1) SAXSeekElement("office:body") SAXSeekElement("table:table") SAXSeekElement("table:table-row", 6) SAXSeekElement("table:table-cell" , 2) xXMLStyleName = SAXGetAttributeValue("table:style-name") printlog " +---------------------------------------------------------" printlog " |" & xXMLStyleName printlog " +---------------------------------------------------------" xPath = GetXMLElementPath( "office:automatic-styles" , "style:style" , "style:name" , xXMLStyleName) SAXSeekElement(xPath) SAXSeekElement(1) for i = 1 to 2 printlog " +- " & AttributeSearch(i) if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then warnlog "style:properties: " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!" end if next i SAXRelease() end if else call hCloseDocument end if endcase ' '------------------------------------------------------------------------- ' testcase tCellformats2 printlog "+- cellformats2.sdc" call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats2.sdc")) if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2.sxc") , "StarOffice XML (Calc)") then '/// Closing the document also if there is a verification dialog. call hCloseDocument() sleep(3) UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2") ) if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2\styles.xml")) = FALSE then warnlog "XML-file 'styles.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2\meta.xml")) = FALSE then warnlog "XML-file 'meta.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2\content.xml")) = FALSE then warnlog "XML-file 'content.xml' not well formed!" else call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2.sxc")) sleep(2) call hCloseDocument sleep(2) end if else call hCloseDocument end if endcase ' '------------------------------------------------------------------------- ' testcase tCellformats3 printlog "+- cellformats3.sdc" call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats3.sdc")) if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3.sxc") , "StarOffice XML (Calc)") then '/// Closing the document also if there is a verification dialog. call hCloseDocument() sleep(3) UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3") ) if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3\styles.xml")) = FALSE then warnlog "XML-file 'styles.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3\meta.xml")) = FALSE then warnlog "XML-file 'meta.xml' not well formed!" end if if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3\content.xml")) = FALSE then warnlog "XML-file 'content.xml' not well formed!" else call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats3.sxc")) sleep(2) call hCloseDocument sleep(2) end if else call hCloseDocument end if endcase