F#在为空的情况下返回空字符串

Question

我正在尝试通过开发一个小型“网络爬虫”来接触一些 F# 语言。我有一个这样声明的函数：

let results = HtmlDocument.Load("http://joemonster.org//")

let images = 
results.Descendants ["img"]
|> Seq.map (fun x -> 
    x.TryGetAttribute("src").Value.Value(),
    x.TryGetAttribute("alt").Value.Value()
)

当然应该为我返回 "src" 和 "img" 标签的 "alt" 属性的映射。但是，当我遇到标签中缺少其中一个的情况时，我会遇到 TryGetAttribute 返回 null 的异常。我想更改该函数以在 null 的情况下返回属性值或空字符串。 我尝试了this ticket 的答案，但没有成功。

Answer 1

TryGetAttribute 返回一个 option 类型，而当它是 None 时，您无法获得它的 值——您会得到一个异常。您可以对返回的选项值进行模式匹配，并为 None 案例返回一个空字符串：

let getAttrOrEmptyStr (elem: HtmlNode) attr =
  match elem.TryGetAttribute(attr) with
  | Some v -> v.Value()
  | None -> ""
let images = 
  results.Descendants ["img"]
  |> Seq.map (fun x -> getAttrOrEmptyStr x "src", getAttrOrEmptyStr x "alt")

或者使用defaultArg和Option.map的版本：

let getAttrOrEmptyStr (elem: HtmlNode) attr =
  defaultArg (elem.TryGetAttribute(attr) |> Option.map (fun a -> a.Value())) ""

或者现在Option.defaultValue 存在的另一个选项，并使用HtmlAttribute.value 函数进行更简洁的Option.map 调用：

let getAttrOrEmptyStr (elem: HtmlNode) attr =
  elem.TryGetAttribute(attr)
  |> Option.map HtmlAttribute.value
  |> Option.defaultValue ""