Skip to content

Instantly share code, notes, and snippets.

@fabiogaluppo

fabiogaluppo/webscraping_megasena.fs

Created April 25, 2021 23:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fabiogaluppo/e3432c11f539dfda95c4c0b56672b01c to your computer and use it in GitHub Desktop.
Save fabiogaluppo/e3432c11f539dfda95c4c0b56672b01c to your computer and use it in GitHub Desktop.
Download ZIP
Web Scraping "Mega Sena" with F# Data Providers
Raw
webscraping_megasena.fs
open FSharp.Data
[<Literal>]
let MegaSena_Url = "http://loterias.caixa.gov.br/wps/portal/loterias/landing/megasena/!ut/p/a1/04_Sj9CPykssy0xPLMnMz0vMAfGjzOLNDH0MPAzcDbwMPI0sDBxNXAOMwrzCjA0sjIEKIoEKnN0dPUzMfQwMDEwsjAw8XZw8XMwtfQ0MPM2I02-AAzgaENIfrh-FqsQ9wNnUwNHfxcnSwBgIDUyhCvA5EawAjxsKckMjDDI9FQE-F4ca/dl5/d5/L2dBISEvZ0FBIS9nQSEh/pw/Z7_HGK818G0K8DBC0QPVN93KQ10G1/res/id=historicoHTML/c=cacheLevelPage/=/"
type MegaSena_Results = HtmlProvider<MegaSena_Url, PreferOptionals=true>
let instanceMegaSena = MegaSena_Results.GetSample()
let data = instanceMegaSena.Tables.Table1
for x in data.Rows do
if x.Column1.IsSome then
printfn "%d %d %d %d %d %d" x.Column4.Value x.Column5.Value x.Column6.Value x.Column7.Value x.Column8.Value x.Column9.Value
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment