OpenOffice.info

def sort_numeric_sheetnames():
    doc = XSCRIPTCONTEXT.getDocument()
    sheets = doc.Sheets
    sheetnames = sorted(sheets.ElementNames, key=int)
    for i, name in enumerate(sheetnames):
        sheets.moveByName(name, i)

Hallo
Das umständliche Herausziehen der Tabellennamen kann man sich ersparen, weil die eh schon in [color=#FF0000]doc.Sheets.[u]ElementNames[/u] drinstecken, [/color]
Nimmt man dann Python brauchts auch keinen Handgedrechselten [u]Bubble Sort Algoritmus[/u], bei [color=#FF0000]numerischen[/color] Tabellennamen muss dann auch nur noch [color=#FF0000]key=int[/color] mitgegeben werden:

[code]def sort_numeric_sheetnames():
doc = XSCRIPTCONTEXT.getDocument()
sheets = doc.Sheets
sheetnames = sorted(sheets.ElementNames, key=int)
for i, name in enumerate(sheetnames):
sheets.moveByName(name, i)[/code]

karolus

Sub Sortieren_steigend()
	dok = StarDesktop.CurrentComponent
	anz = dok.Sheets().Count
	dim a(anz-1)
	For i = 0 to anz-1
		a(i) = dok.Sheets(i).Name
	Next
	For i = 0 To anz-2
		For j = i+1 to anz-1
			If VAL(a(i)) > VAL(a(j)) Then
				temp = a(i)
				a(i) = a(j)
				a(j) = temp
			End If
		Next j
	Next i
	For i = 0 to anz-1 
		dok.Sheets.moveByName(a(i),i)
	Next i
End Sub

Bitte keine alten Threads verlängern! Ich habe Deinen Post jetzt in einen neuen Thread abgetrennt.

Antwort ist:
WEnn die Tabellenblätter nur aus Ziffern bestehen reicht VAL statt LCase:

[code]Sub Sortieren_steigend()
dok = StarDesktop.CurrentComponent
anz = dok.Sheets().Count
dim a(anz-1)
For i = 0 to anz-1
a(i) = dok.Sheets(i).Name
Next
For i = 0 To anz-2
For j = i+1 to anz-1
If VAL(a(i)) > VAL(a(j)) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 0 to anz-1
dok.Sheets.moveByName(a(i),i)
Next i
End Sub[/code]


Gruß
Stephan