powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
5 сообщений из 5, страница 1 из 1
(Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
    #33208413
mod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пытаюсь генерить отчёты, но, увы, нет красоты в таблицах ибо /qc там не центрует... Может кто чего посоветует?
...
Рейтинг: 0 / 0
(Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
    #33208681
LeXa NalBat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qc центрирует
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
#!/usr/bin/perl

use strict;
use warnings;
use lib qw( lib );
use RTF::Writer;

my $rtf = RTF::Writer->new_to_file('test.rtf');
$rtf->prolog();
$rtf->row( RTF::Writer::TableRowDecl->new( widths => [  3000 ,  3000  ] ), \'\qc one', \'\qc two' );
$rtf->row( RTF::Writer::TableRowDecl->new( widths => [  1000 ,  1000 ,  1000 ,  1000 ,  1000 ,  1000  ] ), '1.1', '1.2', '1.3', '2.1', '2.2', '2.3' );
$rtf->close;
...
Рейтинг: 0 / 0
(Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
    #33209746
mod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня:
$rtf->row($trdecl,[\'\fs18\i\b\qc',"one"], [\'\fs18\i\b\qc',"two"])
не фига!
...
Рейтинг: 0 / 0
(Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
    #33209877
mod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LeXa NalBat твой вариант работает, так что так и сделал...
...
Рейтинг: 0 / 0
(Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
    #33210150
mod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Автор модуля предложил....

This should do it:


use strict;
use warnings;
use RTF::Writer;
my $rtf = RTF::Writer->new_to_file("align_center.rtf");
$rtf->prolog();

my $trdecl = RTF::Writer::TableRowDecl->new(
widths => [3000, 3000],
borders => 1,
align => "c c",
);

$rtf->row( $trdecl,
join('', "In the center of Fedora, that gray stone metropolis, ",
"stands a metal building with a crystal globe in every ",
"room. Looking into each globe, you see a blue city, ",
"a model of a different Fedora."),
"Hi there"
);
$rtf->close;
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Как используя RTF-Writer делать выравнивания в ячейках таблицы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]