Loop through only part of list?

[PakzParticipant]

I am creating a listbox and want to use a list. What I do not know how to do is to loop through only a part of the list.

Say from 10(the top of the window index) to 30(the bottom of the window index)

What I do not know now is how to get the contents from a list item.

drawtext Mylist.item[10]

I do know how to loop through a complete list using eachin.

[PakzParticipant]

I am looking on google and see that it probably is not possible with linked lists. I will start to look at stack and else I wil use a regular array.

[JesseParticipant]

To go through a complete list:

Monkey

[crayon-5cb9d2fd680d2577045168 inline="true" ] For Local itemInstance := EachIn myList itemInstance.x = 10 itemInstance.y = 25 Next

1 2 3 4 5 6

[crayon-5cb9d2fd680d2577045168 inline="true" ] For Local itemInstance := EachIn myList    itemInstance.x = 10    itemInstance.y = 25 Next

[/crayon]

There is no simple way to go trough part of the list. list are made to go from the first to the last or vice versa. you can convert it “ToArray” and then index it that way but converting it to array is slow. or you can use an index variable to find the ones you want to process:

Monkey

[crayon-5cb9d2fd680d8877614712 inline="true" ] Local i:int = 0 For Local itemInstance := EachIn myList if i > 3 itemInstance.x = 10 itemInstance.y = 25 EndIf i += 1 Next

1 2 3 4 5 6 7 8 9 10

[crayon-5cb9d2fd680d8877614712 inline="true" ] Local i:int = 0 For Local itemInstance := EachIn myList    if i > 3       itemInstance.x = 10       itemInstance.y = 25     EndIf     i += 1 Next

[/crayon]

or

Monkey

[crayon-5cb9d2fd680dd967029055 inline="true" ] For Local itemInstance := EachIn myList if itemInstance.y > 100 itemInstance.y = 0 EndIf Next

1 2 3 4 5 6 7

[crayon-5cb9d2fd680dd967029055 inline="true" ] For Local itemInstance := EachIn myList    if itemInstance.y > 100       itemInstance.y = 0     EndIf Next

[/crayon]

[codifiesParticipant]

the more complex version! you can replicate what happens to eachin loop

Monkey

#Import "<std>" Using std.. Class myItems Field ID:Int Field content:String Method New(i:Int,s:String) ID=i content=s End End Function Main() Local alist:List<myItems> = New List<myItems> alist.Add(New myItems(1,"One")) alist.Add(New myItems(2,"Two")) alist.Add(New myItems(3,"Three")) alist.Add(New myItems(4,"Four")) alist.Add(New myItems(5,"Five")) alist.Add(New myItems(6,"Six")) alist.Add(New myItems(7,"Seven")) alist.Add(New myItems(8,"Eight")) alist.Add(New myItems(9,"Nine")) alist.Add(New myItems(10,"Ten")) Local iterator:=alist.All() While Not iterator.AtEnd While iterator.Current.ID < 4 iterator.Bump() Wend Local value:=iterator.Current If value.ID > 7 Continue Print value.ID+ " " + value.content iterator.Bump() Wend 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

#Import "<std>"   Using std..   Class myItems Field ID:Int Field content:String Method New(i:Int,s:String) ID=i content=s End End   Function Main() Local alist:List<myItems> = New List<myItems> alist.Add(New myItems(1,"One")) alist.Add(New myItems(2,"Two")) alist.Add(New myItems(3,"Three")) alist.Add(New myItems(4,"Four")) alist.Add(New myItems(5,"Five")) alist.Add(New myItems(6,"Six")) alist.Add(New myItems(7,"Seven")) alist.Add(New myItems(8,"Eight")) alist.Add(New myItems(9,"Nine")) alist.Add(New myItems(10,"Ten")) Local iterator:=alist.All() While Not iterator.AtEnd While iterator.Current.ID < 4 iterator.Bump() Wend Local value:=iterator.Current If value.ID > 7 Continue Print value.ID+ "  " + value.content iterator.Bump()   Wend End

If you wanted you could implement a custom iterator too, but in the real world… just do what Jesse suggested…

[nerobotParticipant]

In the latest example we got endless loop. Should replace ‘continue’ with ‘exit’.

[Author]

Posts