128.111.101.185: Created page with '

 function cleanup() %created by Erik Stassinos 4/27/2010 %revised 5/18/2010 %should be run in processing folder %This function goes into the current processing folder and %r…'

2010-08-03T00:05:12Z

Created page with '<pre> function cleanup() %created by Erik Stassinos 4/27/2010 %revised 5/18/2010 %should be run in processing folder %This function goes into the current processing folder and %r…'

New page

<pre>
function cleanup()
%created by Erik Stassinos 4/27/2010
%revised 5/18/2010
%should be run in processing folder
%This function goes into the current processing folder and
%removes most of the files created along the way unless the user has specified
%a specific file to be kept or to keep all. The original files and final files will
%automatically be kept

%cd('test_cleanup')
%cd(pb)

%sprintf('All previous files will be removed except original and final.
%If you would like to keep a fecific file to look at please enter it. Do not enter anything if you with to remove all intermediate processing files')
disp('All intermediate processing files will be removed except list and text files')
disp('If there is a file you would like to save, enter its full name with extension(.dat or .lcd) at prompt')
disp('If you would like to save all the files and delete later, enter "all" at prompt')
disp('If no files are to be saved, enter "0"')

tosave = input('What file would you like to save? ','s')
if strncmp(lower(tosave),'all',3) == 1
disp('keeping all files')
return
end

pattern1 = fullfile(pwd,'*.lcd');
pattern2 = fullfile(pwd,'*.1'); %used to be .lcd.1
pattern3 = fullfile(pwd,'*.2');
pattern4 = fullfile(pwd,'*.datmatrix');
pattern5 = fullfile(pwd,'*.zcal');
pattern6 = fullfile(pwd,'*.strip');
%pattern7 = fullfile(pwd,'*.ASC.1');
%pattern8 = fullfile(pwd,'*.ASC.2');
%pattern9 = fullfile(pwd,'*.dat');
pattern10 = fullfile(pwd,'*.datmat');

list1 = dir(pattern1);
% for a = 1:size(list1);
% rm1(a,:) = list1(a).name;
% end;

for i = 1:size(list1)%3:2:17;
filename = list1(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

list2 = dir(pattern2);

for i = 1:size(list2)%3:2:17;
filename = list2(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

list3 = dir(pattern3);

for i = 1:size(list3)%3:2:17;
filename = list3(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

list4 = dir(pattern4);

for i = 1:size(list4)%3:2:17;
filename = list4(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

list5 = dir(pattern5);

for i = 1:size(list5)%3:2:17;
filename = list5(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

list6 = dir(pattern6);

for i = 1:size(list6)%3:2:17;
filename = list6(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

% list7 = dir(pattern7);
%
%
% for i = 1:size(list7)%3:2:17;
% filename = list7(i).name;
% if strncmp(filename,tosave,length(tosave)) ==1
% continue
% end
% delete(filename);
% end
%
% list8 = dir(pattern8);
%
%
% for i = 1:size(list8)%3:2:17;
% filename = list8(i).name;
% if strncmp(filename,tosave,length(tosave)) ==1
% continue
% end
% delete(filename);
% end

% list9 = dir(pattern9);
%
%
% for i = 1:size(list9)%3:2:17;
% filename = list9(i).name;
% if strncmp(filename,tosave,length(tosave)) ==1
% continue
% end
% delete(filename);
% end

list10 = dir(pattern10);

for i = 1:size(list10)%3:2:17;
filename = list10(i).name;
if strncmp(filename,tosave,length(tosave)) ==1
continue
end
delete(filename);
end

fclose all;
disp('Cleanup done')

</pre>

<big>[[cleanup]]<big>

Cleanup.m - Revision history

128.111.101.185: Created page with '
function cleanup() %created by Erik Stassinos 4/27/2010 %revised 5/18/2010 %should be run in processing folder %This function goes into the current processing folder and %r…'