OpenOffice.info

Hallo

Ich würde mir mal Gedanken darüber machen die *eigentliche* Aufgabenstellung schneller zu erledigen, statt an irgendwelchen Fortschrittsanzeigen ...

Karolus

Einen Schönheitsfehler würde ich gern noch beseitigen. Unter Windows wird mir der Dialog in der Mitte des CALC-Fensters angezeigt, unter Linux (Ubuntu) hängt der Dialog an der oberen linken Ecke von CALC. Wo muss ich drehen, damit der Dialog unter Linux auch in der Mitte angezeigt wird? Ist das eine Dialogeinstellung oder hängt das mit Ubuntu zusammen?

[quote="Stephan"]Warum nutzt Du nicht einen nichtmodalen Dialog, z.B.:
Stephan[/quote]
Ich habe Deinen Dialog eingebaut und bin begeistert. Genau so hatte ich es mir vorgestellt. Vielen Dank.

Die ganze Aktion dauert bei mir im Extremfall eine halbe Stunde und daher brauche ich irgendeine Anzeige. Zudem ist die CPU bei diesem Makro am Anschlag und somit wird der PC während dieser Zeit blockiert. Ein Dialog könnte hier helfen, denn dann könnte ich auch einen Pause-Button einbauen, der das Makro entweder partiell stoppt oder zumindest ein paar Verzögerungen einbaut, um die CPU wieder auf Normalniveau zu bringen. Kann auch sein, dass beim Rechnerwechsel alles viel schneller wird, denn derzeit läuft alles auf einem 10 Jahre alten Windows-Rechner. Das soll sich aber spätestens im April nächsten Jahres ändern, denn dann wird XP eingestampft und es kommt ein Ubuntu o.Ä. ins Haus.

[quote]Ich verwende dafür einen SearchDescriptor[/quote]

das ist dann völlig in Ordnung, einzig hatte ich das nicht erwartet, weil ich nicht wirklich verstehe wozu Du eine Fortschrittsanzeige brauchst, denn ich nehme an die Implementierung über Suchen ist ebenfalls sehr schnell, möglicherweise noch schneller als mein Vorschlag, Letzterer brauchte aber bei mir nur 1 Sekunde, auf eher älterer Hardware.

Aber, wie gesagt, es ist völlig OK das über Suche zu machen.


Gruß
Stephan

[quote="Stephan"]Du weist aber wie Du ein solches Makro effizient implementierst?[/quote]
Ich verwende dafür einen SearchDescriptor, da ich annehme, die interne Suchfunktion ist effektiver als eine Suchschleife in Basic.

[quote]Warum nutzt Du nicht einen nichtmodalen Dialog, z.B.: [/quote]
Sieht interessant aus, zumal die Progressbar in der Statuszeile nicht sehr stabil läuft. Werde ich mal ausprobieren.

Sub langsam()
	for i = 0 To 49999
		If da =ThisComponent.Sheets(0).getCellByPosition(0,i).Value = 23.456 Then
			Msgbox "Wert gefunden in Zelle A" & (i+1)
			Exit Sub
		End If
	Next i
End Sub

Sub schnell()
	da =ThisComponent.Sheets(0).getCellRangeByName("A1:A50000").getDataArray()
	for i = Lbound(da()) To Ubound(da())
		db() = da(i)
		If db(0) = 23.456 Then
			Msgbox "Wert gefunden in Zelle A" & (i+1)
		End If
	next i
End Sub

Sub status()
warten_model = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
warten_model.setPropertyValue("Width",  150) '343
warten_model.setPropertyValue("Height", 20)
warten_model.SetPropertyValue("Title","Bitte etwas Geduld")

oMod_warten = warten_model.createInstance("com.sun.star.awt.UnoControlFixedTextModel")
With oMod_warten
	.setPropertyValue("Name","warten1")
	.setPropertyValue("PositionX",5) '192
	.setPropertyValue("PositionY",5) 
	.setPropertyValue("Width",140)
	.setPropertyValue("Height",13)
	.setPropertyValue("Label","Formatierung wird gelesen ...")
End With
warten_model.insertByName("warten1", oMod_warten)
warten_dialog = CreateUnoService("com.sun.star.awt.UnoControlDialog")
warten_dialog.setModel(warten_model)

oWin2 = CreateUnoService("com.sun.star.awt.Toolkit")
warten_dialog.createPeer(oWin2, null)
warten_dialog.setVisible(True)

for i = 0 To 50000 Step 10
	warten_dialog.Model.getByName("warten1").Label = i & " Werte verglichen"
next i

warten_dialog.setVisible(False)
End Sub

[quote]Diese Makro braucht sehr lange[/quote]

Du weist aber wie Du ein solches Makro effizient implementierst?

Das Folgende braucht bei mir 12 Sekunden:

[code]Sub langsam()
for i = 0 To 49999
If da =ThisComponent.Sheets(0).getCellByPosition(0,i).Value = 23.456 Then
Msgbox "Wert gefunden in Zelle A" & (i+1)
Exit Sub
End If
Next i
End Sub[/code]

die gleiche Aufgabe kann man aber auch in 1 Sekunde erledigen:

[code]Sub schnell()
da =ThisComponent.Sheets(0).getCellRangeByName("A1:A50000").getDataArray()
for i = Lbound(da()) To Ubound(da())
db() = da(i)
If db(0) = 23.456 Then
Msgbox "Wert gefunden in Zelle A" & (i+1)
End If
next i
End Sub[/code]

[quote]Gibt es dafür eine eigene Funktion [/quote]

Warum nutzt Du nicht einen nichtmodalen Dialog, z.B.:

[code]Sub status()
warten_model = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
warten_model.setPropertyValue("Width", 150) '343
warten_model.setPropertyValue("Height", 20)
warten_model.SetPropertyValue("Title","Bitte etwas Geduld")

oMod_warten = warten_model.createInstance("com.sun.star.awt.UnoControlFixedTextModel")
With oMod_warten
.setPropertyValue("Name","warten1")
.setPropertyValue("PositionX",5) '192
.setPropertyValue("PositionY",5)
.setPropertyValue("Width",140)
.setPropertyValue("Height",13)
.setPropertyValue("Label","Formatierung wird gelesen ...")
End With
warten_model.insertByName("warten1", oMod_warten)
warten_dialog = CreateUnoService("com.sun.star.awt.UnoControlDialog")
warten_dialog.setModel(warten_model)

oWin2 = CreateUnoService("com.sun.star.awt.Toolkit")
warten_dialog.createPeer(oWin2, null)
warten_dialog.setVisible(True)

for i = 0 To 50000 Step 10
warten_dialog.Model.getByName("warten1").Label = i & " Werte verglichen"
next i

warten_dialog.setVisible(False)
End Sub[/code]


Gruß
Stephan

oProgressBar = oDoc.getFrame().createStatusIndicator()
oProgressBar.start( "", 10)
oProgressBar.setText("Reading ...")

Ich habe ein Makro, dass ca. 10.000 Strings einliest, in einer Tabelle mit ca. 50.000 aktiven Zeilen nach diesem String sucht und dann in einer Zelle dieser Zeile einen Wert verändert. Diese Makro braucht sehr lange und ich benötige daher einen Indikator, wie weit das Makro schon ist. Der Einfachheit halber verwende ich die Progressbar in der Statuszeile, und habe folgenden Code dafür[code]
oProgressBar = oDoc.getFrame().createStatusIndicator()
oProgressBar.start( "", 10)
oProgressBar.setText("Reading ...")
[/code] Da ich nicht weiß, wieviele Strings ich bei jedem Aufruf vorfinde und mir den Luxus des doppelten Einlesens (erst Zählen, dann Verarbeiten) schenken möchte, würde es mir reichen, wenn ich z.B. in 100er Schritten eine Zahl als Text ausgebe und den Fortschrittsbalken gar nicht benutze. Gibt es dafür eine eigene Funktion oder ist createStatusIndicator grundsätzlich mit einer Progressbar verbunden? Mir ist schon klar, dass lediglich ein leerer Bereich angezeigt wird, wenn ich die Methode setValue nicht verwende.