在 Mathematica 中按文本日期列对数组进行排序

Question

我认为很容易的事情。

我有一个来自 CSV 的混合日期、文本和数字数据的二维列表（数组）。我希望能够按单列中的值对行进行排序，在本例中是文本格式的日期。例如：

{{1/12/2008，鲍勃，123}， {28/06/2007，爱丽丝，456}， {19/08/2009, Charlie, 789}}

我想按日期对列表中的行进行排序（以便按 Alice、Bob、Charlie 的顺序显示。）

到目前为止，我认为我可能想要在日期列中映射 DateList 并将年、月和日添加到列表中，因此它变为：

{{2008, 12, 1, Bob, 123}, {2007, 6, 28, Alice, 456}}

然后我必须进行三种排序而不是一次排序，并且需要按年份分解数组。这似乎不对，现在我被困住了。我知道这应该很简单，但我一生都无法弄清楚。任何指示表示赞赏。

谢谢，

蒂姆

Answer 1

也许这...

l = {{"1/12/2008", Bob, 123}, {"28/06/2007", Alice, 456}, 
     {"19/08/2009", Charlie, 789}}

SortBy[l, AbsoluteTime[{#[[1]], {"Day", "Month", "Year"}}] &]   

给出了

{{"28/06/2007", Alice,   456}, 
 {"1/12/2008",  Bob,     123}, 
 {"19/08/2009", Charlie, 789}}   

HTH

Edit

请注意，Sort[ ] 使用 OrderedQ[ ] 进行比较，因此它可以比较列表。 （例如，更大的[ ] 则不能）。

所以，下面的代码也可以工作：

Sort@(Flatten@{DateList[{#[[1]],{"Day","Month","Year"}}], #[[2]], #[[3]]} & /@ l)

或者可能更优雅：

Sort@(l/.{x_String, y__} :> Flatten@{DateList[{x, {"Day", "Month", "Year"}}], y})

Answer 2

贝利萨留第二种方法的替代方法：

lst = {{"1/12/2008", Bob, 123},
       {"28/06/2007", Alice, 456}, 
       {"19/08/2009", Charlie, 789}};

lst = {DateList@{#, {"Day", "Month", "Year"}}, ##2} & @@@ lst;

Sort@lst