[mediParticipant]

Thanks Mark, at least I tried

[mediParticipant]

Thanks, so back to my sort and making life easier, I got this:

Monkey

#Import "<std>" Using std.. Struct Person Field name:String Field age:String Field height:String Field weight:String End Function ComparePersons:int(x:Person,y:Person) Return x.name<=>y.name End Function Function Main() Local per_list:= New List<Person> Local per:Person = New Person Print "---" per.name = "Aab" per.age = "45" per.height = "9" per.weight = "160" per_list.AddLast(per) per.name = "Elin" per.age = "45" per.height = "6" per.weight = "145" per_list.AddLast(per) per.name = "Sam" per.age = "75" per.height = "7" per.weight = "163" per_list.AddLast(per) per.name = "Aab" per.age = "45" per.height = "9" per.weight = "132" per_list.AddLast(per) per.name = "Sam" per.age = "45" per.height = "4" per.weight = "200" per_list.AddLast(per) per.name = "Elin" per.age = "15" per.height = "6" per.weight = "120" per_list.AddLast(per) per.name = "Aab" per.age = "15" per.height = "6" per.weight = "167" per_list.AddLast(per) per.name = "Sam" per.age = "75" per.height = "4" per.weight = "116" per_list.AddLast(per) For Local p := Eachin per_list Print p.name + "," + p.age + "," + p.height + "," + p.weight Next Local x:Person Local y:Person per_list.Sort(ComparePersons(x, y) ) per_list.Sort(true) Print "--" For Local t:=Eachin per_list Print t.name + "," + t.age + "," + t.height + "," + t.weight Next End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91

#Import "<std>" Using std..   Struct Person   Field name:String   Field age:String   Field height:String   Field weight:String End   Function ComparePersons:int(x:Person,y:Person)     Return x.name<=>y.name End Function   Function Main()    Local per_list:= New List<Person> Local per:Person = New Person Print "---" per.name = "Aab" per.age = "45" per.height = "9" per.weight = "160" per_list.AddLast(per) per.name = "Elin" per.age = "45" per.height = "6" per.weight = "145" per_list.AddLast(per) per.name = "Sam" per.age = "75" per.height = "7" per.weight = "163" per_list.AddLast(per) per.name = "Aab" per.age = "45" per.height = "9" per.weight = "132" per_list.AddLast(per) per.name = "Sam" per.age = "45" per.height = "4" per.weight = "200" per_list.AddLast(per) per.name = "Elin" per.age = "15" per.height = "6" per.weight = "120" per_list.AddLast(per) per.name = "Aab" per.age = "15" per.height = "6" per.weight = "167" per_list.AddLast(per) per.name = "Sam" per.age = "75" per.height = "4" per.weight = "116" per_list.AddLast(per) For Local p := Eachin per_list     Print p.name + "," + p.age + "," + p.height + "," + p.weight Next Local x:Person Local y:Person per_list.Sort(ComparePersons(x, y) ) per_list.Sort(true) Print "--" For Local t:=Eachin per_list Print t.name + "," + t.age + "," + t.height + "," + t.weight Next End

Which prints:

Monkey

--- Aab,45,9,132 Elin,45,6,145 Sam,75,7,163 Aab,45,9,160 Sam,45,4,200 Elin,15,6,120 Aab,15,6,167 Sam,75,4,116 -- Aab,15,6,167 Aab,45,9,132 Aab,45,9,160 Elin,15,6,120 Elin,45,6,145 Sam,45,4,200 Sam,75,4,116 Sam,75,7,163

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

--- Aab,45,9,132 Elin,45,6,145 Sam,75,7,163 Aab,45,9,160 Sam,45,4,200 Elin,15,6,120 Aab,15,6,167 Sam,75,4,116 -- Aab,15,6,167 Aab,45,9,132 Aab,45,9,160 Elin,15,6,120 Elin,45,6,145 Sam,45,4,200 Sam,75,4,116 Sam,75,7,163

Next stage?

a csvReader which I should figure out without readLine()

[mediParticipant]

Thanks for the help!

How about this:

Monkey

Method Sort:Void( compareFunc:Int( T,T ) )

1	Method Sort:Void( compareFunc:Int( T,T ) )

in the manual, rather than a kind of IComapre? Will play with that for a while, then I will go back to the link.

[mediParticipant]

I went through all examples in this weekend, very helpful for those who know BlitzMax, very helpful for beginners also. Thanks!

[Author]

Posts