分配索引以读取 F# 查询中的 CSV 行

Question

将索引添加到使用CsvProvider和query表达式读入的 CSV/TSV 文件的读取内容的最简单方法是什么？

我有一个制表符分隔的文件，其中包含数千个定期需要读取的订单，相关订单是最近未写入某个数据库的订单。 订单未编入索引且没有时间戳，因此我必须交叉引用以查看哪些订单尚未写入数据库。 我想对这些进行索引，以便我可以找到未写入数据库的最新订单，然后选择包括之后的所有行（该文件由第 3 方按顺序写入，因此最新订单将是最下方的行）文件），但到目前为止我没有看到在单个查询表达式中执行此操作的非常简单的方法。

let data = new CsvProvider<fileLocation>()
let allOrders = query {
    for row in data.Rows do
    select row (*perhaps something like a "select (index, row)" here?*)
    (*how do I increment the index in the expression?*)
}

我将如何索引这些？

Answer 1

您可以使用Seq.indexed将序列data.Rows转换为元组序列，其中第一个元素是从零开始的索引，第二个元素是行：

let allOrders = query {
    for index, row in Seq.indexed data.Rows do
    where (index < threshold)
    select row
}

---

有关Seq.indexed如何工作的说明：

> let xs = ["a"; "b"; "c"; "d"]
> Seq.indexed xs
val it : seq<int * string> = seq [(0, "a"); (1, "b"); (2, "c"); (3, "d")]