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()
)

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

Answer 1

TryGetAttribute返回一个选项类型，当它是时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")

或者使用defaultArgand的版本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 ""