Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

18 Ноябрь 2018, 21:55 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Замена формата Числовой на Текст  (Прочитано 1785 раз)
0 Пользователей и 1 Гость смотрят эту тему.
mikekaganski
Мастер
*****
Online Online

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 110


« Ответ #15: 30 Октябрь 2017, 16:29 »

Можно.
Записан

С уважением,
Михаил Каганский
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 603


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #16: 30 Октябрь 2017, 17:10 »

Ну да, всё можно... Не знаешь, где лежат nnn для США и Таиланда? (или там речь о Тайване? О, мой английский!)
А если знаешь, может пихнёшь Священную Арфу в нужную сторону? А то Вольфганг опять написал многбукав, а ответа так и не дал...

Upd Спасибо! Оперативно, информативно, полезно
« Последнее редактирование: 30 Октябрь 2017, 19:19 от JohnSUN » Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
mikekaganski
Мастер
*****
Online Online

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 110


« Ответ #17: 31 Октябрь 2017, 12:50 »

Можно попытаться выяснить как формируется номер пользовательского формата, но я не вижу в этом практической пользы, будет намного сложней этим пользоваться.

На самом деле всё не так страшно.
Код:
sFmt = "@"
oLocale = ThisComponent.CurrentController.Selection.CharLocale
nFmtId = ThisComponent.NumberFormats.queryKey(sFmt, oLocale, False)
if nFmtId = -1 then
   nFmtId = ThisComponent.NumberFormats.addNew(sFmt, oLocale) ' Не для "@", конечно
end if
Записан

С уважением,
Михаил Каганский
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 603


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #18: 31 Октябрь 2017, 13:57 »

Питоньяк ещё на всякий случай (?) после addNew добавил
Код:
If (nFmtId = -1) Then nFmtId = 0
Это вроде как "добавить не получилось - будет Базовый"?
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
mikekaganski
Мастер
*****
Online Online

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 110


« Ответ #19: 31 Октябрь 2017, 14:16 »

Ну, типа того, но зря.

addNew не возвращает -1. Она может выбросить исключение (см. SvNumberFormatsObj::addNew). В свою очередь, SvNumberFormatter::PutEntry возвращает true только если была добавлена новая позиция, и индекс её не будет -1.
Записан

С уважением,
Михаил Каганский
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 587


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #20: 31 Октябрь 2017, 14:59 »

Ну, типа того, но зря.
Не думаю, что зря, скорее всего в те дремучие времена это имело смысл.
Записан

Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!