title image


Smiley BubbleSort in Script, bitte mal draufschauen (!!33 Zeilen Code drin!!)
Hallo Gemeinde,



ich bin im "BubbleSort" irgendwie nicht mehr so sattelfest (zu lange her, zu selten gebraucht). Es wäre schön, wenn der eine oder andere von euch mal draufschaut und mir mitteilt ob es noch besser geht.

Danke für euer Feedback



Gruß

Stefan



Gegeben:

Notes-Dokument, im UI geöffnet, Bearbeiten-Modus

Feld "BS_In", bearbeitbar, Text, Mehrfachwerte

Feld "BS_Out", berechnet Formel: BS_Out, Mehrfachwerte

Button mit NotesScript, Code s.u.



Aufgabe: Werte aus dem Feld "BS_In" im Feld "BS_Out" sortiert ausgeben.



Sub Click(Source As Button)

Dim uiws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim values

Dim n As Integer

Dim h As Integer

Dim i As Integer

Dim bs1 'als Variant, für verschiedene Datenformate (Text, Zahl, Datum)

Dim bs2 'als Variant, für verschiedene Datenformate (Text, Zahl, Datum)



Set uidoc = uiws.currentdocument

values = uidoc.document.BS_In

n = Ubound(values)

If n < 1 Then

'Nur ein Wert in Liste = 1:1 in Ausgabe schreiben + Beenden

uidoc.document.BS_Out=values

Exit Sub

Else

For h = 0 To n-1

For i=0 To n-1

bs1=values(i)

bs2=values(i+1)

If bs2 > bs1 Then

Else

values(i) = bs2

values(i+1) = bs1

End If

Next

Next

uidoc.document.BS_Out=values

Call uidoc.Refresh

End If

End Sub
Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit,
und in Sachen Universum bin ich mir da noch nicht sicher...

(Albert Einstein in einem Brief an Frederick S. Pearls)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: