libxlsxwriter for Clarion

[RaFaeL]

Создание файлов Excel (xlsx) без использования Excel на основе проекта libxlsxwriter (https://libxlsxwriter.github.io). Можно создавать файлы, листы в них, писать данные (текст (в т.ч. русский), число, дата, время), ставить форматирование (цвет, рамки, шрифт, выравнивание, размер), объединять ячейки, фиксировать и скрывать строки и колонки, вставлять изображения, рисовать графики (диаграммы), устанавливать настройки печати и свойства документа.
Для конвертирования "картинок" форматов используется библиотека Tpicture от Taboga, у кого этого класса нет замените на что-то свое

[Игорь Столяров]

Так то от винды зависит, в туркляндии будут тугрики

Таки это же надо сообразить …
Во всех примерах (в т.ч. и "русском" Microsoft Excel) в маске формата, ПЕРЕД суммой стоит символ валюты: $
Кто же знал, что она подлая, будет его заменять на символ "рупь" да еще переносить его после суммы …
Эт только методом тыка познаётся.

[RaFaeL]

Я о том, что если откроете файл в винде с американскими региональными настройками, то отобразятся доллары, от чего могут возникнуть нюансы

[Игорь Столяров]

файл в винде с американскими региональными настройками

Я ж с того и начал … Если задавать маску ячейки "'#,##0.00 Р;[Red]#,##0.00 Р'" - то везде будет рупь,
но я не знаю как из Clarion записать символ рубля … Если задавать через номер встроенного формата -
то с символом национальной валюты проблем нет, но могут быть нюансы в зависимости от локализации.
В общем, нет полного сщастия.

[Дед Пахом]

А нельзя вызвать встроенную в Excel функцию UNICHAR, как-то так:

Код: Выделить всё

#,##0.00 UNICHAR(8381);[Red]#,##0.00 UNICHAR(8381)

где 8381 - код рубля?

[Игорь Столяров]

Не хочет она так. Совсем … Видимо в маске формата функции не работают, это же не формула ...

[Дед Пахом]

А если libxlsxwriter работает в UTF-8, можно передать рубль так:

Код: Выделить всё

'#,##0.00 <0eh,02h,08h,02h,0bh,0dh>;[Red]#,##0.00 <0eh,02h,08h,02h,0bh,0dh>'

где <0eh,02h,08h,02h,0bh,0dh> символ рубля в utf-8.

[Игорь Столяров]

Вот и я, что-то подобное пытался прикрутить … Не хочет оно так.

[RaFaeL]

Там надо передать нечто, что при конвертации из 1251 в UTF-8 даст этот набор символов

[Дед Пахом]

Для очистки совести надо проверить <0e2h,082h,0bdh>, но думаю, тоже не сработает.
А вот этот пример https://libxlsxwriter.github.io/utf8_8c-example.html что означает?

[RaFaeL]

Экспериментируйте

[Губин Игорь]

Предлагаю в xlsxwriter.inc и clw заменить

Код: Выделить всё

  MODULE('xlsxwriter.clw')
    FormDateTime(*XLSX:datetime dt_,LONG date_,LONG time_)
    FormLine(*XLSX:chart_line_ line_,<LONG color_>,<BYTE none_>,<REAL width_>,<BYTE dash_type_>,<BYTE transparency_>)
    FormFill(*XLSX:chart_fill fill_,<LONG color_>,<BYTE none_>,<BYTE transparency_>)
    FormFont(*XLSX:chart_font font_,<REAL size_>,<LONG style_>,<LONG rotation_>,<LONG color_>)
    RGBColor(LONG color),LONG
    GetSystemColor(LONG Color),LONG
  END

на

Код: Выделить всё

  
  MODULE('xlsxwriter.clw')
    XLSX:FormDateTime(*XLSX:datetime dt_,LONG date_,LONG time_)
    XLSX:FormLine(*XLSX:chart_line_ line_,<LONG color_>,<BYTE none_>,<REAL width_>,<BYTE dash_type_>,<BYTE transparency_>)
    XLSX:FormFill(*XLSX:chart_fill fill_,<LONG color_>,<BYTE none_>,<BYTE transparency_>)
    XLSX:FormFont(*XLSX:chart_font font_,<REAL size_>,<LONG style_>,<LONG rotation_>,<LONG color_>)
    XLSX:RGBColor(LONG color),LONG
    XLSX:GetSystemColor(LONG Color),LONG
  END

Это будет гарантировать от конфликтов с похожими наименованиями у пользователя

[RaFaeL]

Спасибо, заменю

[Губин Игорь]

Спасибо, заменю

Было бы хорошо, но уже поздно, использовать при вызове функций порядок переменных аналогичный dExcel.
А то приходится переписывать кучу всего

[RaFaeL]

Было бы хорошо, но уже поздно, использовать при вызове функций порядок переменных аналогичный dExcel.

Никогда не пользовались. Порядок переменных приближен к оригинальной библиотеке, где это возможно, чтобы не писать свою документацию )

[Игорь Столяров]

при вызове функций порядок переменных аналогичный dExcel

Напишите свой subclass вызова методов XLSXWriter в удобном Вам виде для замены (как в dExcel, цеExcel и т.д.)
Мы ниже это обсуждали. Я так делал при переводе копипастом кода отчётов с OLE Excel …