main1.m

%%%综合2 修正文件名称并验证
clear;clc;
folder_name_all = uigetdir('');%选择文件夹

%%
filepathlist = dir(folder_name_all);
diary 'log1201.txt'
disp(' ');
time=clock;
t1=strcat(num2str(time(1)),'年',num2str(time(2)),'月',num2str(time(3)),'日',num2str(time(4)),'：',num2str(time(5)));
disp(['北京时间:',num2str(t1),'开始记录']);

for j=3:length(filepathlist)
    tic;
    a=filepathlist(j).name;
    subfilepathlist = dir(strcat(folder_name_all,'\',a));
    for i=3:length(subfilepathlist)
        b=subfilepathlist(i).name;
        F=strfind(subfilepathlist(i).name,' ');
    if isempty(F)
        %continue; %continue会直接进入下一个循环，不会执行下面的语句
    else
        d=strrep(subfilepathlist(i).name,' ','');
        linshi1=strcat(folder_name_all,'\',a,'\',b);
        linshi2=strcat(folder_name_all,'\',a,'\',d);
        movefile(linshi1,linshi2);
        b=d;
    end
        subsublist=dir(strcat(folder_name_all,'\',a,'\',b));
        d=subsublist(3).name;
        img_path_list = dir(strcat(folder_name_all,'\',a,'\',b,'\',d,'\','*.dcm'));
        c=numel(img_path_list);
        
        
    
        oldname=strcat(folder_name_all,'\',a,'\',b);
        newname1='Dicom';
        newname2='Information';
        if c>=50
            cmd=['rename ',oldname,' ', newname1];
            status = system(cmd);
        else
            cmd=['rename ',oldname,' ', newname2];
            status = system(cmd);
        end
        if status~=0
        disp([num2str(a),'修改不成功!']);
    end
    end
end
disp(['修改文件名完成！用时：',num2str(etime(clock,time)),'秒']);

%%
filepathlist2 = dir(folder_name_all);
for j=3:length(filepathlist2)
    a=filepathlist2(j).name;
    subfilepathlist = dir(strcat(folder_name_all,'\',a));
    b=subfilepathlist(3).name;
    if strcmpi('Dicom',num2str(b))
        continue;
    else
        disp([num2str(a),'没有修改成功']);   
    end
end
disp('验证完成');
diary off