2013-11-28 5 views
0

Мне просто интересно, есть ли способ сортировки элементов в списке. в алфавитном порядке, по возрастанию? Soo далеко это мой код, который в основном добавляет файлы в ListBox:Как отсортировать элементы списка?

Dim Storage As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForApplication() 
    Dim directory As String = "./MyNote/SavedNotes/*.*" 
    Dim filenames As String() = Storage.GetFileNames(directory) 
    Dim dataSource As New List(Of SampleData)() 
    For Each filename As String In filenames 
     Dim ISF As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForApplication() 
     Dim FS As IsolatedStorageFileStream = ISF.OpenFile("MyNote/SavedNotes/" & filename, FileMode.Open, FileAccess.Read) 
     Using SR As New StreamReader(FS) 
      Dim FTime As String = GetRelativeTime(Storage.GetCreationTime("MyNote/SavedNotes/" & filename).ToString) 
      Dim DATESS As String = SR.ReadLine 
      Dim ReadName As String = SR.ReadLine 
      dataSource.Add(New SampleData() With {.FileNameX = filename, .Description = ReadName, .FileTime = FTime}) 
     End Using 
    Next 
    SavedNotesList.ItemsSource = dataSource 

Я просто интересно, как я могу сортировать добавленные элементы в алфавитном порядке по возрастанию? Кто-нибудь может мне помочь? Я слышал, что требуется наблюдательный коллектив или какой-то вид?

ответ

1

вы можете легко сделать с помощью

Dim query As IEnumerable(Of SampleData) = _ 
      datasource.OrderBy(Function(SampleData) s.FileNameX) 
+0

эй спасибо за это, но то, что эти «домашние животные»? Я должен заменить код, который вы мне предоставили: 'SavedNotesList.ItemsSource = dataSource' или это отдельный вариант? –

+0

@AhmedCader да – techloverr

+0

в порядке, поэтому мне удалось немного обновить этот код, чтобы он был следующим: 'Dim query As IEnumerable (Of SampleData) = dataSource.OrderBy (FunctionDataDataData.FileNameX)', но он должен быть по возрастанию или нисходящий? Я немного смущен –

Смежные вопросы