Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ssh/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net Directory.enumerate包含Take和Where的文件_Vb.net - Fatal编程技术网

Vb.net Directory.enumerate包含Take和Where的文件

Vb.net Directory.enumerate包含Take和Where的文件,vb.net,Vb.net,我有以下问题: For Each _file As String In Directory.EnumerateFiles(Quellpfad, "*.rdy").Take(500).Where(Function(item) item.Replace(Quellpfad, "").Length <= 11) 将每个_文件作为目录中的字符串。EnumerateFiles(Quellpfad,*.rdy”).Take(500)。Where(函数(项)item.Replace(Quellpfad

我有以下问题:

For Each _file As String In Directory.EnumerateFiles(Quellpfad, "*.rdy").Take(500).Where(Function(item) item.Replace(Quellpfad, "").Length <= 11)

将每个_文件作为目录中的字符串。EnumerateFiles(Quellpfad,*.rdy”).Take(500)。Where(函数(项)item.Replace(Quellpfad,”)。长度您需要重新排序语句,将
Where
放在
Take
之前:

For Each _file As String In Directory.EnumerateFiles(Quellpfad, "*.rdy").Where(Function(item) item.Replace(Quellpfad, "").Length <= 11).Take(500)

对于目录中作为字符串的每个_文件。EnumerateFiles(Quellpfad,*.rdy”).Where(Function(item)item.Replace(Quellpfad,”).Length您应该使用
Take
last,因为您想首先应用过滤器,您还应该使用or
Path.GetFileNameWithoutExtension
而不是
字符串。Replace
:

Dim files = From file In Directory.EnumerateFiles(Quellpfad, "*.rdy")
            Where Path.GetFileName(file).Length <= 11
            Take 500 
Dim files=来自目录.EnumerateFiles(Quellpfad,*.rdy)中的文件

Where Path.GetFileName(文件).Length很乐意帮助:)