MATLAB实现《地球物理学报》文章自动下载

doc webread

url = 'http://www.geophy.cn/CN/volumn/home.shtml';    % 学报官网
PaperDir = 'D:\Paper\Geophy\';                        % 保存路径
if ~exist(PaperDir, 'dir')                            % 目录不存在则创建目录
    mkdir([PaperDir Djq]); 
end
url1 = 'http://www.geophy.cn/CN/';
S = webread(url);
s1 = regexp(S,'目次[');
Djq = S(s1 - 16 : s1 - 2);                            % 目前为第几期
T1 = 'title=复制索引 onClick="javascript:Copylist';
T2 = 'href="../article/downloadArticleFile';
s2 = regexp(S,T1);
s3 = regexp(S,T2);
NumPaper = length(s2);                                % 本期文章数量
disp(['=====《地球物理学报》' Djq '文章 自动下载...']);

%% 
% 完整代码邮件发送"DownLoadGeophy"自动获取，jlubob@foxmail.com
%%

disp(['====一共用时：' sprintf('%.1f', toc/60) ' 分钟！']);

>> url = 'http://www.geophy.cn/CN/volumn/home.shtml';    % 学报官网
>> PaperDir = 'D:\Paper\Geophy\';  
>> DownLoadGeophy(url, PaperDir)
=====《地球物理学报》2020年4月第63卷 第4期文章 自动下载...
==正在下载：2020年4月第63卷第4期目次.pdf
==正在下载：NOAA系列卫星高能粒子数据一致性统计分析.pdf
==正在下载：大尺度场向电流及其与单色极光电子的联系——Swarm卫星观测.pdf
==正在下载：利用半参数核估计法预报全球电离层总电子含量.pdf
==正在下载：曲靖非相干散射雷达电离层F区日间电子温度变化特征初步分析.pdf
==正在下载：场向电流极性和密度异常事件统计研究.pdf
...
==正在下载：含裂隙介质中的视电阻率各向异性变化.pdf
==正在下载：饱和岩石的动态渗透率和动电耦合系数解析式.pdf
==正在下载：逆时偏移在声反射成像测井中的应用方法研究.pdf
==正在下载：大斜度井·水平井随钻方位电磁波测井资料实时反演方法.pdf
====一共用时：11.6 分钟！
>>