OpenOffice.info

Hallo Karolus,

danke für die Links da möchte ich mal hin kommen,
aber noch komm ich mit Python nicht klar. :(

Hallo

@Clag
Mglw. ist auch [url=http://forum.openoffice.org/en/forum/viewtopic.php?f=21&t=56916]dieses Thema[/url] interessesant für dich.
Im Laufe des Threads hab ich noch etwas [url=http://www.python-forum.de/viewtopic.php?f=1&t=30327]professionelle Hilfe[/url] aus dem Deutschen Python-forum in Anspruch genommen.

Karolus

Sub PruebaOrdenar2()
 Dim mDatos()
 
     mDatos() = Array("5","l","o","f","e","v","y","d","h","u",)
     'Mostramos los datos desordenados
     MsgBox Join( mDatos(), Chr(13) )
 
     'Ordenamos los datos
     Call OrdenarBurbuja( mDatos(), 1 )
 
     'Mostramos los datos ordenados
     MsgBox Join( mDatos(), Chr(13) )
 
 End Sub
 
 ' Datos = matriz de datos a ordenar
 ' Orden =    1 ascendente
 '            2 descendente
 Sub OrdenarBurbuja(ByRef Datos() As Variant, ByVal Orden As Integer)
 Dim NumDatos As Long
 Dim co1 As Long, co2 As Long
 
     NumDatos = UBound(Datos)
     For co1 = 1 To NumDatos
         For co2 = NumDatos To co1 Step -1
             If Orden = 1 Then
                 If Datos(co2) < Datos(co2 - 1) Then
                     Call Intercambio Datos(co2), Datos(co2 - 1)
                 End If
             Else
                 If Not (Datos(co2) < Datos(co2 - 1)) Then
                     Call Intercambio Datos(co2), Datos(co2 - 1)
                 End If
             End If
         Next co2
     Next co1
 
 End Sub
 
 'Macro para intercambiar un par de valores
 Sub Intercambio(ByRef Dato1 As Variant, ByRef Dato2 As Variant)
 Dim sTmp As Variant
 
     sTmp = Dato1
     Dato1 = Dato2
     Dato2 = sTmp
 
 End Sub

Hi
also diese spanische Beispiel zum sortieren eines Arrays funktioniert gleich beim ersten Versuch,
ob auf oder absteigend sortiert wird, ist wählbar

[code]Sub PruebaOrdenar2()
Dim mDatos()

mDatos() = Array("5","l","o","f","e","v","y","d","h","u",)
'Mostramos los datos desordenados
MsgBox Join( mDatos(), Chr(13) )

'Ordenamos los datos
Call OrdenarBurbuja( mDatos(), 1 )

'Mostramos los datos ordenados
MsgBox Join( mDatos(), Chr(13) )

End Sub

' Datos = matriz de datos a ordenar
' Orden = 1 ascendente
' 2 descendente
Sub OrdenarBurbuja(ByRef Datos() As Variant, ByVal Orden As Integer)
Dim NumDatos As Long
Dim co1 As Long, co2 As Long

NumDatos = UBound(Datos)
For co1 = 1 To NumDatos
For co2 = NumDatos To co1 Step -1
If Orden = 1 Then
If Datos(co2) < Datos(co2 - 1) Then
Call Intercambio Datos(co2), Datos(co2 - 1)
End If
Else
If Not (Datos(co2) < Datos(co2 - 1)) Then
Call Intercambio Datos(co2), Datos(co2 - 1)
End If
End If
Next co2
Next co1

End Sub

'Macro para intercambiar un par de valores
Sub Intercambio(ByRef Dato1 As Variant, ByRef Dato2 As Variant)
Dim sTmp As Variant

sTmp = Dato1
Dato1 = Dato2
Dato2 = sTmp

End Sub[/code]

Sub Main
	FaLi = DimArray(1, 3)
	FaLi(0, 0) = "&H000000" : FaLi(1, 0) = "Schwarz"
	FaLi(0, 1) = "&H000080" : FaLi(1, 1) = "Blau"
	FaLi(0, 2) = "&H008000" : FaLi(1, 2) = "Grün"
	FaLi(0, 3) = "&H008080" : FaLi(1, 3) = "Türkis"

	for i = 0 to 3
		for u = 0 to 1
			sAus = sAus & Fali(u, i) & CHR$(10)
		next u
	next i
	
	msgbox sAus
End Sub

Hallo clag,

[quote]
erstmal Danke für die ausführliche Information zum Thema lesen und schreiben eines Arrays
[/quote]
Gern geschehn :)


[quote]
nun übe ich halt das umwandeln von Arrays bevor mir die erleuchtung zum Thema BubbleSortList kommt.
[/quote]
Da wären wir schon zwei.


[quote]
Na mal sehen vieleicht lern ich ja nebenbei noch Spanisch und komme dann doch noch dahinter wie BubbleSortList anzuwenden ist.
[/quote]
Da ich momentan mit anderen Dingen beschäftigt bin, weiß ich auch noch nicht so recht wie die Parameterübergabe da lautet. Selbst ein Beitrag von komma4 (Winfried) hat mir noch nicht die Erleuchtung gebracht. [url=http://de.openoffice.info/viewtopic.php?t=47191&p=170915]Gucki hier.[/url]


[quote]
neben bei noch die Frage, kann mann ein Array eigentlich insgesamt mit print oder Msgbox anzeigen also Zeilen, Spalten
oder muß man sich erst Strings zusammenbasteln?
[/quote]
In der Doku von Andrew, auch in der deutschen Übersetzung, finden sich da so einige Beispiele. Aber eins habe ich mir dabei angewöhnt: In solch einen Fall nicht mit Print, sondern mit MagBox arbeiten.

Mal ein Beispiel.
[code]
Sub Main
FaLi = DimArray(1, 3)
FaLi(0, 0) = "&H000000" : FaLi(1, 0) = "Schwarz"
FaLi(0, 1) = "&H000080" : FaLi(1, 1) = "Blau"
FaLi(0, 2) = "&H008000" : FaLi(1, 2) = "Grün"
FaLi(0, 3) = "&H008080" : FaLi(1, 3) = "Türkis"

for i = 0 to 3
for u = 0 to 1
sAus = sAus & Fali(u, i) & CHR$(10)
next u
next i

msgbox sAus
End Sub
[/code]
Man kann natürlich auch das Array mit LBound und UBound abfragen, aber als sehr stark vereinfachtes Beispiel solls so wohl reichen. Und durch die Reihenfolgeänderung von i und u sieht man dann halt auch eine andere Ausgabe des Array.



Gruß
balu

Hallo Balu,

erstmal Danke für die ausführliche Information zum Thema lesen und schreiben eines Arrays,
nun übe ich halt das umwandeln von Arrays bevor mir die erleuchtung zum Thema BubbleSortList kommt.
Die deutsch Apache OO Hilfe Seite spuckt zum Thema nur spanische Seiten aus, das kommt mir ausgesprochen spanisch vor.
Na mal sehen vieleicht lern ich ja nebenbei noch Spanisch und komme dann doch noch dahinter wie BubbleSortList anzuwenden ist. ;)

neben bei noch die Frage, kann mann ein Array eigentlich insgesamt mit print oder Msgbox anzeigen also Zeilen, Spalten
oder muß man sich erst Strings zusammenbasteln?

FaLi = DimArray(3)

FaLi(0) = "&H000000"
FaLi(1) = "&H000080"
FaLi(2) = "&H008000"
FaLi(3) = "&H008080"

FaLi = DimArray(1, 3)

FaLi(0, 0) = "&H000000"
FaLi(0, 1) = "&H000080"
FaLi(0, 2) = "&H008000"
FaLi(0, 3) = "&H008080"

FaLi(1, 0) = "Schwarz"
FaLi(1, 1) = "Blau"
FaLi(1, 2) = "Grün"
FaLi(1, 3) = "Türkis"

FaLi(0, 0) = "&H000000" : FaLi(1, 0) = "Schwarz"
FaLi(0, 1) = "&H000080" : FaLi(1, 1) = "Blau"
FaLi(0, 2) = "&H008000" : FaLi(1, 2) = "Grün"
FaLi(0, 3) = "&H008080" : FaLi(1, 3) = "Türkis"

Sub Main
FaLi = DimArray(1, 3)
FaLi(0, 0) = "&H000000" : FaLi(1, 0) = "Schwarz"
FaLi(0, 1) = "&H000080" : FaLi(1, 1) = "Blau"
FaLi(0, 2) = "&H008000" : FaLi(1, 2) = "Grün"
FaLi(0, 3) = "&H008080" : FaLi(1, 3) = "Türkis"

print FaLi (1, 1)

End Sub

Hallo clag,

[quote]
leider wird an anderen Stell exakt das gleiche Bsp gezeigt.
[/quote]
Du weißt schon das Du die andere Stelle nennen darfst. Mir sagt das im moment nämlich gar nix.


[quote]
wie muss der/die Strings aussehen
[/quote]
Dazu solltest Du erstmal wissen was folgender Satz dir sagen will.
[quote="[url=http://www.dannenhoefer.de/faqstarbasic/BubbleSortList.html#Zweig328]10.1.11 BubbleSortList[/url] "]
Sortiert ein maximal 2 dimensionales Array.
[/quote]
Es handelt sich also nicht um [u]einen[/u] String, sondern um mindestens [u]zwei[/u] getrennte Strings. Genauers kommt gleich noch.


[quote]
wie oder wodurch getrennt sein
[/quote]
Nicht so sehr das 'wodurch' ist wichtig, vielmehr das 'wie'. Kommt auch gleich dran.


[quote]
und wo einzusetzen?
[/quote]
Da wüsste ich jetzt auf die schnelle kein adäquates Beispiel aus meiner Grabbelkiste.


[quote]
Kann/mag mir das jemand an einem funktionierenden Beispiel verdeutlichen?
[/quote]
Nö Du. Dazu hab ich jetzt auf die schnelle kein Lust. Kann jemand anderer machen. Ich möcht dir erstmal das wichtigste grob erklären, damit Du schon mal das Grundprinzip verstehst, na ja annähend.


Also was weißt Du überhaupt über ein 2 dimensionales Array? Da ich das nicht von dir weiß, erklär ich es mal ganz einfach.
[code]
FaLi = DimArray(3)
[/code]
Das ist ein eindimensionales Array, welches die Indexe 0 bis 3 hat. Es kann also 4 Inhalte aufnehmen.
Beispiel
[code]
FaLi(0) = "&H000000"
FaLi(1) = "&H000080"
FaLi(2) = "&H008000"
FaLi(3) = "&H008080"
[/code]
Und was fällt dir dabei so auf?
Rate nicht!
Es müsste dich an eine Calc-Tabelle erinnern. Oder etwa nicht? Denn es sind 4 Einträge untereinander in einer Spalte angeordnet. Und das ist ein eindimensionales Array.

Kommen wir zu einen 2 dimensionalen Array.
[code]
FaLi = DimArray(1, 3)
[/code]
So wird es dimensioniert.

Und so kann man es dann mit leben füllen.
[code]
FaLi(0, 0) = "&H000000"
FaLi(0, 1) = "&H000080"
FaLi(0, 2) = "&H008000"
FaLi(0, 3) = "&H008080"

FaLi(1, 0) = "Schwarz"
FaLi(1, 1) = "Blau"
FaLi(1, 2) = "Grün"
FaLi(1, 3) = "Türkis"
[/code]
Das sieht wohl nicht schlecht aus, man kann es aber auch etwas anders schreiben.
[code]
FaLi(0, 0) = "&H000000" : FaLi(1, 0) = "Schwarz"
FaLi(0, 1) = "&H000080" : FaLi(1, 1) = "Blau"
FaLi(0, 2) = "&H008000" : FaLi(1, 2) = "Grün"
FaLi(0, 3) = "&H008080" : FaLi(1, 3) = "Türkis"
[/code]
Durch diese schreibweise, getrennt mit dem Doppel punkt ':', kann man sich wohl ehern an eine 2 Spaltige Calc-Tabelle erinnern und sich dadurch eine kleine Eselsbrücke erstellen:
Eindimensionales Array = Eine Spalte in Calc.
2 dimensionales Array = 2 Spalten in Calc.

Wie Du siehst wird jeder 'String' einer bestimmten Position im mehrdimensionalem Array zugeordnet. Also quasi so ähnlich wie die Zelladressierung in Calc mit A1, B2 etc.

Und mit dieser einfachen kleinen Sub kannst Du selber testen was Du angezeigt bekommst, wenn Du bei der Print-Anweisung die dortigen Zahlen mit 0 bis 3 tauscht.
[code]
Sub Main
FaLi = DimArray(1, 3)
FaLi(0, 0) = "&H000000" : FaLi(1, 0) = "Schwarz"
FaLi(0, 1) = "&H000080" : FaLi(1, 1) = "Blau"
FaLi(0, 2) = "&H008000" : FaLi(1, 2) = "Grün"
FaLi(0, 3) = "&H008080" : FaLi(1, 3) = "Türkis"

print FaLi (1, 1)

End Sub
[/code]


Um noch mal auf BubbleSortList zurück zu kommen, habe damit aber noch keine Praktische Erfahrung gesammelt, so würde ich wohl sagen, dass das sich genau so verhällt wie in Calc 2 Spalten zu sortieren.

Sollte ich an irgendeiner Stelle blödsinn geredet haben, so dürfen mich unsere echten Spezialisten -{wozu ich ja nicht gehöre}- durchaus korrigieren.


Kannst ja sagen ob ich dir irgendwie geholfen habe, oder nicht. Wenn nicht, bin ich dir nicht böse.



Gruß
balu

Hallo Kenner und Könner,

ehrlich manches ist zu hoch für mich :?
zB das umsetzen der OO Erkärung für die Funktion "BubbleSortList" in funktionierenden Code
[url]http://www.dannenhoefer.de/faqstarbasic/BubbleSortList.html#Zweig328[/url]
leider wird an anderen Stell exakt das gleiche Bsp gezeigt.
wie muss der/die Strings aussehen, wie oder wodurch getrennt sein, und wo einzusetzen??

Kann/mag mir das jemand an einem funktionierenden Beispiel verdeutlichen?