RosettaCodeData/Task/Web-scraping/MATLAB/web-scraping.m

9 lines
209 B
Mathematica
Raw Permalink Normal View History

2013-10-27 22:24:23 +00:00
s = urlread('http://tycho.usno.navy.mil/cgi-bin/timer.pl');
ix = [findstr(s,'<BR>'), length(s)+1];
for k = 2:length(ix)
tok = s(ix(k-1)+4:ix(k)-1);
if findstr(tok,'UTC')
2018-06-22 20:57:24 +00:00
disp(tok);
2013-10-27 22:24:23 +00:00
end;
end;