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);
+  }
+ }
+}
+
+