F#从序列中提取项目_F#_Sequence_Take

F#从序列中提取项目

F#从序列中提取项目,f#,sequence,take,F#,Sequence,Take,我正在努力学习F# 我想做的是下载一个网页，把它分成一个序列，然后找到一个项目的索引，并在它之后取下接下来的3个项目这是密码，有人能告诉我我做错了什么吗 let find = "<head>" let page = downloadUrl("http://www.stackoverflow.com") let lines = seq ( page.Replace("\r", System.String.Empty).Split([|"\n"|], StringSplitOpt

我正在努力学习F#

我想做的是下载一个网页，把它分成一个序列，然后找到一个项目的索引，并在它之后取下接下来的3个项目

这是密码，有人能告诉我我做错了什么吗

let find = "<head>"
let page = downloadUrl("http://www.stackoverflow.com")
let lines = seq (  page.Replace("\r", System.String.Empty).Split([|"\n"|],   StringSplitOptions.RemoveEmptyEntries)  )
let pos = lines |> Seq.findIndex(fun a -> a == find) // getting a Exception of type 'System.Collections.Generic.KeyNotFoundException' was thrown.
let result = // now to get the next 3 items
printfn "%A" (Seq.toList result);;

let find=“”
let page=下载URL（“http://www.stackoverflow.com")
让lines=seq（page.Replace（“\r”，System.String.Empty）。Split（[|“\n”|]，StringSplitOptions.RemoveEmptyEntries））
让pos=lines |>Seq.findIndex（fun a->a==find）//引发“System.Collections.Generic.KeyNotFoundException”类型的异常。
让result=//现在获取接下来的3项
printfn“%A”（Seq.toList result）；；

此行跳过找到的项目之前的所有内容，而不接受它后面的3个项目

编辑：

如果搜索的项目不存在，则Seq.findIndex

失败。您需要

序列tryFindIndex

：

match lines |> Seq.tryFindIndex(fun a -> a == find) with
| Some pos -> let result = // now to get the next 3 items
              printfn "%A" (Seq.toList result)
| None     -> ()

此行跳过找到的项目之前的所有内容，而不接受它后面的3个项目

编辑：

如果搜索的项目不存在，则Seq.findIndex

失败。您需要

序列tryFindIndex

：

match lines |> Seq.tryFindIndex(fun a -> a == find) with
| Some pos -> let result = // now to get the next 3 items
              printfn "%A" (Seq.toList result)
| None     -> ()

所以你正在做一些F#文本处理。以下是一些可能的问题：

下载HTML页面后，您没有进行任何预处理，比如删除所有HTML标记

page.Replace（“\r”，System.String.Empty）。拆分（[|“\n”|]

有问题，因为我猜您想拆分项目/单词。此行只拆分行

让pos=lines>Seq.findIndex（fun a->a==find）

将

更改为

。在F#中，

是用于比较的布尔运算符

let result=lines |>Seq.take pos

只获取第一个

pos

项目。您应该跳过这些项目，然后获取

pos

项目，如所示：

因此，您正在进行一些F#文本处理。以下是一些可能的问题：