3
« : 31 Августа 2006, 11:40:15 »
Занялся парсингом Excel, застрял уже на слегка модифицированном примере:
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
open (BAL, ">c:\\\\temp\\\\balans.txt");
my $oExcel = new Spreadsheet::ParseExcel::Workbook;
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => \'CP1251\');
my $oBook = $oExcel->Parse(\'c:\\\\temp\\\\balans.xls\',$oFmtJ);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
print BAL "--------- SHEET:", $oWkS->{Name}, "\\n";
if ($oWkS->{Name} eq \'Третья\'){
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 BAL "( $iR , $iC ) =>", $oWkC->Value, "\\n" if($oWkC);
}
}
}
}
В файле страниц довольно много, надо распарсить только некоторые и вот тут проблема.
Так вот скрипт почему-то возвращает последнюю страницу.
Если поставить счетчик страниц, то возвращает предпоследнюю.