/*Austrian Bundesliga (football league) current placement*/
Explorer = .OLEObject~new("InternetExplorer.Application")
Explorer~visible = .true
Explorer~Navigate("https://www.bundesliga.at/de/tabelle/")

call SysSleep 5
doc = Explorer~document
body =doc~body
textrange = body~CreateTextRange
text = textrange~Text
Explorer~Quit
parse var text . "Diff" Mannschaft "SGF"  .
say "The current placement from the different teams look like this" Mannschaft
parse pull