Problem mit SortList

[Martin66119]

Hallo und guten Tag,

ich habe gerade mal versucht mit dem Befehl SortList eine Liste zu sortieren

Code: Alles auswählen

  Structure Name_N
    Name1$
    Name2$
  EndStructure
  
NewList File.Name_N ()
file$ = OpenFileRequester("Datei öffnen", "H:\OrdnerAGS\", "Text (*.txt)|*.txt", 0) 
    handle = ReadFile(#PB_Any, file$)
    While Eof(handle) = 0           ;
      Hilfstext$ = ReadString(handle)
      AddElement (File())
      File()\Name1$ =  Hilfstext$     
  Wend    
  CloseFile(handle)
Debug Hilfstext$ 
SortList(File(),#PB_Sort_Ascending)
 Result = ListSize(File()) 
 SelectElement(File(), Result-1)
 Debug File()\Name1$

Nur das ganze klappt nicht. Die Liste wird nicht sortiert.

Ich verwende PB 4.51 und Windows 7

Grüße
Martin

__________________________________________________
Code-Tags hinzugefügt
13.05.2011
RSBasic

[STARGÅTE]

Bitte nutze die Code-Tag!

Zum Code selbst,

SortList() ist nur für "unstrukturierte" Listen.
Du verwendest dagegen eine strukturierte Liste, dafür gibt es: SortStructuredList()

Lösung:

Code: Alles auswählen

Structure Name_N
	Name1$
	Name2$
EndStructure

NewList File.Name_N ()
file$ = OpenFileRequester("Datei öffnen", "H:\OrdnerAGS\", "Text (*.txt)|*.txt", 0) 
handle = ReadFile(#PB_Any, file$)
While Eof(handle) = 0 ;
	Hilfstext$ = ReadString(handle)
	AddElement (File())
	File()\Name1$ = Hilfstext$ 
Wend 
CloseFile(handle)
Debug Hilfstext$ 
SortStructuredList(File(),#PB_Sort_Ascending, OffsetOf(Name_N\Name1$), #PB_Sort_String)
Result = ListSize(File()) 
SelectElement(File(), Result-1)
Debug File()\Name1$

[Martin66119]

Vielen Dank! Hat geklappt!

Martin