Замена формата Числовой на Текст

[mikekaganski]

Можно.

[JohnSUN]

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

Upd Спасибо! Оперативно, информативно, полезно

[mikekaganski]

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

На самом деле всё не так страшно.

Код Выделить Развернуть


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]

Питоньяк ещё на всякий случай (?) после addNew добавил

Код Выделить Развернуть

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

[mikekaganski]

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

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

[rami]

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

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