OpenOffice.info

Code: Alles auswählen

from pathlib import Path

def copy_to_user_path(*_, fname='some_filter.py'):
    doc =XSCRIPTCONTEXT.getDocument()
    sm = XSCRIPTCONTEXT.ctx.ServiceManager
    sfa = sm.createInstance("com.sun.star.ucb.SimpleFileAccess")
    substitute = sm.createInstance("com.sun.star.util.PathSubstitution")
    config_path = substitute.substituteVariables('$(user)/Scripts/python/', True)
    if not sfa.exists(config_path):
        sfa.createFolder(config_path)
    sfa.copy(f"{Path(__file__).with_name( fname )}", f"{ config_path }/{ fname }")

Code: Alles auswählen

def filter_non_empty(*_):

    doc = XSCRIPTCONTEXT.getDocument()
    data = doc.Sheets["Daten"]["E2:E1000"].DataArray
    out = tuple(row for row in data if row[0] != "") # !! ONE Column
    zieltabelle = doc.Sheets["REFilter"]
    zieltabelle["A1:B1000"].clearContents(1023)
    cursor = zieltabelle.createCursorByRange( zieltabelle["A1"] )
    cursor.collapseToSize(len(out[0]), len(out))
    cursor.DataArray = out

Code: Alles auswählen

Sub NullenRausFiltern
oSheet = ThisComponent.Sheets.getByName("Daten")
sRange = "E2:E1000"
oSourceRange = oSheet.getCellRangeByName(sRange)
ThisComponent.Sheets.getByName("REFilter").getCellRangeByName("A1:B1000").clearContents(1023)
Dim oFields(0) As New com.sun.star.sheet.TableFilterField
oFields(0).Field=0
oFields(0).IsNumeric = True
oFields(0).Operator = com.sun.star.sheet.FilterOperator.NOT_EMPTY
oFilterDesc = oSourceRange.createFilterDescriptor(True)
oFilterDesc.setFilterFields(oFields())
oFilterDesc.SkipDuplicates = False
oFilterDesc.IsCaseSensitive = False
oFilterDesc.ContainsHeader = True
oFilterDesc.CopyOutputData = True
oFilterDesc.OutputPosition = ThisComponent.Sheets.getByName("REFilter").getCellRangeByName("A1").cellAddress
oSourceRange.Filter(oFilterDesc)
End Sub