clc
clear all

filePath = uigetdir; % 选择要处理的子文件夹所在的文件夹 或者直接指定
files = dir(filePath);
oldName = cell(length(files)-2,1);%含有所有子文件夹名字的元胞数组 前两个无效

for i = 3:length(files)
    oldName{i-2} = files(i).name;%把文件夹名字提取出来重新排列
end

newName = cell(length(oldName), 1);%建立新的名字数组
for j = 1:length(oldName)
   a = oldName{j}; %获取之前的名字
   b = num2date(a); % 对之前的名字按照规律进行处理 这里是使用num2date函数将日期序列值转为yymmdd形式
   %b = num2str(b, \'%08d\'); % 如果是1、2...340 这样的编号 使文件名等长 
   newName{j} = b; % 
   movefile([filePath \'\\' oldName{j}], [filePath \'\\' newName{j}]) % 更改成功
end

function [ date ] = num2date( code )
% num2date 
% 输入参数是字符格式的序列日期\'yyyyddd\'
% 输出值是字符格式的年月日日期\'yyyymmdd\'

judge=str2num(code(1:4)); %提取出前四位年份
seq=str2num(code(5:7)); %提取出后三位排列天数
A = datetime(judge,01,01); %一年中第一天
B = datetime(judge,12,31); %一年中最后一天
C = linspace(A,B,337+eomday(judge,2)); %创建一年时间序列，eomday得到每年二月份的天数
date=num2str(yyyymmdd(C(seq))); %匹配序列天数对应的年月日，并转换格式为char类型


% if rem(judge ,4) == 0 && rem(judge ,100) ~= 0  %闰年
%       fprintf(\'%g year is leap year\n\',judge)
% elseif rem(judge,400)==0
%       fprintf(\'%g year is leap year\n\',judge) %闰年
% else
%    fprintf(\'%g year is ordinary year\n\',judge) %平年
% end

end

filePath=\'E:\1SMAPDATA\01COM\01Spr\';%文件夹路径
fileFolder=fullfile(filePath);%
dirOutput=dir(fullfile(fileFolder,\'*.tif\')); %tif文件
fileNames={dirOutput.name}\'; 
for i = 1:length(fileNames)
   a = strsplit(fileNames{i},\'_\'); %获取之前的名字
   movefile([filePath,\'\\',fileNames{i}], [filePath,\'\\',a{5},\'.tif\']);
end