![]() |
|
||||||||||
|
|||||||
|
|
« Предыдущая тема | Следующая тема » |
| Опции темы | Опции просмотра |
|
![]() |
|
|||||
|
Регистрация: Mar 2003
Сообщений: 27
|
использую следующую програмку она выдирает в таблицу текст из excel файла:
#!/usr/bin/perl use strict; use Spreadsheet::ParseExcel; print "Content-type: text/html\n\n"; my $oExcel = new Spreadsheet::ParseExcel; my $oBook = $oExcel->Parse('perl.xls'); my($iR, $iC, $oWkS, $oWkC); for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) { $oWkS = $oBook->{Worksheet}[$iSheet]; print "<table border=1 width='100%'>"; for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) { print "<tr>"; for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) { $oWkC = $oWkS->{Cells}[$iR][$iC]; print "<td>"; print "", $oWkC->Value, "<br>" if($oWkC); # Formatted Value print "</td>"; } print "</tr>"; } print "</table>"; } но беда в том что если в excel забиты русские тексты то они не читаются ... помогите плиз поправить код чтобы все заработало и прочитало русский текст!!! |
![]() |
Часовой пояс GMT +4, время: 02:12. |
|
|
« Предыдущая тема | Следующая тема » |
|
|