%使用matlab下载网站上的文件

%使用urlwrite函数下载网站上的文件

%特别适用于批量下载同类型的文件

% Created by longwen36 2011-4-16

%使用urlwrite实现批量下载

%以下载2011美赛数模证书为例

clc,clear; %http://e4ftl01.cr.usgs.gov/ASTT/AG1km.003/2000.01.01/AG1km.v003.59.125.0010.h5

% http://e4ftl01.cr.usgs.gov/ASTT/AG1km.003/2000.01.01/

% num = 11701:11710;

% URLs = cell(size(num));

% folder_filenames = cell(size(num));

% filenames = cell(size(num));

 %       textread('H:\2014new\AG1KMFN.txt','%s')

fn =...

    textread('L:\AG100\AG100FN1.txt','%s');%经纬度都为+

   % textread('L:\AG100\AG100FN2.txt','%s');%经度为-纬度为+

    %textread('L:\AG100\AG100FN3.txt','%s');%经度为+纬度为-

    %textread('L:\AG100\AG100FN4.txt','%s');%经纬度都为-

%ASTER GED1km

%    URL='http://e4ftl01.cr.usgs.gov/ASTT/AG1km.003/2000.01.01/';

%ASTER GED 100

URL='http://e4ftl01.cr.usgs.gov/ASTT/AG100.003/2000.01.01/';

%     URLs='http://e4ftl01.cr.usgs.gov/ASTT/AG1km.003/2000.01.01/AG1km.v003.-01.008.0010.h5.2.jpg';

    tic;

for idx = 1:size(fn,1); % idx=2

    fna=fn{idx,1};

    

    if strcmp(fna(length(fna)-2:end),'.h5')==1

        lon=str2num(fna(15:17));%经纬度都为+

        lat=str2num(fna(12:13));%经纬度都为+

       % lon=str2num(fna(15:18));%经度为-

       % lat=str2num(fna(12:13));%纬度为+

       % lon=str2num(fna(16:18));%经度为+

       % lat=str2num(fna(12:14));%纬度为-

       % lon=str2num(fna(16:19));%经纬度都为-

       % lat=str2num(fna(12:14));%经纬度都为-

        if lon>=70&&lon<=140&&lat>=0&&lat<=54 

     %if lon>=70&&lon<=140&&lat>=-20&&lat<0;%经度为+纬度为-

    URLs=[URL fna];

    fprintf(1,'正在下载%s...\n',fna);

    [f, status] = urlwrite(URLs,fna);

    if status == 1;

        fprintf(1,'%s成功下载！\n',fna);

    else

        fprintf(1,'%s下载失败！\n',fna);

    end

        end

    end

end

etime = toc;

fprintf('总下载文件数：%d，总耗时：%fs\n',idx,etime);