Как реализовать пейджинг с Linq для Xml? - PullRequest
0 голосов
/ 23 ноября 2011

Я застрял на том, как выполнить подкачку при получении изображений из моего RSS-канала. У меня есть помощник также для рендеринга HTML для ссылок на пейджер. Однако я не уверен, что делать в действии Index. Мой код выглядит следующим образом:

В моем контроллере:

Public Function Index() As ActionResult
        Dim feedurl As String = "http://riderdesign.net/p290530166/recent.rss"
        Using x = XmlReader.Create(feedurl)
            Dim r = XDocument.Load(x)
            Dim mediapfx As XNamespace = "http://search.yahoo.com/mrss/"
            '  Dim rssfeed = SyndicationFeed.Load(x)
            Dim ml = From item In r.Descendants(mediapfx + "content") Select item
            Dim PageSize As Integer = Configuration.ConfigurationManager.AppSettings.Get("PageSize")

            Dim medialist = From item In r.Descendants("item") Select New MediaImage With {
             .Alt = item.Element("title"), .ImageUrl = item.Element("link"), .ThumbnailUrl = TryGetAttributeValue(item.Element(mediapfx + "thumbnail"), "url"), .Height = TryGetAttributeValue(item.Element(mediapfx + "thumbnail"), "height"), .Width = TryGetAttributeValue(item.Element(mediapfx + "thumbnail"), "width")} Take PageSize
            Return View(medialist)

        End Using

    End Function

Класс PagedData:

    Public Class PagedData
    Public Property TotalItems As Integer

    Public Property ItemsPerPage As Integer

    Public Property CurrentPage As Integer

    ReadOnly Property TotalPages As Integer
        Get
            Return Convert.ToInt32(Math.Ceiling(Convert.ToDecimal(TotalItems / ItemsPerPage)))
        End Get
    End Property

End Class

И моя пейджинговая модель просмотра

 mvcPublic Class PagingViewModel
    Property Images As IEnumerable(Of MediaImage)
    Property Paging As Pager

End Class

Помощник по пейджингу:

   Public Class PagingHelper
    Public Shared Function PageLinks(ByVal html As HtmlHelper, ByVal Page As Pager, ByVal pageUrl As Func(Of Integer, String)) As MvcHtmlString
        Dim r As StringBuilder = New StringBuilder
        For i = 1 To Page.TotalPages
            Dim tag As TagBuilder = New TagBuilder("a")
            tag.MergeAttribute("href", pageUrl(i))
            tag.InnerHtml = i.ToString
            If i = Page.CurrentPage Then
                tag.AddCssClass("selected")
                r.Append(tag.ToString)

            End If
            Return MvcHtmlString.Create(r.ToString)
        Next

    End Function

Ответы [ 2 ]

0 голосов
/ 06 декабря 2011

Я реализовал пейджинг, используя PagedList Троя Гуда и связанный с ним помощник.Я вызываю метод расширения ToPagedList и использую помощника для рендеринга ссылок для подкачки.Я загрузил souce для помощника и изменил его так, чтобы он отображал промежутки вместо неупорядоченного списка для ссылок на страницы.

0 голосов
/ 23 ноября 2011

Я предлагаю создать таблицу в своем представлении и добавить сценарии YUI в свой вид. Я использовал ее, это очень быстро.Взгляните на демо: http://beckelman.net/post/2008/10/23/Client-Side-Table-Sorting-Paging-and-Filtering-with-jQuery-Demo.aspx

...