Экспорт в Microsoft Excel (много)

[Yufil]

Совсем маленький пример List & Label для CW10 на основе Clarion\Examples\People, просто посмотреть и потыкать в кнопки ...
https://mega.nz/#!t5JQHThI!3Vldj49d4Zyx ... F3oK91lh_o

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

просто посмотреть и потыкать в кнопки

Спасибо. Классный редактор отчетных форм и предварительный просмотр отчетов !

[kreator]

List&Label симпатичная штучка. Таким и должен быть дизайнер отчётов, наверно. Мне, правда, превьюер не понравился. Ну и ценник не гуманный совсем. Покупку даже выносить на обсуждение не хочется .

[Yufil]

Давно не интересовался этой темой. Раньше было так:
Реально достаточно одной копии Professional Edition. В этом случае, не нарушая авторских прав, работать с отладчиком может только тот, у кого продукт установлен, но дизайнить и печатать/экспортировать отчёты могут и другие. Standard Edition предполагает, что и дизайнить отчёты может только тот, кто установил продукт, но печатать - неограниченно.

[kreator]

Да всё равно. Первая покупка Professional (1 лицензия) - 1428 euro. При этом подписка на 1 год включена. Подписка дальше - 50%. Ну можно и не подписываться, а платить за upgrade по факту. Грамотно. Пока есть возможность добавлять новые возможности. Но что-то мне кажется, что ценник у них растёт, раньше было поменьше. Ну может и креститься надо.

[kreator]

В своей башке прорабатываю идею (не новая, но как-то мимо неё проехал, никто в своё время не подсказал, вот Майк Горман напомнил). Новые форматы Экселя и Ворда - это зиппованные архивы неких xml-файлов, раскиданных по каталогам. Нужно разобраться с принципом заполнения этих файлов. Ну и найти ВинАпишную функцию создания zip-архива. И забыть навсегда проблему экспорта в эти файлы!!! Заодно и импорт из них раскрутить!

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

Ну формат XLSX и DOCX в открытом доступе на сайте Microsoft, а зипование через OLE Windows
мы уже обсуждали: http://forum.clarionlife.net/viewtopic. ... ZIP#p29125

[Yufil]

Разобрался бы с Питоновским интерфейсом (недавно выкладывал пример), там всё это хозяйство доступно в самых разных видах. Консультации и документации - без проблем...

[RaFaeL]

Так есть же libxlsxwriter, исходники на С доступны, берешь и переписываешь на Кларионе. Только смысл?..

[Yufil]

А это зависит от того, что реально нужно.
1. Есть желание получить данные "для работы", чтобы можно было как-то перелопачивать ручками.
2. Хотим иметь твёрдую копию отчёта, которую можно сохранить у себя или переслать куда-то.
3. Хотим получить красивый отчёт по аккуратно нарисованному бланку.
Эти варианты, возможно, требуют разных инструментов.

[kreator]

Так есть же libxlsxwriter, исходники на С доступны, берешь и переписываешь на Кларионе. Только смысл?..

Чтобы не зависеть от конкретно этой библиотеки и от zlib тоже. Winword тоже не помешает, принцип тот же.

Игорь Столяров, а что делает вот этот кусок кода:

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

Loc:Path = Clip(xExtractFileName(Dest_,1)) & Clip(xExtractFileName(Dest_,2))

?

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

Игорь Столяров, а что делает вот этот кусок кода:

Это получение из полного имени файла (диск + папка на диске + имя файла + расширение имени файла) только пути к файлу (диск + папка на диске).

[kreator]

А xExtractFileName самописная, видимо?

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

А xExtractFileName самописная, видимо?

Заимствованная не помню где за давностью лет ...

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

  Module('Windows')
    xf_FnSplit(*cstring,*cstring,*cstring,*cstring,*cstring),short,raw,name('_fnsplit')
  end

xExtractFileName     PROCEDURE  (IPath_,Vid_)              ! Declare Procedure

Loc:Path   CSTRING(256)
Loc:Dir    CSTRING(256)
Loc:Drive  CSTRING(256)
Loc:File   CSTRING(256)
Loc:Ext    CSTRING(256)

  CODE
  
  Loc:Path = Clip(Left(IPath_))
  If xf_FnSplit(Loc:Path,Loc:Drive,Loc:Dir,Loc:File,Loc:Ext).
  Return(Clip(Choose(Vid_,Loc:Drive,Loc:Dir,Loc:File,Loc:Ext)))

[Ал]

А xExtractFileName самописная, видимо?

Заимствованная не помню где за давностью лет ...
...

может сразу в FAQ?