PureBoard

Code: Alles auswählen

Structure Momu
        Code.l
        Name$
  EndStructure
  
  Dim CDDVD.Momu(3)
  
  CDDVD(0)\Code   = 1000
  CDDVD(0)\Name$ = "50er - The Best Of 50er - CD 1"
  
  CDDVD(1)\Code   = 1001
  CDDVD(1)\Name$ = "50er - The Best Of 50er - CD 2"
  
  CDDVD(2)\Code   = 1002
  CDDVD(2)\Name$ = "Rainhard Fendrich - Blond"
  
  CDDVD(3)\Code   = 1003
  CDDVD(3)\Name$ = "Rod Stewart - The Best Of"

  ; Sortiert das Array nach dem Feld 'Name$', welches ein String ist
  
  SortStructuredArray(CDDVD(), 0, OffsetOf(Momu\Name$), #PB_Sort_String)
  OpenConsole()
  For index = 0 To 3
    Debug CDDVD(index)\Name$+"  *  "+Str(CDDVD(index)\Code)
  Next

FRAGE: es wird schon richtig sortiert, nach Name eben, aber die Ausgabe soll so aussehen

1003  *  Rod Stewart - The Best Of

wird für ein Konsolenprogramm gebraucht, kriege es aber irgenwie nicht hin, kann auch sein das ich den Wald vor lauter Bäumen nicht sehe !

vielen Dank im voraus

Code: Alles auswählen

  For index = 0 To 3
    Debug Str(CDDVD(index)\Code)+"  *  "+CDDVD(index)\Name$
  Next

Code: Alles auswählen

PrintN( Str(CDDVD(index)\code)+"  *  "+CDDVD(index)\Name$)

Code: Alles auswählen

Input()