Schrift
[thread]12918[/thread]

Spreadsheet::ParseExcel - Zeile einlesen und ausgeben

Leser: 2


<< >> 2 Einträge, 1 Seite
Gast Gast
 2008-12-17 20:47
#117334 #117334
Hallo, hab folgendes Beispiel aus der cpan. Leider bekomm ich es nicht hin das jede Zeile als Zeile ausgegeben wird. Ziel ist es eine Zeile auszugeben die nach jeder Zelle ein ; hat. Analog zu einer .csv. Programmier noch nicht so lang und hoffe das mir jemand eine Lösung zeigt und sie auch etwas erklärt.
Vielen Dank für Eure Hilfe.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
foreach my $sheet (@{$excel->{Worksheet}}) {
printf("Sheet: %s\n", $sheet->{Name});
$sheet->{MaxRow} ||= $sheet->{MinRow};
foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) {
$sheet->{MaxCol} ||= $sheet->{MinCol};
foreach my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) {
my $cell = $sheet->{Cells}[$row][$col];
if ($cell) {
printf("( %s , %s ) => %s\n", $row, $col, $cell->{Val});
}
}
}
}


ModEdit GwenDragon: Titel sinnvoll geändert; CODE-Tags hinzugefügt
renee
 2008-12-17 23:15
#117338 #117338
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wenn es nicht das macht, was Du willst, was macht es denn? Gibt es eine Fehlermeldung?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 2 Einträge, 1 Seite



View all threads created 2008-12-17 20:47.