よみこみ

clear all;
homedir=pwd;
imgdir = uigetdir;%フォルダをひらく
allflist = dir(imgdir);%全部のファイルリスト
csvlist = cell(size(allflist,1),1);
bmplist = cell(size(allflist,1),1);
for n=1:size(allflist,1)%ファイルリストをサーチ
 try
  if(strcmp(allflist(n).name(end-3:end),'.csv') || strcmp(allflist(n).name(end-3:end),'.CSV'))%csvファイルを個別に抽出
   for m=1:size(allflist,1)%
    try
     if(strcmp(allflist(n).name(1:end-4),allflist(m).name(1:end-4)) && strcmp(allflist(m).name(end-3:end),'.bmp'))
      csvlist(n,1)=allflist(n).name;disp(allflist(n).name(1:end-4));
     end
    catch
    end
   end
  end
 catch
 end
end