A simple dev.to scraper

devto.fsx

#r "fsharp-data/lib/net45/FSharp.Data.dll"

open FSharp.Data

let doc = HtmlDocument.Load("https://dev.to/t/fsharp/top/infinity")
let posts = doc.CssSelect(".single-article")

let firstChildText selector (post : HtmlNode) =
    post.CssSelect(selector).[0].DirectInnerText().Trim()

let cleanName (name : string) = name.Replace("・", "")

let top3 =
    posts
    |> Seq.map(fun post ->
        post |> firstChildText ".content h3",
        post |> firstChildText "h4 > a" |> cleanName,
        post |> firstChildText ".reactions-count .engagement-count-number")
    |> Seq.take 3

for (title, author, reactions) in top3 do
    printf "\"%s\" (%s): %s\n" title author reactions