查找文件然后在显示结果之前解析结果

Question

我正在为我们的客户服务部门开发一款应用。用户将输入打印编号和制造日期。然后，该应用程序将执行获取文件，返回使用该图号（多个修订版）找到的所有文件的结果。这些文件以这种格式命名drawingnumber_rev_pages_6-digit date.pdf。 一旦我得到了该图纸编号的列表，然后我取一个 10 个字符的右（字符串）来去除 6 位数的日期，并执行 Date.ParseExact 以与用户输入的制造日期进行比较。我在那个日期之前抓取了任何东西，并将它们显示在一个列表框中。标准现在已经改变，他们希望我只显示与该构建日期相关的文件。问题是，我需要该日期之前的第一个版本。而且我不完全理解我的 getfiles 语句的 (function) 部分。所以我不知道要搜索什么来查找谷歌结果。当我搜索getfiles时，没有提到函数，如果我查找orderby ...函数没有提到，我需要在linq下搜索吗？你会建议我如何处理这个？ original version example 新版本，我可以过滤结果并找到日期之前的所有内容......但我想要的是制造之前的最高版本。日期。返回单个结果。 current version

谢谢大家-这是我的示例代码。

Try
    Dim results = Directory.GetFiles(fp, f).
        OrderByDescending(Function(x) New FileInfo(x).FullName)

    For Each result In results
        Dim dp As String = ""
        Dim d As Date
        dp = Strings.Right(result, 10)
        dp = Strings.Left(dp, 6)
        d = Date.ParseExact(dp, "MMddyy", New Globalization.CultureInfo("en-us"))
        Debug.Print(dp)
        Debug.Print(d)
        Dim udt As String = ""
        Dim ud As Date 'user date
        udt = Trim(Replace(txtMfgDate.Text, "/", ""))
        If udt.ToString.Length = 0 Then lstFound.Items.Add(result)

        ud = Date.ParseExact(udt, "MMddyy", New Globalization.CultureInfo("en-us"))
        If d.Date <= ud.Date Then
            lstFound.Items.Add(result)
        End If

        Debug.Print(d)
        Debug.Print(ud)
        If result <> Nothing Then

        End If
    Next
Catch x As Exception
    MessageBox.Show("Error finding file: " & f)
End Try

Answer 1

LINQ 可以在适当的条件下完成您需要的一切。我还尝试以其他方式清理一些代码。我将 LINQ 表达式切换为查询理解，以便可以使用 Let。

Try
    Dim enusCulture = New Globalization.CultureInfo("en-us") ' consider CultureInfo.CurrentCulture instead?
    Dim udt As String = Trim(Replace(txtMfgDate.Text, "/", ""))
    Dim ud As Date

    If udt.Length > 0 Then ud = Date.ParseExact(udt, "MMddyy", enusCulture) ' user mfg date
    ' 0071911_a_1_072115.pdf

    Dim results = From filename In Directory.GetFiles(fp, f)
        Let filedate = Date.ParseExact(filename.Substring(filename.Length - 10, 6), "MMddyy", enusCulture)
        Where udt.Length = 0 OrElse filedate.Date < ud.Date
        Order By filedate Descending

    If udt.Length> 0 Then
        results = results.Take(1)
    End If

    lstFound.Items.AddRange(results)
Catch x As Exception
    MessageBox.Show("Error finding file: " & f)
End Try

Function(x) 语法是一个 lambda 表达式，它是OrderByDescending 函数的 LINQ 方法语法的一部分，如果您想研究的话。