summaryrefslogtreecommitdiff
path: root/doc/nils-diplom/Dateistruktur/admin/LIST
diff options
context:
space:
mode:
Diffstat (limited to 'doc/nils-diplom/Dateistruktur/admin/LIST')
-rwxr-xr-xdoc/nils-diplom/Dateistruktur/admin/LIST/parse-exel.pl38
1 files changed, 38 insertions, 0 deletions
diff --git a/doc/nils-diplom/Dateistruktur/admin/LIST/parse-exel.pl b/doc/nils-diplom/Dateistruktur/admin/LIST/parse-exel.pl
new file mode 100755
index 0000000..1574c0d
--- /dev/null
+++ b/doc/nils-diplom/Dateistruktur/admin/LIST/parse-exel.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Spreadsheet::ParseExcel;
+
+my $oExcel = new Spreadsheet::ParseExcel;
+
+die "Bitte eine EXCEL-DATEI als $0 angeben!" unless @ARGV;
+
+my $oBook = $oExcel->Parse($ARGV[0]);
+my($iR, $iC, $oWkS, $oWkC);
+
+#print "FILE :", $oBook->{File} , "\n";
+#print "COUNT :", $oBook->{SheetCount} , "\n";
+#print "AUTHOR:", $oBook->{Author} , "\n"
+
+#if defined $oBook->{Author};
+
+for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
+{
+ $oWkS = $oBook->{Worksheet}[$iSheet];
+ #print "--------- SHEET:", $oWkS->{Name}, "\n";
+ for(my $iR = $oWkS->{MinRow} ;
+ defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
+ $iR++)
+ {
+ print ">>>";
+ for(my $iC = $oWkS->{MinCol} ;
+ defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
+ $iC++)
+ {
+ $oWkC = $oWkS->{Cells}[$iR][$iC];
+ print ">", $oWkC->Value if($oWkC);
+ }
+ }
+}
+
+