libxlsxwriter for Clarion

[RaFaeL]

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

[RaFaeL]

Для имен файлов у меня вот так:

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

checkstr    string('\/:*?"<>|')

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

                      if match(lfile,'[\/:*?"<>|]',Match:Regular)
                        loop ch1#=1 to len(checkstr)
                          loop ch2#=1 to len(clip(lfile))
                            if lfile[ch2#]=checkstr[ch1#]
                              lfile[ch2#]='_'
                            end
                          end
                        end
                      end

[RaFaeL]

В принципе можно ж в поставку вставить функцию strout=XSLX:Normalize(strin) это обертке не помешает. Давайте тогда оптимальный алгоритм )

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

Давайте тогда оптимальный алгоритм

Ага ! Идея-то неплохая.
Ваш алгоритм и есть оптимальный - у меня тоже самое, только я тупо перебираю строку всегда.

[RaFaeL]

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

    XLSX:Normalize(STRING In_,BYTE valchar_=95),STRING

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

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)

  CODE

   l#=len(In_)
   loop i#=1 to l#
     if instring(In_[i#],'/\[]:*?')
       In_[i#]=chr(valchar_)
     end
   end
   if l#>31
     return In_[1:31]
   end
   return In_

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

XLSX:Normalize

Ура ! Спасибо !
Уже можно смотреть обновление лучшей в мире библиотеки для экспорта в XLSX ?

[RaFaeL]

Уже можно смотреть обновление лучшей в мире библиотеки для экспорта в XLSX ?

Готовую функцию то самостоятельно уж можно в код вставить, думаю

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

...

[Дед Пахом]

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)

Эффективнее проверку на >31 в цикл встроить, а то передадут строку размером в гиг, цикл её будет всю по символу перебирать.

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

Эффективнее проверку на >31 в цикл встроить

Если автор не возражает

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

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)

  CODE

   l#=len(In_)
   if l# > 31 Then
     l# = 31
   end
   loop i#=1 to l#
     if instring(In_[i#],'/\[]:*?')
       In_[i#]=chr(valchar_)
     end
   end
   return In_[1:l#]

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

И ещё немного "защиты от дурака"

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

XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)


  CODE

   l#=len(In_)
   if l# > 31
     l# = 31
   end
   if instring(chr(valchar_),'/\[]:*?') 
     valchar_ = 95
   end
   loop i#=1 to l#
     if instring(In_[i#],'/\[]:*?')
       In_[i#]=chr(valchar_)
     end
   end
   return In_[1:l#]

[RaFaeL]

ОК

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

Ура ! Заработала ! Спасибо !

По преданию, Рафаэль Санти (XVI век) сам делал копии своих знаменитых полотен с мадоннами и продавал
их за бесценок … просто, что бы другие живописцы в желании подзаработать не исказили настоящее искусство …

Колёса вертятся, но ничего не меняется.

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

По преданию, Рафаэль Санти (XVI век) сам делал копии своих знаменитых полотен с мадоннами и продавал
их за бесценок … просто, что бы другие живописцы в желании подзаработать не исказили настоящее искусство …

Я, в данной ситуации, предпочитаю считать себя реинкарнацией Хана Ван Мегина

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

Сам такой - хочется нафигачить всего и побольше.

Что в общем-то и сделал: экспорт разделителей, чисел по формату, картинок вписанных в квадрат с отступами,
установка высоты строки для объединённых ячеек по длине текста и т.д.

Но есть тонкая грань - что действительно нужно в базовом классе, а что локальные надуманные доделки …

[finsoftrz]

Кстати, а в последних версиях ms office файлики нормально читаются? Я полгода назад одному товарищу отправлял, у него вылезали разные сообщения об ошибках, хотя открыть он смог. При этом в опенах все открывалось без проблем. Какое там состояние на сегодня?