0001
0002
0003
0004
0005
0006
0007
0008
0009
0010 zPathName = uigetdir;
0011 Files = dir(zPathName);
0012 allFiles = {Files.name};
0013 filefind=strfind(allFiles,'ASC.TXT')';
0014 filesidx=nan(size(filefind,1),1);
0015 for i=1:size(filefind,1)
0016 filesidx(i,1)=size(filefind{i},1);
0017 end
0018 filesidx=find(filesidx>0);
0019 files=allFiles(filesidx);
0020
0021
0022 selection = listdlg('ListSize',[300 300],'ListString', files);
0023 zFileName = files(selection);
0024
0025
0026 if isa(zFileName,'cell')
0027 z=size(zFileName,2);
0028 zFileName=sort(zFileName);
0029 else
0030 z=1;
0031 zFileName={zFileName}
0032 end
0033
0034
0035
0036 j=0;
0037 st=['A'; 'B'; 'C'; 'D'; 'E'; 'F'];
0038
0039 for zi=1:z
0040
0041 if isa(zFileName,'cell')
0042 fileName=strcat(zPathName,'\',zFileName(zi));
0043 fileName=char(fileName);
0044 else
0045 fileName=strcat(zPathName,zFileName);
0046 end
0047
0048
0049 screenData=1;
0050
0051
0052
0053
0054
0055
0056
0057
0058 ignoreBS = 0;
0059 [A(zi)]=tfile(fileName,screenData,ignoreBS);
0060
0061 end
0062
0063
0064 idx=strfind(zFileName,'_');
0065 namecut=zFileName{1}(1:idx{1}(1)-1);
0066 numcut1=zFileName{1}(idx{1}(3)-2:idx{1}(3)-1);
0067 numcut2=zFileName{z}(idx{z}(3)-2:idx{z}(3)-1);
0068 savefile=strcat(namecut,'_',numcut1,'_',numcut2,'.mat');
0069 save(savefile, 'A','z')
0070
0071
0072
0073 clear Files allFiles fileName filefind files filesidx i j screenData selection...
0074 st zPathName zi idx namecut numcut1 numcut2