.net - 如何在 LINQ 语句中使用 DateTime.TryParseExact

Question

给定以下源数据:

Dim inputs = {New With {.Name="Bob", .Date="201405030500"},
              New With {.Name="Sally", .Date="201412302330"},
              New With {.Name="Invalid", .Date="201430300000"}}

我已经编写了以下 LINQ 查询(目的是在 Select 之前添加一个 Where success 子句作为过滤器，但我已经将其遗漏了在结果中包含 success 用于调试目的):

Dim result1 = From i in inputs
              Let newDate = New DateTime
              Let success = DateTime.TryParseExact(i.Date, "yyyyMMddHHmm", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.AssumeLocal, newDate)
              Select New With {
                  .Name = i.Name, 
                  .Success = success,
                  .Date = newDate
              }

但是，我得到以下结果，newDate 没有被 TryParseExact 填充:

因此，我重构了查询以将 TryParseExact 提取到匿名方法中以获取以下内容:

Dim parseDate = Function(d As String)
                    Dim parsedDate As DateTime
                    Return New Tuple(Of Boolean, Date)(DateTime.TryParseExact(d, "yyyyMMddHHmm", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.AssumeLocal, parsedDate), parsedDate)
                End Function

Dim result2 = From i in inputs
              Let parsedDate = parseDate(i.Date)
              Select New With {
                  .Name = i.Name,
                  .Success = parsedDate.Item1,
                  .Date = parsedDate.Item2
              }

...这正确地给了我:

但是，我想找到一种完全在 LINQ 语句中执行此操作的方法，而无需使用匿名方法来创建元组。当然，我有一些有用的东西，但我想把它作为学术兴趣点来做。

我怀疑这是可能的，但我的问题是:

为什么 result1 查询没有用解析的日期正确设置 newDate？

(我考虑过惰性求值，但我认为它不适用于此。)

更新:

• 谢谢 Hamlet向我展示了您实际上可以同时声明和调用匿名方法!头脑=爆炸!
• 谢谢 Jim建议使用 Nullable 而不是 Tuple!很有道理。
• 谢谢 Ahmad建议关闭，这对我来说肯定比匿名方法更干净。

由于下面的答案，我重构了 LINQ 如下(包括 Where 子句过滤器):

Dim result3 = From i in inputs
              Let parsedDate = Function(d) 
                                   Dim dtParsed As DateTime
                                   Return If(DateTime.TryParseExact(d, "yyyyMMddHHmm", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.AssumeLocal, dtParsed), dtParsed, New DateTime?)
                               End Function(i.Date)
              Where parsedDate.HasValue
              Select New With {
                  .Name = i.Name,
                  .Date = parsedDate.Value
              }

这实现了我正在寻找的东西，我相信编译器会优化生成的代码，但我仍然想了解为什么 result1 没有工作。也许这是 Eric Lippert 或 John Skeet 的问题。

Answer 1

我建议你使用TryParsers专门为在 LINQ 查询中使用 TryParse 方法而创建的库。

Dim query = From i In inputs
    Let d = TryParsers.TryParse.DateTimeExact(i.Date, "yyyyMMddHHmm", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.AssumeLocal)
    Select New With {
          .Name = i.Name,
          .Success = Not d Is Nothing,
          .Date = d.Value
    }

您不能使用范围变量 (let) 作为 ref/out 参数，因为 let 关键字创建一个只读变量(实际上它编译到匿名对象的属性)。