使用 LINQ 从 IEnumerable 中提取特定信息？

Question

我有一个包含文件和目录信息的 IEnumerable - 下面是它的内容示例：-

我想从此 IEnumerable 中提取特定信息，并假设 LINQ 是最佳途径

我想要给定路径中的文件列表和单独的目录列表 - 但只是那个级别，所以不包括子目录等

所以如果我通过 C:\ 那么它只返回 C:\ 根目录中的文件列表和 C:\ 根目录中的目录列表 - 仅 1 级。如果我通过 C:\Windows 则它返回 C:\Windows 根目录中的文件列表和 C:\Windows 中的目录列表 - 再次只是给定的级别，没有更低（或更高）

列表只需要包含每个文件/目录的全名即可

如果是目录，则 Attributes 值包含 Directory，因此我可以使用它来轻松确定文件或目录是否使用类似于下面的内容

Dim dirs2 = nodes.Where(Function(n) n.FullName.StartsWith(path) And n.Attributes = Attributes.Directory)
Dim files2 = nodes.Where(Function(n) n.FullName.StartsWith(path) And n.Attributes <> Attributes.Directory)

但我被困在如何只返回 FullName 值 - 以及 - 如何只返回一个级别

下面链接的示例项目显示了使用 NTFSreader link 填充 IEnumerable 的确切方式

注意我想继续使用 Ntfs 阅读器，而不是使用 IO.Directory.GetDirectories / GetFiles，因为 NTFS 阅读器要快得多，并且没有相同的权限问题，因为它直接从 MFT 获取信息

http://www.pcassistonline.co.uk/upload/test_source.zip

这里有人有什么想法吗？在 Google 和其他论坛上花了几个小时，但在这里不知所措 - 谢谢

Answer 1

你可以这样使用：

在此示例中，您可以将这两个信息作为 IEnumerable 或 Structure DFInfo，其中有 Name 和 FullName （为方便起见）。

仅对于FullName，此代码应该更苗条，去掉DFInfoStructure。 请注意，没有必要使用Attributes（如您所示）来查看是File 还是Directory，因为GetDirectories 或GetFiles 方法仅返回目录或仅返回文件。

重要的是，当Security Exception 出现时，您无法通过受 SO 保护的 File 或 Directory 获取信息。

希望就是你所需要的。

Private Enum DF
    Directory = 0
    Files = 1
End Enum

Structure DFInfo
    Dim Name As String
    Dim FullName As String
End Structure

Private Function GetDFFromPath(path As String, whatINeed As DF) As IEnumerable(Of DFInfo)
    Dim elements As List(Of String)

    If whatINeed = DF.Directory Then
        elements = IO.Directory.GetDirectories(path, "*.*", searchOption:=SearchOption.TopDirectoryOnly).ToList
    Else
        elements = IO.Directory.GetFiles(path, "*.*", searchOption:=SearchOption.TopDirectoryOnly).ToList
    End If

    If elements IsNot Nothing AndAlso elements.Count > 0 Then
        Return elements.ConvertAll(Function(str) New DFInfo With {.Name = New FileInfo(str).Name, .FullName = New FileInfo(str).FullName})
    End If

    Return Nothing

End Function

用法：

Dim allDirs As IEnumerable(Of DFInfo) = GetDFFromPath("C:\", DF.Directory)
Dim allFiles As IEnumerable(Of DFInfo) = GetDFFromPath("C:\Windows", DF.Files)

如果您想使用 NTFSReader 工作/改进以下 2 条说明：

    Dim rootDir = "C:\"
    Dim dirs2 As List(Of String) =
        nodes.Where(Function(n)
                        Return n.FullName = rootDir & n.Name And n.Attributes = Attributes.Directory
                    End Function).
    Select(Function(n) n.FullName).ToList

    rootDir = "C:\Windows\"
    Dim files2 As List(Of String) =
        nodes.Where(Function(n)
                        Return n.FullName = rootDir & n.Name And n.Attributes <> Attributes.Directory
                    End Function).
        Select(Function(n) n.FullName).ToList

Answer 2

Dim dirs As List(Of String) = nodes.Where(Function(n)
                             Return n.FullName = path & n.Name AndAlso ((n.Attributes And Attributes.Directory) = Attributes.Directory)
                             End Function).Select(Function(n) n.FullName).OrderBy(Function(n) n).ToList


Dim files As List(Of String) = nodes.Where(Function(n)
                               Return n.FullName = path & n.Name AndAlso ((n.Attributes And Attributes.Directory) <> Attributes.Directory)
                               End Function).Select(Function(n) n.FullName).OrderBy(Function(n) n).ToList

并且需要确保“路径”有一个尾随 \ 例如C:\ 或 C:\Windows\ 而不是 C:\Windows 好像不行一样

感谢所有输入 :)