0001 function WBCcollect(remote) 0002 0003 if (remote==0) 0004 iPath = 'C:\Research\DataSets\LILLYwbcrollingapc\'; 0005 else 0006 iPath = '/v1/rich/DataSets/LILLYwbcrollingapc/'; 0007 end 0008 cd(iPath); 0009 dataFolders = dir(iPath); 0010 fid = fopen('DataReport.txt','w'); 0011 0012 for fo = 3: length(dataFolders) 0013 if (dataFolders(fo).isdir ==1) 0014 dataFolder = dataFolders(fo).name; 0015 0016 try 0017 report = csvread(strcat(dataFolder,'/',dataFolder,'.csv')); 0018 if (length(report)<4) 0019 report = [report 0 0]; 0020 end 0021 fprintf(fid,'%s %4.0f %4.0f %7.2f %7.2f\n',... 0022 dataFolder,report(1),report(2),report(3),report(4)); 0023 catch 0024 disp(['Report file in ', dataFolder ,' is not available']); 0025 end 0026 end 0027 end 0028 0029 fclose(fid); 0030 0031 0032 end