Web scraping: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 1,207: | Line 1,207: | ||
</lang> |
</lang> |
||
The task description states "just the UTC time" but of course we could return the whole line including the zone name and date if required. |
The task description states "just the UTC time" but of course we could return the whole line including the zone name and date if required. |
||
=={{header|M2000 Interpreter}}== |
|||
<lang M2000 Interpreter> |
|||
Module Web_scraping { |
|||
Print "Web scraping" |
|||
function GetTime$(a$, what$="UTC") { |
|||
document a$ ' change string to document |
|||
find a$, what$ ' place data to stack |
|||
Read find_pos |
|||
if find_pos>0 then |
|||
read par_order, par_pos |
|||
b$=paragraph$(a$, par_order) |
|||
k=instr(b$,">") |
|||
if k>0 then if k<par_pos then b$=mid$(b$,k+1) :par_pos-=k |
|||
k=rinstr(b$,"<") |
|||
if k>0 then if k>par_pos then b$=Left(b$,k-1) |
|||
=b$ |
|||
end if |
|||
} |
|||
declare msxml2 "MSXML2.XMLHTTP.6.0" |
|||
rem print type$(msxml2)="IXMLHTTPRequest" |
|||
Url$ = "http://tycho.usno.navy.mil/cgi-bin/timer.pl" |
|||
try ok { |
|||
method msxml2, "Open", "GET", url$, false |
|||
method msxml2,"Send" |
|||
with msxml2,"responseText" as txt$ |
|||
Print GetTime$(txt$) |
|||
} |
|||
If error or not ok then Print Error$ |
|||
declare msxml2 nothing |
|||
} |
|||
Web_scraping |
|||
</lang> |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |
||