Forum Webscript.Ru
Программирование => Perl => Тема начата: BonJorno от 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);
}
}
}
}
В файле страниц довольно много, надо распарсить только некоторые и вот тут проблема.
Так вот скрипт почему-то возвращает последнюю страницу.
Если поставить счетчик страниц, то возвращает предпоследнюю.
-
Да причем "--------- SHEET:Третья" выдаёт правильно, а вот данные из другой страницы, в чем причина не пойму
-
Странное молчание...если смущает трактовка sheet в страницы, то речь идёт конечно о листах. Парсить надо только некоторые. В чем косяк непонятно
-
во первых, хорошая практика использовать locale
perldoc perlllocale
во вторых, очень хорошая практика использовать printf
perldoc -f printf; perldoc -f sprintf
также хорошая практика использовать разные методы локализации проблемы, которая имеет место быть
попробуйте сделать такой же скрипт (с использованием eq \'Третья\') для формата CSV думаю проблема сохранится