VPF::Создание файла XLS - Форум программистов

igorold

Дата 11.5.2006, 09:43 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

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

Создаю из скрипта XLS-файл:

Код


use Spreadsheet::WriteExcel;
...............................
my $workbook = Spreadsheet::WriteExcel->new("./unzipped/file-1.xls");
$workbook->set_codepage(1); # ANSI, MS Windows
my $worksheet = $workbook->add_worksheet("Закладка 1");
    my $heading3 = $workbook->add_format(
                                        size  => 10,
                                        merge => 1,
                                        color => 'white',
                                        align => 'vcenter',
                                        );
    $heading3->set_bg_color('navy');
    $worksheet->set_column(0, 0, 52);
    $worksheet->set_row(1, 36);
    $worksheet->write(1,  0, Encode::decode("koi8-r", "Данные по базе"), $heading3 );
...............................

В ячейках русский текст выводится нормально, а наименование "Закладка 1" - кракозябрами
как сделать, чтобы и там русский был?

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

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

BlackLFL

Дата 11.5.2006, 10:04 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


use Encode qw(decode);
...
$workbook->add_worksheet( decode( 'cp1251', "Закладка 1" ) );
....

igorold

Дата 11.5.2006, 11:13 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

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

Спасибо, работает!

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

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

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