提取探空站pwv并存储

% ①数据提取pwv并存储
clear;
clc;
year=2018;
month=10;
b=[];PWV=[];pwv=[];
month_day=7;
for day=1:month_dayfor time=[00,12];%以下将年月日一天的次数数字转为字符串years=num2str(year);months=num2str(month);days=num2str(day);times=num2str(time);if times=='0'%如果是字符串‘0’，则变为字符串‘00’times='00';endname=['seasia_54161_sounding_',years,'_',months,'_',days,'_',times,'.txt']; % 字符串拼接得到文件名称b=textread(name,'%s');%提取所有字符串并放到b数组内a = isempty(b);%判断数组b是否为空if a==1%判断数组b是否为空，若数组b为空则跳出本次循环进入下次循环continue;elseendn=length(b);%计算数组b的长度pwv=str2num(b{n});%将数组最后一个字符串转成数值型PWV=[PWV;pwv];%把所有的pwv拼到一个PWV数组内end
end
xlswrite('PWV.xlsx',PWV)