Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
85 lines (60 sloc) 2.62 KB
'Web Scraping Demo Script
option Explicit
dim myBrowser, i, s, allData, data, line
set myBrowser = CreateObject ("seeshell.browser")
If myBrowser Is Nothing Then msgbox ("API not installed")
i =
if i < 0 then msgbox ("Start error: " + cstr(i) +" " +myBrowser.getLastError())
i = myBrowser.echo ("Processing...")
i = myBrowser.Play("demo-webscraping")
if i < 0 then
msgbox "Error playing macro: " + cstr(i) + vbCrLf + vbCrLf +"Text: "+myBrowser.getLastError()
'Stop here
i = myBrowser.close()
end if
i = myBrowser.echo ("Done!")
'Display all data
allData = myBrowser.GetExtractImageData()
s = "Extraction done - this is how the raw returned data looks like:"+vbCrLf+vbCrLf
s = s+ allData+vbCrLf+vbCrLf
s = s + "Press OK to display the exchange rates."
msgbox s
'The data is separated by [REC] for each line, and by [DATA] for each line (if there is more than one pink frame)
data = Split(allData, "[DATA]")
'In this case we ignore all the extracted HTML and URLs, this is only in the macro for demo purposes
'In this script, we only care and display the extracted TEXT data - the exchange rate
'line 0 - BTC HTML code
'line 1 - BTC Text... we need this
'line 2 - BTC Link... not needed
'line 3 - OCR'ed result (here the same as the text, but OCR works even with images and PDF)
'line 4 - Currency rates - needed
msgbox "Today's Bitcoin/US$ exchange rate is "+data(0) 'FIRST element has index = 0
s= "Today's currency exchange rates are"+vbCrLf+vbCrLf
dim iStartPos
iStartPos = 6
s = s+"USD/EUR: "+data(iStartPos+1)+vbCrLf
s = s+ "USD/GBP: "+data(iStartPos+3)+vbCrLf
s = s+ "USD/CNY: "+data(iStartPos+5)+vbCrLf
s = s+ "EUR/GBP: "+data(iStartPos+4)+vbCrLf
s = s+ "EUR/CNY: "+data(iStartPos+0)+vbCrLf
s = s+ "GBP/CNY: "+data(iStartPos+2) +vbCrLf+vbCrLf
s= s+ "In the next step, the data will be saved (appended) to a CSV file."
msgbox s
Dim sOut, fso, objFile
Const ForAppending = 8
sOut = "./exchangerates.txt"
Set fso = CreateObject("Scripting.fileSystemObject")
Set objFile = fso.OpenTextFile( sOut, ForAppending, True )
'Same "Today's exchange rates" to a file in CSV format
s = FormatDateTime(Now) + ","+ data(iStartPos+0) + "," + data(iStartPos+1) + "," + data(iStartPos+2) + "," + data(iStartPos+3) + "," + data(iStartPos+4) + "," + data(iStartPos+5)
Set fso = Nothing
msgbox ("Data saved. Press OK to close the SeeShell Browser.")
i = myBrowser.close()