|
|
|||||
Регистрация: Feb 2002
Адрес: spb
Сообщений: 149
|
чтение данных из xsl
Пример чтения данных: use strict; use Spreadsheet::ParseExcel; my $oExcel = new Spreadsheet::ParseExcel; my $oBook = $oExcel->Parse('perl.xls'); my($iR, $iC, $oWkS, $oWkC); print "FILE :", $oBook->{File} , "\n"; print "COUNT :", $oBook->{SheetCount} , "\n"; print "AUTHOR:", $oBook->{Author} , "\n"; 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++) { for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) { $oWkC = $oWkS->{Cells}[$iR][$iC]; print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); } } } print "COUNT :", $oBook->{SheetCount} , "\n"; print "AUTHOR:", $oBook->{Author} , "\n"; вот это зачем определяется? И почему 3 вложенных фора, если просматривается двухмерный массыв? Это тоже не понятно. Если можно то раскрой смысл переменных, это конечно и методом перебора можно определить. Но если есть умные парни, то почему не вывесить маленькое пособие по чтению xsl
__________________
Благодарю за чтение, мужчины и женщины. |
Часовой пояс GMT +4, время: 19:28. |
|
« Предыдущая тема | Следующая тема » |
|
|