RosettaCodeData/Task/Web-scraping/App-Inventor/web-scraping.app

10 lines
471 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
when ScrapeButton.Click do
2018-06-22 20:57:24 +00:00
set ScrapeWeb.Url to SourceTextBox.Text
call ScrapeWeb.Get
2016-12-05 23:44:36 +01:00
when ScrapeWeb.GotText url,responseCode,responseType,responseContent do
2018-06-22 20:57:24 +00:00
initialize local Left to split at first text (text: get responseContent, at: PreTextBox.Text)
initialize local Right to "" in
set Right to select list item (list: get Left, index: 2)
set ResultLabel.Text to select list item (list: split at first (text:get Right, at: PostTextBox.Text), index: 1)