OpenOffice.info

Code: Alles auswählen

import uno
from os import path

try:
    context = XSCRIPTCONTEXT
except:
    pass
ctx = uno.getComponentContext()
servicemanager = ctx.ServiceManager
createUnoService = servicemanager.createInstance
file_access = createUnoService("com.sun.star.ucb.SimpleFileAccess")
pathsubstution = createUnoService("com.sun.star.util.PathSubstitution")

def install_me(*_):
    """
    Funktion zum kopieren dieses eingebetteten Pythonscripts
    ins den .userconfig_python_pfad"""

    pythonfolder = pathsubstution.substituteVariables('$(user)/Scripts/python/',0)
    filename = path.basename(__file__)
    if not file_access.isFolder( pythonfolder):
        file_access.createFolder(pythonfolder)
    file_access.copy(__file__, path.join( pythonfolder, filename))



def columns_set(*_):
    """
    Fuer Nina_L
    openoffice_info
    Thema 61690
    """
    doc = context.getDocument()
    sel = doc.getCurrentSelection()
    data = sel.getDataArray()
    out = []
    for columns in zip(*data):
        c = []
        for cell in columns:
            if cell not in c:
                c.append(cell)
        c.extend(['']* (len(columns)-len(c)))
        out.append(tuple(c))
    sel.setDataArray(tuple(zip(*out)))
 

Code: Alles auswählen

Sub S_Eraese_doubles
    osel = thiscomponent.currentselection
    if osel.supportsservice("com.sun.star.sheet.SheetCellRange") then
        oRange = osel
        aformula = orange.getformulaarray 'Daten auslesen
        nrows = Ubound (aformula)
        ncolumns = Ubound(aformula(0))
        dim vFormula(ncolumns,nrows)
        for k = 0 to nrows 'Daten in 2D-Array übertragen
          arow = aformula(k)
          for i= 0 to ncolumns
              vformula (i,k) = arow(i)
          next i
        next k
        for i = 0 to ncolumns 'Doubletten löschen
           for j = nrows to 1 step -1
              for k = j-1 to 0 step -1
              if vformula(i,j) = vformula(i,k) then 
                  vformula(i,j) = ""
                  exit for
              endif
              next k
          next j
        next i
        for k = 0 to ncolumns 'Leere Felder löschen
            EmptyCounter = 0
            bfound = false
            for i = 1 to nrows
                if vformula(k,i) = "" then
                    EmptyCounter = i
                    bfound = true
                    exit for
                endif
            next i
            for j = EmptyCounter+1 to nrows
                if bfound and vformula(k,j) <> "" then
                    vformula(k,EmptyCounter) = vformula(k,j)
                    vformula(k,j) = ""
                    EmptyCounter = EmptyCounter +1
                endif
            next j
        next k
        for k = 0 to nrows 'Daten in 1D-Array(1D-Array) zurückschreiben
          arow = aformula(k)
          for i= 0 to ncolumns
              arow(i) = vformula (i,k)
          next i
        next k
        oRange.setformulaarray(aformula) 'Daten in Tabelle zurückschreiben
        msgbox "fertig"
    else
        msgbox "Bitte einen zusammenhängenden Zellbereich selektieren"
    endif
End Sub

Code: Alles auswählen

def columns_set(*dummy):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.getCurrentSelection()
    data = sel.getDataArray()
    out = []
    for columns in zip(*data):
        c = []
        for cell in columns:
            if cell not in c:
                c.append(cell)
        c.extend(['']* (len(columns)-len(c)))
        out.append(tuple(c))
    sel.setDataArray(tuple(zip(*out))) 

Code: Alles auswählen

Sub S_Eraese_doubles
    osel = thiscomponent.currentselection
    if osel.supportsservice("com.sun.star.sheet.SheetCellRange") then
        oRange = osel
        aformula = orange.getformulaarray 'Daten auslesen
        nrows = Ubound (aformula)
        ncolumns = Ubound(aformula(0))
        dim vFormula(ncolumns,nrows)
        for k = 0 to nrows 'Daten in 2D-Array übertragen
          arow = aformula(k)
          for i= 0 to ncolumns
              vformula (i,k) = arow(i)
          next i
        next k
        for i = 0 to ncolumns 'Doubletten löschen
           for j = nrows to 1 step -1
              for k = j-1 to 0 step -1
              if vformula(i,j) = vformula(i,k) then 
                  vformula(i,j) = ""
                  exit for
              endif
              next k
          next j
        next i
        for k = 0 to ncolumns 'Leere Felder löschen
            for i = 0 to nrows
               if vformula(k,i) = "" then
               for j = nrows to i+1 step -1
                  vformula(k,j-1) = vformula(k,j)
                  vformula(k,j) = ""
               next j
               endif
            next i
        next k
        for k = 0 to nrows 'Daten in 1D-Array(1D-Array) zurückschreiben
          arow = aformula(k)
          for i= 0 to ncolumns
              arow(i) = vformula (i,k)
          next i
        next k
        oRange.setformulaarray(aformula) 'Daten in Tabelle zurückschreiben
        msgbox "fertig"
    else
        msgbox "Bitte einen zusammenhängenden Zellbereich selektieren"
    endif
End Sub