Postupy: Dotazování na největší soubor nebo soubory ve stromu adresáře (LINQ) (Visual Basic)
Tento příklad ukazuje pět dotazů souvisejících s velikostí souboru v bajtech:
Jak načíst velikost v bajtech největšího souboru
Jak načíst velikost v bajtech nejmenšího souboru.
Jak načíst FileInfo objekt největší nebo nejmenší soubor z jedné nebo více složek v zadané kořenové složce.
Jak načíst sekvenci, například 10 největších souborů.
Jak uspořádat soubory do skupin podle jejich velikosti v bajtech a ignorovat soubory, které jsou menší než zadaná velikost.
Příklad
Následující příklad obsahuje pět samostatných dotazů, které ukazují, jak dotazovat a seskupit soubory v závislosti na jejich velikosti v bajtech. Tyto příklady můžete snadno upravit tak, aby založily dotaz na některé jiné vlastnosti objektu FileInfo .
Module QueryBySize
Sub Main()
' Change the drive\path if necessary
Dim root As String = "C:\Program Files\Microsoft Visual Studio 9.0"
'Take a snapshot of the folder contents
Dim dir As New System.IO.DirectoryInfo(root)
Dim fileList = dir.GetFiles("*.*", System.IO.SearchOption.AllDirectories)
' Return the size of the largest file
Dim maxSize = Aggregate aFile In fileList Into Max(GetFileLength(aFile))
'Dim maxSize = fileLengths.Max
Console.WriteLine("The length of the largest file under {0} is {1}", _
root, maxSize)
' Return the FileInfo object of the largest file
' by sorting and selecting from the beginning of the list
Dim filesByLengDesc = From file In fileList _
Let filelength = GetFileLength(file) _
Where filelength > 0 _
Order By filelength Descending _
Select file
Dim longestFile = filesByLengDesc.First
Console.WriteLine("The largest file under {0} is {1} with a length of {2} bytes", _
root, longestFile.FullName, longestFile.Length)
Dim smallestFile = filesByLengDesc.Last
Console.WriteLine("The smallest file under {0} is {1} with a length of {2} bytes", _
root, smallestFile.FullName, smallestFile.Length)
' Return the FileInfos for the 10 largest files
' Based on a previous query, but nothing is executed
' until the For Each statement below.
Dim tenLargest = From file In filesByLengDesc Take 10
Console.WriteLine("The 10 largest files under {0} are:", root)
For Each fi As System.IO.FileInfo In tenLargest
Console.WriteLine("{0}: {1} bytes", fi.FullName, fi.Length)
Next
' Group files according to their size,
' leaving out the ones under 200K
Dim sizeGroups = From file As System.IO.FileInfo In fileList _
Where file.Length > 0 _
Let groupLength = file.Length / 100000 _
Group file By groupLength Into fileGroup = Group _
Where groupLength >= 2 _
Order By groupLength Descending
For Each group In sizeGroups
Console.WriteLine(group.groupLength + "00000")
For Each item As System.IO.FileInfo In group.fileGroup
Console.WriteLine(" {0}: {1}", item.Name, item.Length)
Next
Next
' Keep the console window open in debug mode
Console.WriteLine("Press any key to exit.")
Console.ReadKey()
End Sub
' This method is used to catch the possible exception
' that can be raised when accessing the FileInfo.Length property.
' In this particular case, it is safe to ignore the exception.
Function GetFileLength(ByVal fi As System.IO.FileInfo) As Long
Dim retval As Long
Try
retval = fi.Length
Catch ex As FileNotFoundException
' If a file is no longer present,
' just return zero bytes.
retval = 0
End Try
Return retval
End Function
End Module
Pokud chcete vrátit jeden nebo více úplných FileInfo objektů, musí dotaz nejprve zkontrolovat každý z nich ve zdroji dat a pak je seřadit podle hodnoty vlastnosti Délka. Pak může vrátit jednu nebo sekvenci s největší délkou. Slouží First k vrácení prvního prvku v seznamu. Slouží Take k vrácení prvního n počtu prvků. Zadejte sestupné pořadí řazení pro umístění nejmenších prvků na začátek seznamu.
Dotaz volá samostatnou metodu pro získání velikosti souboru v bajtech, aby spotřeboval možnou výjimku, která bude vyvolána v případě, že byl soubor odstraněn v jiném vlákně v časovém období od vytvoření FileInfo objektu v volání GetFiles. I přes FileInfo objekt již byl vytvořen, může dojít k výjimce, protože FileInfo se objekt pokusí aktualizovat jeho Length vlastnost pomocí nejnovější velikosti v bajtech při prvním přístupu k vlastnosti. Když tuto operaci umístíme do bloku try-catch mimo dotaz, řídíme se pravidlem, kterým se v dotazech zabráníte operacím, které můžou způsobit vedlejší účinky. Obecně platí, že při používání výjimek je potřeba věnovat velkou pozornost, aby se zajistilo, že aplikace není ponechána v neznámém stavu.
Kompilace kódu
Vytvořte projekt konzolové aplikace jazyka Visual Basic s příkazem Imports pro obor názvů System.Linq.
