DataGridView
<office:body> <office:spreadsheet> <table:calculation-settings table:use-wildcards="true" table:use-regular-expressions="false" table:automatic-find-labels="false"/> <table:table table:name="Foglio1" table:style-name="ta1"> <table:table-column table:style-name="co1" table:default-cell-style-name="Default" table:number-columns-repeated="8"/> <table:table-row table:style-name="ro1"> <table:table-cell calcext:value-type="string" office:value-type="string"> <text:p>Carota</text:p> </table:table-cell> <table:table-cell calcext:value-type="string" office:value-type="string"> <text:p>Sedano</text:p> </table:table-cell> <table:table-cell calcext:value-type="string" office:value-type="string"> <text:p>Cipolla</text:p> </table:table-cell> <table:table-cell table:number-columns-repeated="4"/> <table:table-cell calcext:value-type="string" office:value-type="string"> <text:p>Aglio</text:p> </table:table-cell> </table:table-row> </table:table> <table:named-expressions/> </office:spreadsheet> </office:body>
Dim luogo As String = My.Application.Info.DirectoryPath & "\Estratti\content.xml" Dim x = XDocument.Load(luogo) For Each element In x.<office:document-content>.<office:body>.<office:spreadsheet>. <table:table>.<table:table-row>.<table:table-cell> For Each attr As XAttribute In element.Attributes If attr.Name.LocalName = "number-columns-repeated" Then Console.WriteLine(vbTab & attr.Name.LocalName & " : " & attr.Value) Dim aggiunto As Integer = attr.Value End If Next Console.WriteLine(element.Value) Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)