Aracılığıyla paylaş

Nasıl yapılır: Dosyaları Uzantıya Göre Gruplandırma (LINQ) (Visual Basic)

Bu örnekte, LINQ'in dosya veya klasör listelerinde gelişmiş gruplandırma ve sıralama işlemleri gerçekleştirmek için nasıl kullanılabileceğini gösterir. Konsol penceresinde çıkışın nasıl sayfaya alındığını Skip ve Take yöntemlerini kullanarak da gösterir.

Örnek

Aşağıdaki sorgu, belirtilen dizin ağacının içeriğini dosya adı uzantısına göre gruplandırma işlemini gösterir.

Module GroupByExtension  
    Public Sub Main()  
  
        ' Root folder to query, along with all subfolders.  
        Dim startFolder As String = "C:\program files\Microsoft Visual Studio 9.0\VB\"  
  
        ' Used in WriteLine() to skip over startfolder in output lines.  
        Dim rootLength As Integer = startFolder.Length  
  
        'Take a snapshot of the folder contents  
        Dim dir As New System.IO.DirectoryInfo(startFolder)  
        Dim fileList = dir.GetFiles("*.*", System.IO.SearchOption.AllDirectories)  
  
        ' Create the query.  
        Dim queryGroupByExt = From file In fileList _  
                          Group By file.Extension.ToLower() Into fileGroup = Group _  
                          Order By ToLower _  
                          Select fileGroup  
  
        ' Execute the query. By storing the result we can  
        ' page the display with good performance.  
        Dim groupByExtList = queryGroupByExt.ToList()  
  
        ' Display one group at a time. If the number of
        ' entries is greater than the number of lines  
        ' in the console window, then page the output.  
        Dim trimLength = startFolder.Length  
        PageOutput(groupByExtList, trimLength)  
  
    End Sub  
  
    ' Pages console display for large query results. No more than one group per page.  
    ' This sub specifically works with group queries of FileInfo objects  
    ' but can be modified for any type.  
    Sub PageOutput(ByVal groupQuery, ByVal charsToSkip)  
  
        ' "3" = 1 line for extension key + 1 for "Press any key" + 1 for input cursor.  
        Dim numLines As Integer = Console.WindowHeight - 3  
        ' Flag to indicate whether there are more results to display  
        Dim goAgain As Boolean = True  
  
        For Each fg As IEnumerable(Of System.IO.FileInfo) In groupQuery  
            ' Start a new extension at the top of a page.  
            Dim currentLine As Integer = 0  
  
            Do While (currentLine < fg.Count())  
                Console.Clear()  
                Console.WriteLine(fg(0).Extension)  
  
                ' Get the next page of results  
                ' No more than one filename per page  
                Dim resultPage = From file In fg _  
                                Skip currentLine Take numLines  
  
                ' Execute the query. Trim the display output.  
                For Each line In resultPage  
                    Console.WriteLine(vbTab & line.FullName.Substring(charsToSkip))  
                Next  
  
                ' Advance the current position  
                currentLine = numLines + currentLine  
  
                ' Give the user a chance to break out of the loop  
                Console.WriteLine("Press any key for next page or the 'End' key to exit.")  
                Dim key As ConsoleKey = Console.ReadKey().Key  
                If key = ConsoleKey.End Then  
                    goAgain = False  
                    Exit For  
                End If  
            Loop  
        Next  
    End Sub  
End Module

Bu programın çıktısı, yerel dosya sisteminin ayrıntılarına ve startFolder 'in ne olarak ayarlandığına bağlı olarak uzun olabilir. Tüm sonuçların görüntülenebilmesi için, bu örnek sonuçlar arasında nasıl sayfalandırma yapılacağını göstermektedir. Aynı teknikler Windows ve Web uygulamalarına da uygulanabilir. Kod bir gruptaki öğeleri sayfalandırdığı için iç içe For Each döngü gerekli olduğuna dikkat edin. Listedeki mevcut pozisyonu hesaplamak ve kullanıcının sayfalamayı durdurmasını ve programdan çıkmasını sağlamak için bazı ek mantık da vardır. Bu özel durumda, sayfalama sorgusu, özgün sorgunun önbelleğe alınmış sonuçları üzerinde çalıştırılır. LINQ to SQL gibi diğer bağlamlarda önbelleğe alma gerekli değildir.

Kodu derleme

System.Linq ad alanı bildirimi içeren bir Imports Visual Basic konsol uygulaması projesi oluşturun.

Ayrıca bakınız

  • Last updated on