OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main
[color=#FF0000]Function[/color] zell_sort(zahlenstring as string ,optional trenner as string) as string
  Dim Count As Integer
  Dim Count2 As Integer
  Dim Temp As String
if isMissing( trenner) then
   trenner = ","
end if
ainput = split(zahlenstring , trenner)
if ubound(ainput) = 0 then
   zell_sort = "#?trenner?#"
   exit function
end if   
For Count = 0 To ubound(ainput)
    For Count2 = Count To ubound(ainput)
    If val(ainput(Count)) > val(ainput(Count2)) Then 'val... für numerische Sortierung
        Temp = ainput(Count)
        ainput(Count) = ainput(Count2)
        ainput(Count2) = Temp
    End If
    Next Count2
Next Count

zell_sort = join(ainput, trenner)
End function
End Sub

Code: Alles auswählen

function zell_sort(zahlenstring as string ,optional trenner as string) as string
  Dim Count As Integer
  Dim Count2 As Integer
  Dim Temp As String
if isMissing( trenner) then
   trenner = " "
end if
ainput = split(zahlenstring , trenner)
if ubound(ainput) = 0 then
   zell_sort = "#?trenner?#"
   exit function
end if   
For Count = 0 To ubound(ainput)
    For Count2 = Count To ubound(ainput)
    If val(ainput(Count)) > val(ainput(Count2)) Then 'val... für numerische Sortierung
        Temp = ainput(Count)
        ainput(Count) = ainput(Count2)
        ainput(Count2) = Temp
    End If
    Next Count2
Next Count

zell_sort = join(ainput, trenner)
End function