SortArray - Wo ist mein Fehler

[Ironsmurf]

Hallo zusammen
ich möchte gerne ein Array sortieren, nach Vornamen und dann Nachname, leider bekomme ich es nicht hin. Wer ist so freundlich und hilft einem Anfänger?

Code: Alles auswählen

;

Dim Star.Person(100)
Star(   0) \ Vorname$    = "Michael J"
Star(   0) \ Nachname$ = "Fox"

Star(   1) \ Vorname$   = "Christopher"
Star(   1) \ Nachname$ = "Lloyd"

Star(   2) \ Vorname$ = "Mary"
Star(   2) \ Nachname$ ="Steenburgen"

Star(   3) \ Vorname$ = "Thomas F"
Star(   3) \ Nachname$ = "Wilson"

Star(   4) \ Vorname$ = "Lea"
Star(   4) \ Nachname$ = "Thompson"

Star(   5) \ Vorname$ = "Elisabeth"
Star(   5) \ Nachname$ = "Shue"

Star(   6) \ Vorname$ = "Grispin"
Star(   6) \ Nachname$ = "Glover"

Star(   7) \ Vorname$ = "Matt"
Star(   7) \ Nachname$ = "Dillon"

Star(   8) \ Vorname$ = "Kevin"
Star(   8) \ Nachname$ = "Bacon"

Star(   9) \ Vorname$ = "Neve"
Star(   9) \ Nachname$ = "Campell"

Stars
 ConsoleColor(10,0)
  SortArray (Star(),2); Hier liegt der Fehler
   For index.b = 0 To 10
    Namevor$ = Star(index)\Vorname$
    Namenach$   = Star(index)\Nachname$
   If FindString (UCase(Namenach$),UCase(Eingabe$),1) Or FindString (UCase(Namevor$),UCase(Eingabe$),1)
  Print_s(""+Namevor$+" "+Namenach$+"")
 EndIf
 Next

[HeX0R]

Du benutzt ein strukturiertes Array, also musst du auch SortStructuredArray()benutzen.

Hättest du übrigens ein lauffähiges Beispiel beigefügt, hätte ich es dir sogar anhand eines Codes gezeigt.

[Lebostein]

Wieso muss man eigentlich bei SortStructuredArray() den Typ mit angeben? Wird der nicht durch das OffsetOf(Structure\Field) eindeutig bestimmt? Kann der Compiler nicht daraus selbst den Typ ableiten?

Code: Alles auswählen

Structure Animal
  Name$
  Speed.l
EndStructure

Dim Animals.Animal(2)

Animals(0)\Name$ = "Tiger"
Animals(0)\Speed = 10

Animals(1)\Name$ = "Jaguar"
Animals(1)\Speed = 40

Animals(2)\Name$ = "Zebre"
Animals(2)\Speed = 30

;Ist doch offensichtlich, dass Animal\Name$ ein String ist:
SortStructuredArray(Animals(), 0, OffsetOf(Animal\Name$), #PB_Sort_String)

;Ist doch offensichtlich, dass Animal\Speed ein Long ist:
SortStructuredArray(Animals(), 0, OffsetOf(Animal\Speed), #PB_Sort_Long)

[ts-soft]

@Lebostein
Der Compiler führt den Code nicht aus, er kompiliert ihn. Was er kompiliert
hat ist Vergangenheit, oder er schleppt ne Riesentabelle mit sich rum, um
diese Dinge zu Wissen, wenn er an die Stelle kommt.

[Lebostein]

@Lebostein
Der Compiler führt den Code nicht aus, er kompiliert ihn. Was er kompiliert
hat ist Vergangenheit, oder er schleppt ne Riesentabelle mit sich rum, um
diese Dinge zu Wissen, wenn er an die Stelle kommt.

Hä?

Es geht doch hier auch gar nicht um die Ausführung des geschriebenen Programmes. Gerade eben weil der Compiler VOR der Ausführung tätig wird, hat er doch aufgrund seiner einmaligen Aktion genug Zeit und auch die Möglichkeiten nachzusehen, welcher Datentyp mit OffsetOf() angewählt wird, und diesen Datentyp dann für die EXE-Datei (die er ja zu generieren hat) ein für alle mal festzulegen, so wie man es derzeit eigenhändig tun muss.

[Ironsmurf]

Ok, war mein Fehler, war etwas unter Zeitdruck, nun aber ein lauffähiges Script.

Code: Alles auswählen

Structure Person$
  Nachname$
  Vorname$
EndStructure

;#############################

Procedure Print_s(text.s)
CharToOem_(text.s,text.s)
PrintN( text.s)
EndProcedure

;#############################

;Globaliere String$ 
Global Eingabe$ 
Procedure String(text$) 
  If FindString(Eingabe$, text$, 1) 
    ProcedureReturn 1 
  Else 
    ProcedureReturn 0 
  EndIf
EndProcedure

;#################################

Dim Star.Person(100)
Star(   0) \ Vorname$    = "Michael J"
Star(   0) \ Nachname$ = "Fox"

Star(   1) \ Vorname$   = "Christopher"
Star(   1) \ Nachname$ = "Lloyd"

Star(   2) \ Vorname$ = "Mary"
Star(   2) \ Nachname$ ="Steenburgen"

Star(   3) \ Vorname$ = "Thomas F"
Star(   3) \ Nachname$ = "Wilson"

Star(   4) \ Vorname$ = "Lea"
Star(   4) \ Nachname$ = "Thompson"

Star(   5) \ Vorname$ = "Elisabeth"
Star(   5) \ Nachname$ = "Shue"

Star(   6) \ Vorname$ = "Grispin"
Star(   6) \ Nachname$ = "Glover"

Star(   7) \ Vorname$ = "Matt"
Star(   7) \ Nachname$ = "Dillon"

Star(   8) \ Vorname$ = "Kevin"
Star(   8) \ Nachname$ = "Bacon"

Star(   9) \ Vorname$ = "Neve"
Star(   9) \ Nachname$ = "Campell"

;#########################################

OpenConsole()
Repeat
PrintN("")
ConsoleColor(13,0)

;#####################

Eingabe$=""

Eingabe$ = Input()

OemToChar_(Eingabe$,Eingabe$)
PrintN("")

;Entfernt Space von Beginn & Ende des Strings 
  Eingabe$ = Trim(Eingabe$)
   
  ;Konvertiert alle Grossbuchstaben in Kleinbuchstaben 
  Eingabe$ = LCase(Eingabe$) 
;Stars
 ConsoleColor(10,0)
  SortArray (Star(),2); Hier liegt der Fehler
   For index.b = 0 To 10
    Namevor$ = Star(index)\Vorname$
    Namenach$   = Star(index)\Nachname$
   If FindString (UCase(Namenach$),UCase(Eingabe$),1) Or FindString (UCase(Namevor$),UCase(Eingabe$),1)
  Print_s(""+Namevor$+" "+Namenach$+"")
 EndIf
 Next
 
 ;#########################################################

ForEver
CloseConsole()

[Deeem2031]

@Lebostein
Der Compiler führt den Code nicht aus, er kompiliert ihn. Was er kompiliert
hat ist Vergangenheit, oder er schleppt ne Riesentabelle mit sich rum, um
diese Dinge zu Wissen, wenn er an die Stelle kommt.

Hä?

Es geht doch hier auch gar nicht um die Ausführung des geschriebenen Programmes. Gerade eben weil der Compiler VOR der Ausführung tätig wird, hat er doch aufgrund seiner einmaligen Aktion genug Zeit und auch die Möglichkeiten nachzusehen, welcher Datentyp mit OffsetOf() angewählt wird, und diesen Datentyp dann für die EXE-Datei (die er ja zu generieren hat) ein für alle mal festzulegen, so wie man es derzeit eigenhändig tun muss.

Das wär ja total kompliziert, glaub kaum das Fred sich das antuen würde. Genauso wie eine Runtime-Lösung für das Problem, denn es wird zwar eine Liste gespeichert ob an dem Offset ein String steht oder nicht, trotzdem wäre es praktisch unsinnig und unsicher den Typen automatisch zu erkennen.