机器学习快速截图工具matlab版本——文件夹批量处理（原创）

%% use mouse to rect picture,and auto change to next picture
%  《机器学习快速截图》 by 亦行之 20190124 15:26:30
clear;clc;clear all;
file_path = uigetdir(‘*.*‘,‘Please Select Folder‘);
img_path_list = dir(strcat(file_path,‘\‘,‘*.jpg‘));
mkdir(strcat(file_path,‘\Crop‘));
img_num = length(img_path_list);
I=cell(1,img_num);
if img_num > 0 
    for j = 1:img_num 
       image_name = img_path_list(j).name;
       image = imread(strcat(file_path,‘\‘,image_name)); 
       I{j}=image; 
       %检查当前图片大小
       width=size(I{j},2);
       length=size(I{j},1);
       %显示图像，
       imshow(image);
       % 实现鼠标框选并记录选框的坐标
       pos = getPosition(imrect);        
       %设定截图大小为227*227pixel，所以只需选择左上作为截图起点，间距226
       x_crop = 226;
       y_crop = 226;
       %计算截图的起始和终点位置
       col=round(pos(1)) : round(pos(1) + x_crop); 
       row=round(pos(2)) : round(pos(2) + y_crop);   
       %检出是否越界
       if (pos(1)+x_crop) > width
           col = round(width-x_crop) : round(width); 
       end
       if (pos(2)+y_crop) > length
           row = round(length-y_crop) : round(length); 
       end
       %生成裁剪后的图片并显示（延时0.3s）
       subwin=image(row,col,:);
       figure;
       imshow(subwin);
       pause(0.3);
       %保存图片到对应的文件夹下，并关闭当前文件的图片
       imwrite(subwin,strcat(file_path,‘\Crop\‘,image_name));
       close all;    
       %当图片都检测完毕，提示截图结束。
       if j == img_num
          h = msgbox(‘All picture have been cropped!‘)
       end
    end
end