Macro Spreadsheet2html/fr

Description
Exporte le contenu d'une feuille de calcul FreeCAD en tant que html stylé, peut être utilisé pour l'importer dans LibreOffice Writer ou Calc. Plus d'informations dans la docstring de la macro.

Utilisation
Sélectionnez une feuille de calcul et exécutez la macro.

Installation
Visible dans le gestionnaire d'addons, mais l'installation ne fonctionne pas. Pour le moment, la seule option est d'installer manuellement, mais vous devez prendre le code de "view source" de ce wiki. Le code complet est là, mais il ne s'affiche pas sur le wiki.

Liens
Forum : pas de fil au moment de la rédaction.

Code
Macro_Spreadsheet2html.FCMacro

'):                  kva = align_table.get(which)                    if kva:                        new_attrib.update(dict((kva,)))            elif k == 'backgroundColor':                new_attrib.update(dict(bgcolor=v[:-2]))            elif k == 'displayUnit':                comment.append('unit: {}'.format(v))            elif k == 'foregroundColor': # will always be first                font = ET.Element('font', dict(color=v[:-2]))                subel.append(font)            elif k == 'style':                for which in v.split(chr(124)):                    sty = ET.Element(style_table.get(which))                    subel.insert(0, sty)        # formula options        if isinstance(td.text, str) and td.text.startswith('='):            if options.get('PasteSpecial_values'):                td.text = str(spreadsheet.get(address)) # returns casted type            elif options.get('PasteSpecial_values_and_format'): formula = td.text td.text = str(spreadsheet.get(address)) comment.append('formula: {}'.format(formula)) elif options.get('PasteSpecial_formulas_and_format'): value = spreadsheet.get(address) comment.append('value: {}'.format(value))

if options.get('PasteSpecial_values'): subel, comment = list, list for k in tuple(new_attrib): if not 'span' in k:                   _ = new_attrib.pop(k)

# sanitize for html if td.text: td.text = htmllib.escape(td.text)

if comment: ET.SubElement(td, 'a', {'class': 'comment-indicator'}) popup = ET.Element('comment') popup.text = '

Version
v0.1 2021-08-09 : first release