Страница общей коллекции без Linq

У меня есть объект типа System.Generic.Collections.List (Of MyCustomClass).

Учитывая целочисленные переменные размер страницы и номер страницы, как я могу собрать только одну страницу MyCustomClassобъектов?

Это то, что у меня есть. Как я могу улучшить это?

'my given collection and paging parameters
Dim AllOfMyCustomClassObjects As System.Collections.Generic.List(Of MyCustomClass) = GIVEN
Dim pagesize As Integer = GIVEN
Dim pagenumber As Integer = GIVEN

'collect current page objects
Dim PageObjects As New System.Collections.Generic.List(Of MyCustomClass)
Dim objcount As Integer = 1
For Each obj As MyCustomClass In AllOfMyCustomClassObjects
If objcount > pagesize * (pagenumber - 1) And count <= pagesize * pagenumber Then
    PageObjects.Add(obj)
End If
objcount = objcount + 1
Next

'find total page count
Dim totalpages As Integer = CInt(Math.Floor(objcount / pagesize))
If objcount Mod pagesize > 0 Then
totalpages = totalpages + 1
End If
21.08.2008 21:30:21
2 ОТВЕТА

Вы используете GetRange в своей коллекции IEnuramble:

List<int> lolInts = new List<int>();

for (int i = 0; i <= 100; i++)
{
    lolInts.Add(i);
}

List<int> page1 = lolInts.GetRange(0, 49);
List<int> page2 = lilInts.GetRange(50, 100);

Я надеюсь, что вы можете понять, как использовать GetRange, чтобы получить отдельную страницу отсюда.

1
21.08.2008 21:55:20

Generic.List должен предоставлять методы Skip () и Take (), чтобы вы могли сделать это:

Dim PageObjects As New System.Collections.Generic.List(Of MyCustomClass)
PageObjects = AllOfMyCustomClassObjects.Skip(pagenumber * pagesize).Take(pagesize)

Если под «без Linq» вы имели в виду 2.0 Framework, я не верю, что List (Of T) поддерживает эти методы. В этом случае используйте GetRange, как предложил Джонатан.

2
21.08.2008 22:06:50