0 Members and 1 Guest are viewing this topic.
table[0]: rows[28], cols[5]Nr Staffel Episode Titel archiviert1 Ganz normale Jobs 1 undef undef2 1 2 Spuren 13 1 3 Nicht über mein Sofa 14 1 4 Geschmackssache 15 2 1 Über den Wolken 16 2 Die Challenge 1 undef7 2 3 Schottys Kampf 18 2 4 Angehörige 19 2 5 Auftrag aus dem Jenseits 110 3 1 Fleischfresser 111 3 2 Schweine 112 3 Carpe Diem 1 undef13 3 4 Ja, ich will 114 4 1 Wattolümpiade 115 4 2 Der Putzer 116 4 3 Damit muss man rechnen 117 4 Der Fluch 1 undef18 4 5 Tauschgeschäfte 119 5 1 Bestattungsvorsorge 120 5 2 Das freie Wochenende 121 5 3 Pfirsichmelba 122 5 4 Anbieterwechsel 123 5 E.M.M.A. 206 1 undef24 5 6 Freunde 125 6 1 Sind Sie sicher? 126 6 2 Özgür 127 6 3 Schluss mit lustig 1--------------------------------------------------------------------------------table[1]: rows[21], cols[5]Nr Staffel Episode Titel archiviert1 Das Krokodil-Dilemma 1 undef undef2 1 2 Der Hahnenprinz 13 1 3 Die schmutzige Straße 14 1 4 Die verschluckte Schuld 15 1 5 Die Fünf Sinne und der Geist 06 1 6 Buridans Esel 17 1 7 Wer rasiert den Barbier? 08 1 8 Der Haufen 19 1 9 Ein Fuchs, ein Kaninchen und ein Kohlkopf 110 1 10 Mortons Gabel 111 2 1 Warten auf Dutch 012 2 Vor dem Gesetz 0 undef13 2 3 Der Mythos des Sisyphos 014 2 4 Furcht und Zittern 015 2 5 Das Geschenk der Weisen 016 2 6 Rhinocerus 017 2 7 Haben Sie das gemacht? Nein, Sie! 018 2 8 Loplop 019 2 9 Das Schloss 020 2 10 Palindrom 0--------------------------------------------------------------------------------table[2]: rows[11], cols[5]Nr Staffel Episode Titel archiviert1 Test undef undef undef2 Test undef undef undef3 Test undef undef undef4 Test undef undef undef5 Test undef undef undef6 Test undef undef undef7 Test undef undef undef8 Test undef undef undef9 Test undef undef undef10 Test undef undef undef--------------------------------------------------------------------------------
#!/usr/bin/perl -wuse strict;use v5.10;use OpenOffice::OODoc;my $doc = odfDocument(file => './data/data.ods');my $tables = $doc->getTableList();for (my $tableNum = 0; $tableNum < $tables; $tableNum++) { my ($rows, $cols) = $doc->getTableSize($tableNum); say "table[" . $tableNum . "]: rows[" . $rows . "], cols[" . $cols . "]"; for (my $rowNum = 0; $rowNum < $rows; $rowNum++) { for (my $colNum = 0; $colNum < $cols; $colNum++) { my $value = $doc->getCellValue($tableNum, $rowNum, $colNum); if ($colNum > 0) { print "\t"; } if (defined $value) { print $value; } else { print "undef"; } } print "\n"; } print "--------------------------------------------------------------------------------\n";}
user@sidbox:~$ ~/bin/oo_tabletable[0]: rows[3], cols[5]1 2 4 56 7 9 undefa b c d e-------------------------------------------------