MATLAB【十四】————遍历三层文件夹操作

文件夹遍历

clear;
clc;
close all;%% crop the im into 256*256
num = 0;    %% num=1 内缩3个像素  num =2  内缩6个像素  load('qualitydata1.mat')
load('qualitydata2.mat')[data1_m,data1_n] = size(qualitydata1);
[data2_m,data2_n] = size(qualitydata2);%% read image_name in filepath% file_path =  'D:\matlab\motive_vs_exe\data\cg\30\15\';% 图像文件夹路径  
% img_path_list_bmp = dir(strcat(file_path,'*.png'));%获取该文件夹中所有bmp格式的图像  
% img_num = length(img_path_list_bmp);%获取图像总数量 
% I=cell(1,img_num);
% if img_num > 0 %有满足条件的图像  
%         for j = 1:img_num %逐一读取图像  
%             image_name = img_path_list_bmp(j).name;% 图像名  
%             image =  imread(strcat(file_path,image_name));  
%             I{j}=image;
%            fprintf('%d %d %s\n',i,j,strcat(file_path,image_name));% 显示正在处理的图像名  
%             %图像处理过程 省略  
%             %这里直接可以访问细胞元数据的方式访问数据
%         end  
% end  
%% readme  suitable for three layers of the file like  cg/30/1  cg/30/2 ... cg/30/10   .....cg/100/1 ...cg/100/10
%% 
oriDataPath = 'D:\matlab\motive_vs_exe\data\';  
saveDirPath = 'D:\matlab\motive_vs_exe\we_chat_data\';
imgDataDirList  = dir(oriDataPath);             % 遍历所有文件
layer_1_list = imgDataDirList(3:end);
% 
for i = 1:length(layer_1_list)layer_1_list_folder =layer_1_list(i,:).folder; layer_1_list_name =layer_1_list(i,:).name; layer_2_list = dir( fullfile(layer_1_list_folder,layer_1_list_name));layer_2_list = layer_2_list(3:end); for i2 = 1:length(layer_2_list)layer_2_list_folder=layer_2_list(i2,:).folder; layer_2_list_name =layer_2_list(i2,:).name; layer_3_list = dir( fullfile(layer_2_list_folder,layer_2_list_name));layer_3_list = layer_3_list(3:end); for i3 = 1:length(layer_3_list)layer_3_list_folder=layer_3_list(i3,:).folder; layer_3_list_name =layer_3_list(i3,:).name; layer_4_list = dir( fullfile(layer_3_list_folder,layer_3_list_name));layer_4_list = layer_4_list(3:end); %              for i4 = 1:1
%                      layer_4_list_folder=layer_4_list(i4,:).folder; layer_4_list_folder=layer_4_list.folder;layer_4_list_name =layer_4_list(2,:).name; 
%                      layer_5_list =  fullfile(layer_3_list_folder,layer_3_list_name);for j = 1:data1_mkey = qualitydata1(j,:).key;key_fore = split(key,'.');str_key = key_fore(1);   %%%% get excel strstr_key = replace(str_key,'/','\');%%%%%%%%%%%%%%%%%judge whether the%%%%%%%%%%%%%%%%%same depth and then deal with it  str_aim = replace(layer_4_list_folder,oriDataPath,'');                                     if(isequal(str_aim,str_key))rect_x = qualitydata1(j,:).rect_x;rect_y = qualitydata1(j,:).rect_y;rect_width = qualitydata1(j,:).rect_width;rect_height = qualitydata1(j,:).rect_height;point_0_x = qualitydata1(j,:).point_0_x;point_0_y = qualitydata1(j,:).point_0_y;point_1_x = qualitydata1(j,:).point_1_x;point_1_y = qualitydata1(j,:).point_1_y;point_2_x = qualitydata1(j,:).point_2_x;point_2_y = qualitydata1(j,:).point_2_y;point_3_x = qualitydata1(j,:).point_3_x;point_3_y = qualitydata1(j,:).point_3_y;point_4_x = qualitydata1(j,:).point_4_x;point_4_y = qualitydata1(j,:).point_4_y;%% change roi rect_x = rect_x + 3*num ;rect_y = rect_y + 3*num ;rect_width = rect_width -  2*3*num;rect_height = rect_height - 2*3*num;%% roi = [rect_x,rect_y,rect_width,rect_height];path_depth = fullfile(layer_4_list_folder,'depth.png');depth_image = imread(path_depth);path_ir = fullfile(layer_4_list_folder,'auto_rectified_ir.png');ir_image = imread(path_ir);path_rgb = fullfile(layer_4_list_folder,'rgb.jpg');rgb_image = imread(path_rgb);%                                          figure, imshow(depth_image*255, 'border', 'tight')                                            %                                          Point  = roi;%                                          hold on;%                                          rectangle('Position', roi, 'LineWidth', 2, 'EdgeColor', 'r')  %%%                                          rectangle('Position', Point, 'LineWidth', 2, 'EdgeColor', 'r')[image_h,image_w] = size(depth_image); for jj = 1:1:image_hfor ii = 1:1:image_wif ((jj>rect_y)&&(jj<rect_y + rect_height))if ((ii>rect_x)&&(ii<rect_x + rect_width))continue;elsedepth_image(jj,ii) = 0;endelsedepth_image(jj,ii) = 0;end   endend%%    imwshow(roi_depth,)
%                                              figure, imshow(depth_image*255, 'border', 'tight')          %%depth  show    figure, imshow(rgb_image, 'border', 'tight')                  %%rgb show    Point  = roi;hold on;rectangle('Position', roi, 'LineWidth', 2, 'EdgeColor', 'r')  %%rectangle('Position', Point, 'LineWidth', 2, 'EdgeColor', 'r')text(point_0_x,point_0_y,'o','color','g');                  %%key point show on rgbtext(point_1_x,point_1_y,'o','color','g');text(point_2_x,point_2_y,'o','color','g');text(point_3_x,point_3_y,'o','color','g');text(point_4_x,point_4_y,'o','color','g');%%   save depth roinew_str_aim = split(str_aim,'\');savePathDepth = fullfile(saveDirPath,char(new_str_aim(1)),char(new_str_aim(2)),'depth\');mkdirDepthDir = mkdir(savePathDepth); imwrite(depth_image,[savePathDepth,char(new_str_aim(3)),'.png']);%%%remove rgb and ir pic and change its name%% saveas(figure(num2str((char(new_str_aim(3))))), [savePathDepth,char(new_str_aim(3)),'.png'])savePathIr = fullfile(saveDirPath,char(new_str_aim(1)),char(new_str_aim(2)),'ir\');mkdirIrDir = mkdir(savePathIr); imwrite(ir_image,[savePathIr,char(new_str_aim(3)),'.png']);savePathRgb = fullfile(saveDirPath,char(new_str_aim(1)),char(new_str_aim(2)),'rgb\');mkdirRgbDir = mkdir(savePathRgb);imwrite(rgb_image,[savePathRgb,char(new_str_aim(3)),'.jpg']);%% saveas(figure(), [savePathRgbKeyPoint,char(new_str_aim(3)),'.jpg']);savePathRgbKeyPoint = fullfile(saveDirPath,'rgbKeyPointDir',char(new_str_aim(2)));mkdirRgbKeyPointDir = mkdir(savePathRgbKeyPoint);frame = getframe(gcf);result = frame2im(frame);imwrite(result,[savePathRgbKeyPoint,char(new_str_aim(3)),'.jpg']);endend%              end              endend
end   1