function site_read_zip
%
% place self in write directory
web='http://www.nemweb.com.au/REPORTS/CURRENT/HistDemand/';
str=urlread(web); % read page source
% cell array of file names with an extra < symbol
% this can be done better
fn=regexpi(str,'PUBLIC[A-Z_0-9]+.zip<','match');
for k=1:size(fn,2)
file=fn{k};
unzip([web file(1:end-1)]);
end
% to read csv file use dir to get fnames and csvread
end
