VPF::Spreadsheet::ParseExcel - Форум программистов

Agares

Дата 18.8.2008, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 376
Регистрация: 20.5.2007
Где: Минск

Репутация: нет
Всего: нет

Парсю XLS модулем Spreadsheet::ParseExcel
На выходе получаю:

Код


4 | software | @>3@0<<=>5� >15A?5G5=85 |

Как я понял, проблема с кодировкой, похоже выдается в utf8. Можно ли как-то преобразовать в нормальный вид?

Код


utf8::decode($string);

не помогает

Это сообщение отредактировал(а) Agares - 18.8.2008, 17:30

--------------------

Мой ноут: Impression First 657
ОС: Gentoo Linux

nitr

Дата 19.8.2008, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Agares, поманипулируйте с модулем Encode (методы decode, encode). Прочтите по вашему модулю документацию, там есть явное указание кодировок (на сколько помню).

--------------------

I love ArchLinux

Itsys

Дата 19.8.2008, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 2
Всего: 34

use Spreadsheet::ParseExcel::FmtUnicode;

Добавлено через 1 минуту и 29 секунд
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>'CP1251');

my $oBook = $oExcel->Parse('C:/путь/to.xls',$oFmtJ);

nitr

Дата 19.8.2008, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Вот и оно

Itsys, ;)

P.S.: память не подвела smile

, а на работе нет возможно проверить как же "указывается" smile

--------------------

I love ArchLinux

Agares

Дата 19.8.2008, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 376
Регистрация: 20.5.2007
Где: Минск

Репутация: нет
Всего: нет

Код


        my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>'CP1251');
        my $excel = Spreadsheet::ParseExcel::Workbook->Parse($import_file,$oFmtJ);

Код


6028 | enterprise resource planning (ERP) software | ONDnÄR�(�E�R�P�)oOS | 5262 |

не помогает :(

--------------------

Мой ноут: Impression First 657
ОС: Gentoo Linux

nitr

Дата 19.8.2008, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Agares, а как вариант с Encode?

--------------------

I love ArchLinux

Agares

Дата 19.8.2008, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 376
Регистрация: 20.5.2007
Где: Минск

Репутация: нет
Всего: нет

тоже не помогает :(

--------------------

Мой ноут: Impression First 657
ОС: Gentoo Linux

Itsys

Дата 19.8.2008, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 2
Всего: 34

Неужели так не помогает?

Код


use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
my $oExcel = new Spreadsheet::ParseExcel;
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>'CP1251');

my $oBook = $oExcel->Parse('C:/путь/to.xls',$oFmtJ);

Itsys

Дата 19.8.2008, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 2
Всего: 34

Если не помогает, когда приду домой, посмотрю, я с этом как-то уже боролся....

Agares

Дата 19.8.2008, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 376
Регистрация: 20.5.2007
Где: Минск

Репутация: нет
Всего: нет

Увы не помогает

--------------------

Мой ноут: Impression First 657
ОС: Gentoo Linux

nitr

Дата 19.8.2008, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Agares,

Код

...
use Encode 'encode';

...
print encode('cp1251', $oWkC->Value);
...

Добавлено через 2 минуты
Agares, вы уверены что должно? Я проверил оба способа, что через Encode, что через Spreadsheet::ParseExcel::FmtUnicode.
Результат - положительгый

Добавлено через 3 минуты и 42 секунды
Взял просто sample.pl отредактировал для себя и всё

Код

#!/usr/bin/perl
use strict;
use warnings;

use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;

my $oFmt = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>'CP1251');
my $oExcel = Spreadsheet::ParseExcel->new;

my $oBook = $oExcel->Parse('./test.xls', $oFmt);
PrnBook($oBook);

sub PrnBook {
    my($oBook) = @_;
    my($iR, $iC, $oWkS, $oWkC);

    print "=========================================\n";
    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);
            }
        }
    }
}

Добавлено через 4 минуты и 41 секунду
Agares, какая ОС и какой формат (чем создавался) данный xls???

--------------------

I love ArchLinux

Agares

Дата 20.8.2008, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 376
Регистрация: 20.5.2007
Где: Минск

Репутация: нет
Всего: нет

ОС Unix, чем создавался файл не знаю, скорее всего Майкрософт Эксель. Сам сайт работает на utf8.

--------------------

Мой ноут: Impression First 657
ОС: Gentoo Linux

nitr

Дата 20.8.2008, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Цитата(Agares @ 20.8.2008, 10:52

)

ОС Unix, чем создавался файл не знаю, скорее всего Майкрософт Эксель. Сам сайт работает на utf8.

вы столько инфы сейчас дали smile

Прочтите доку по всем вашим модулям. Я бы предложил "побаловаться" с Encode.pm.

--------------------

I love ArchLinux

Itsys

Дата 20.8.2008, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 2
Всего: 34

Нашел:

Код


            my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => 'CP1251');
            my $excel = Spreadsheet::ParseExcel::Workbook->Parse("file.xls", $oFmtJ);
            my $sheet = $excel->{Worksheet}[0];
            $NumberRows = $sheet->{MaxRow};
            foreach my $cellnum ($sheet->{MinCol} .. $sheet->{MaxCol}) {
                my $cell = $sheet->{Cells}[$PARAMS{HeaderLine} - 1][$cellnum];
                if ($cell) {
                    my $Val = $oFmtJ->TextFmt($cell->{Val}, $cell->{Code});
                    if ($Val){
                        $names{$Val} = {ColumnPosition => $cellnum};
                    }
                }
            }

Agares

Дата 20.8.2008, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 376
Регистрация: 20.5.2007
Где: Минск

Репутация: нет
Всего: нет

Помогла вот такая бойда, спасибо smile

Код


if ($cell->{Code} eq 'ucs2')
                            {
                              $inf->{$i}->{$col} = &Encode::decode("UCS-2BE", $cell->{Val});
                            }

--------------------

Мой ноут: Impression First 657
ОС: Gentoo Linux

nitr

Дата 20.8.2008, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Agares, ужас какой ;)

Itsys, интересная подметка...

Добавлено через 1 минуту и 17 секунд
Кстати, давно писал про этот модуль, он уже давно не обновлялся, к примеру, не поймет Excel 2007. Так вот, я писал тогда, что лучше работать с XLS как с XML, есть аналогичный модуль, тогда ещё некоторые доработки здесь приводил smile

Автор скорее уже сделал их (надо будет ему написать ;) )

--------------------

I love ArchLinux

Itsys

Дата 21.8.2008, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 2
Всего: 34

nitr, ты имеешь в виду модуль XML::Excel? Не в курсе, насколько он быстрее работает чем Spreadsheet::ParseExcel?

ЗЫ Вообще, насколько я понял, быстрее всего парсить большие Excel файлы через OLE smile

shamber

Дата 21.8.2008, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

вот что пишет автор
Ofcourse the DOM implementation takes up more resources and in some instances timing, it's the easiest to use.

Цитата(Itsys @ 21.8.2008, 11:19

)

ЗЫ Вообще, насколько я понял, быстрее всего парсить большие Excel файлы через OLE

помним помним smile

Это сообщение отредактировал(а) shamber - 21.8.2008, 12:02

nitr

Дата 21.8.2008, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Itsys, shamber, smile

Я вот что нашёл Spreadsheet::TieExcel
По поводу Excel 2007 Spreadsheet::XLSX
Так что проект кое-как развивается smile

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »