function tt_inetfile()
Thats normal: You type in a link, let your browser call it and see the result on your screen. What if you actually do not want to see the result and rather get the whole info of the page (=HTML-code) on disk as a file? This is the command to perform this task.
If the link does not return the requested information, your browser will tell you the error like 404 - page not available. tt_inetfile does the same in a m_mess form. the HTML-status-code tells you more about the reason of the problem.
When you have the file, you may start to search it for the requested information. The example below gets the $ - € conversion rate. Here is the link to check.
Parameters:
1. Parameter: URL2. Parameter: target file
| ***************************** | |
| * Tool&Task example program * | |
| * tt_inet_file() * | |
| * last compile: 16.03.2018 * | |
| ***************************** | |
tt_inetfile("http://www.finanzen.net/devisen/dollarkurs",gUserDataTT+"temp\inetfile.txt") | |
Set Decimals To 4 | |
tfile = gUserDataTT + "temp\inetfile.txt" | |
tstring = "<span>USD</span></td>" | |
retval = 0.00 | |
tt_hr = tt_open_file(tfile) | |
ldone = .f. | |
Do While Not ldone | |
String = Fread(tt_hr, 6400) | |
lwo = At(tstring, String) | |
If lwo > 0 | |
lpos = lwo - 1 | |
Do While Substr(String, lpos, 1) # ">" | |
lpos = lpos - 1 | |
Enddo | |
lpos = lpos + 1 | |
lstr = Substr(String, lpos, lwo - lpos) | |
If At(",", lstr) > 0 | |
Set Point To "," | |
Endif | |
retval = Val(lstr) | |
Set Point To "." | |
ldone = .T. | |
Else | |
If Not feof(tt_hr) | |
Fseek(tt_hr, -1 * Len(tstring), 1) | |
Else | |
ldone = .t. | |
Endif | |
Endif | |
Enddo | |
tt_close_file(tt_hr) | |
wait transform(retval) window timeout 5 | |