OpenOffice.info

Lieber Winfried,
vielen dank - mal wieder.
[quote]Siehe Funktion BubbleSortList(...) im Modul Strings der Bibliothek Tools. [/quote]
.. die habe ich gefunden, das muss ich jetzt erst mal ausprobieren. Ich habe bis jetzt immer mit trial and error meine Codes zusammengebastelt und keine fertigen Codes benutzt. Wo kommt das alles her, woher kennt man ... woher kennst du diese ganze Möglichkeiten? Mal im Ernst: Hast du Informatik studiert, oder wie kommt man an diese ganzen Informationen? Wenn ich sehe wie lange ich brauche bis meine Programme laufen und wie lange ich wieder gebraucht habe um ein falsches Zeichen in meinem Code zu finden...Ich verbringe ja schon viel Zeit am Computer und staune immer wieder was es alles schon gibt.
[quote]Nutzungsbeispiel in Bibliothek Gimmicks.
[/quote]... das habe ich noch nicht gefunden.
Insgesamt werde ich mich aber da durchbeißen. Nochmals Dank.
Grüße
Pit

[quote="erikafuchs"]Kennt ihr eine Möglichkeit die dazu führt dass die Dateien in der obengenannten Reihenfolge eingelesen werden ohen dass ich eine Sortier-Routine basteln muss.[/quote]

Nein.


Musst aber auch keine Routine basteln: wird von OOo mitgeliefert.

Siehe Funktion [color=#008000]BubbleSortList(...)[/color] im Modul [color=#008000]Strings[/color] der Bibliothek [color=#008000]Tools[/color]. Nutzungsbeispiel in Bibliothek [color=#008000]Gimmicks[/color].

Übergebe der Funktion einfach das Array [color=#008000]LDateien()[/color].

Das hilft Dir weiter?


Tipp: nehme meine Extension [url=http://extensions.services.openoffice.org/en/project/OOoBTL2]BTL2[/url] zum Erstellen eines Dokuments mit allen BasicTexten Deiner Installation - einfaches Suchen ausserhalb des Basic-Editors.

   LDateien = ReadDirectories(LPfad & "Klassenlehrer_in/" , TRUE , FALSE , FALSE )  'Das Verzeichnis mit den Schülerdateien
   If uBound(LDateien ) > -1 then
      Anzahl = uBound(LDateien ) + 1
      for i = lBound(LDateien) to uBound(LDateien)
            inURL=ConvertToURL(LDateien(i))
            inDoc=StarDesktop.loadComponentFromURL(inURL, "_blank", 0, Arg())
            inSheet=inDoc.sheets.getByName("Tabelle1")
            oCellCursor = inSheet.createCursor()
            oCellCursor.GotoEndOfUsedArea(True)            
            inEndZeile = oCellCursor.getRangeAddress.EndRow
            inEndSpalte = oCellCursor.getRangeAddress.EndColumn
            DatArray=inSheet.getCellRangeByPosition(1,1,inEndSpalte,inEndZeile).getDataArray  'lesen der Daten
            outSheet.getCellRangeByPosition(1,1+n,inEndSpalte,inEndZeile+n).setDataArray(DatArray) 'übernehmen der Daten
            n=n+inEndZeile+2
            inDoc.close(True)  
      next i
   end if

Hi Leute,
ich benötige schon wieder Hilfe. Ich habe ein Verzeichnis mit Dateien der Art 5.1.ods; 5.2.ods; .. 6.1.ods....bis 10.4.ods (Ihr habt richtig erkannt - das sind Namen von Schulklassen). Diese lese ich nacheinander ein und liste sie in einem zentralen Dokument nacheinander auf. Kennt ihr eine Möglichkeit die dazu führt dass die Dateien in der obengenannten Reihenfolge eingelesen werden ohen dass ich eine Sortier-Routine basteln muss. Zur Zeit werden die Dateien so eingelesen 8.1.ods -> 8.2.ods ... 10.1.ods ...5.1.ods ... bis 7.4.ods.
Vielen Dank für Eure Hilfe
Pit
Ein Ausschnitt meines Codes:
[code] LDateien = ReadDirectories(LPfad & "Klassenlehrer_in/" , TRUE , FALSE , FALSE ) 'Das Verzeichnis mit den Schülerdateien
If uBound(LDateien ) > -1 then
Anzahl = uBound(LDateien ) + 1
for i = lBound(LDateien) to uBound(LDateien)
inURL=ConvertToURL(LDateien(i))
inDoc=StarDesktop.loadComponentFromURL(inURL, "_blank", 0, Arg())
inSheet=inDoc.sheets.getByName("Tabelle1")
oCellCursor = inSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
inEndZeile = oCellCursor.getRangeAddress.EndRow
inEndSpalte = oCellCursor.getRangeAddress.EndColumn
DatArray=inSheet.getCellRangeByPosition(1,1,inEndSpalte,inEndZeile).getDataArray 'lesen der Daten
outSheet.getCellRangeByPosition(1,1+n,inEndSpalte,inEndZeile+n).setDataArray(DatArray) 'übernehmen der Daten
n=n+inEndZeile+2
inDoc.close(True)
next i
end if[/code]