SpreadSheet::ParseExcel
Torsten Schustek
- perl
Hallo,
ich mache gerade meine ersten Erfahrungen mit SpreadSheet-ParseExcel und habe - wie sollte es anders sein - ein kleines Problem. Mit dem folgenden Code versuche ich die Inhalte eines Worksheets (Tabelle) auszulesen. Es klappt insoweit, daß wirklich nur die Zellen angesprchen werden, die auch Inhalte enthalten. Jetzt will ich aber auch den Inhalt der einzelnen Zelle auslesen:
while ($iRow <= $iStopRow) {
$iCol = 1;
while ($iCol <= $iStopCol) {
$aktuelle_zelle = $worksheet->{Cells}[$iRow][$iCol];
if (defined, $aktuelle_zelle->{Value}) {
push @werte, $aktuelle_zelle->{Value};
}
else {
push @werte, '';
}
$iCol++;
}
$iRow++;
}
Irgendetwas mache ich mit dem Value falsch. Ich habe auch den Thread "Umwandeln einer Excel-Tabelle in eine tab-getrennte txt-Datei" aus dem Archiv gelesen, komme aber irgendwie nicht auf den entscheidenden Hinweis ({Value} oder Value oder???)
Vielen Dank für jede Hilfe!
Torsten
Hej Torsten,
kurzer Blick unter http://search.cpan.org/doc/KWITKNR/Spreadsheet-ParseExcel-0.25/ParseExcel.pm ins Beispiel:
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # Formatted Value
print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # Original Value
...oder liegt Dein Problem woanders?
Marko
Hallo Marko,
erst mal vielen Dank ... au au au es war der VAL ;-)
Ciao!
Torsten
Hej Torsten,
kurzer Blick unter http://search.cpan.org/doc/KWITKNR/Spreadsheet-ParseExcel-0.25/ParseExcel.pm ins Beispiel:
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # Formatted Value
print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # Original Value
...oder liegt Dein Problem woanders?
Marko