OODoc -> Fehler bei 'getCellValue'? - #123539 (Fragen zu Perl-Modulen)

Hagen

2009-07-24 15:58

User since
2007-09-06
233 Artikel
BenutzerIn
[default_avatar]

Hallo!

Ich versuche mit dem folgenden Skript eine OO-Tabellendokument auszulesen:

Code (perl): (dl )

sub Lese_Datei {
     my($datei) = @_;
     print "      Bearbeite '$datei' ...\n";
     my $doc = odfDocument(file => $datei);
     # alle Arbeitsblätter bearbeiten
     for (my $i=0; $i<$doc->getTableList();$i++) {
          my $tbl = $doc->getTable($i);
          print "         Name des Arbeitblattes: ".$doc->tableName($tbl)."\n";
          for (my $zeile=0; $zeile<20; $zeile++) {
               for (my $spalte=0; $spalte<20;$spalte++) {
                    print $doc->getCellValue($tbl, $zeile, $spalte).";";
                    } # for
               print "\n";
               } # for
          } # for
     } # Lese_Datei

(zur Fehlersuche sind die einige Zeilen ersetzt bzw. gekürzt worden).

Das Interessante/Problem ist, stehen in einer Zeile in zwei Spalten direkt hintereinander die gleichen Inhalte, wird der zweite Inhalt ignoriert:

Code: (dl )

1
2

Auto;1;;;;;;;;;;;;;;;;;;;
Werkbank 1;Werkbank 2;2;;;;;;;;;;;;;;;;;;

1. Spalte ist eine ID, 2. Spalte der Bezeichner, 3. Spalte die Anzahl, ...
Eigentlich hätte in der Ausgabe in der ersten Zeile zwei mal Auto stehen müssen.

Mach ich etwas falsch oder ist das ggf. ein Fehler in dem Modul?

Gruß
Hagen