hartman-server/workflow/templates/qhtcp/Exp2/ExpFrontend.m

%Frontend240417.m
%augmented ExpFrontend to provide a quick text archive and a robust
%database ammenable archive
%FrontEnd utility to copy source result sheet into Exp_ folders of
%StudiesQHTCP/StudyName/Exp1(2,3,4). This allow the automation of path
%capture to the StudiesDataArchieve.txt study log.
%Select, copy and Capture Study Exp_ details to study log

%Exp meta data collection 
W=pwd;
%Load results file meta data  into workspace
try 
ExpLabel= strcat('Exp',W(end))
questdlg('\fontsize{20} Select the !!Results File','File Selection','OK', struct('Default','OK','Interpreter','tex'));
[resFile,resPath]= uigetfile('*.txt')
copyfile((fullfile(resPath,resFile)),fullfile(W))
resDate= char(regexp(resFile, '(\d\d\_\d\d\d\d)|( \d\d\_\d\d\d\d|\d\d\d\d\d\d)','match'))
cd ..
Wstudy= pwd
studyDate= datetime('now');
S.sDate(1) = {studyDate};
if ispc
    lastSep=max(strfind(Wstudy,'\'))
    studyName= Wstudy((lastSep+1):end)
else
    lastSep=max(strfind(Wstudy,'/'))
    studyName= Wstudy((lastSep+1):end)
end

S.sDate(1)= {studyDate};
S.sName(1)= {studyName}
S.sPath(1)= {Wstudy}
S.ELabel(1)= {ExpLabel}
S.EresDate(1)= {resDate}
S.EresFile(1)= {resFile}
S.EresPath(1)= {resPath}
   
cd ..

fid = fopen('StudiesDataArchive.txt','a');  
fprintf(fid,'StudyDate\tStudyName\tStudyPath\tExpNum\tExpDate\tExpPath\tResultFile\n');
fprintf(fid, '%s\t %s\t %s\t %s\t %s\t %s\t %s \n',S.sDate{1},S.sName{1},S.sPath{1},S.ELabel{1},S.EresDate{1},S.EresPath{1},S.EresFile{1});
fclose(fid);
fclose('all');

catch
    cd(W)
    disp('Error: Unable to Execute ExpFrontend.m')
end

cd(W)
pwd



%*************************************************************************************
%*************************************************************************************
%#####################################################################################
%Improved storage ammenable for database use
%FrontEnd utility to copy source result sheet into Exp_ folders of
%StudiesQHTCP/StudyName/Exp1(2,3,4). This allow the automation of path
%capture to the StudiesDataArchieve.txt study log.
%Select, copy and Capture Study Exp_ details to study log
studyDateNow= studyDate  %preserve the 'Now' date 
nowNumFNm= strcat((int2str(now)),'.mat') % from previous section incase the /StudyName doesn't have a standard date 
%capture the /StudiesQHTCP directory for storing log data
cd ../..
logPath= pwd  %is /.../Exp_
cd(W)
%Try to load an existing data set from previous Frontend calls
try  %end ~ln121
  load(fullfile(logPath,'.studyLog.mat')) %load(fullfile('../../','studyLog.mat'))
catch  %If no studyLog.mat found [Initial First Entry]
    ExpLabel= strcat('Exp',W(end))
    resDate= char(regexp(resFile, '(\d\d\_\d\d\d\d)|( \d\d\_\d\d\d\d|\d\d\d\d\d\d)','match'))
    cd .. %move up to current study folder from ../Exp_ folder; 
    %Study meta data collection
    Wstudy= pwd %Capture the specific current Study directory
    try %try to extract study date from folder name
     studyDate= char(regexp(Wstudy, '(\d\d\_\d\d\d\d)|( \d\d\_\d\d\d\d|\d\d\d\d\d\d)| \d\d\d\d\d\d)','match'))
     S.sDate(1)= {studyDate};
    catch %if unsuccessful, accept the current date and convert to a 6 char string
     studyDate= yyyymmdd(studyDateNow);
     studyDate= (int2str(studyDate))
     studyDate= studyDate(3:8)
    end
   %Capture StudyName
   if ispc
    lastSep=max(strfind(Wstudy,'\'))
    studyName= Wstudy((lastSep+1):end)
   else
    lastSep=max(strfind(Wstudy,'/'))
    studyName= Wstudy((lastSep+1):end)
    
   end
  %Put current First data entry into Structure of Save to StudyLog.mat file
   S.sDate(1)= {studyDate};
   S.sName(1)= {studyName}
   S.sPath(1)= {Wstudy}
   S.ELabel(1)= {ExpLabel}
   S.EresDate(1)= {resDate}
   S.EresFile(1)= {resFile}
   S.EresPath(1)= {resPath}
   
 cd(W)

logFiletxt= fullfile(logPath,'StudiesDataArchive4DB.txt') %relative .txt path 
%Initialize the StudiesDataArchive.txt file with the First row of meta data

%Print to a .txt spreadsheet the first set of data in the logFiletxt file
fid = fopen(logFiletxt,'w');
fprintf(fid,'StudyDate\tStudyName\tStudyPath\tExpNum\tExpDate\tExpPath\tResultFile\n');
fprintf(fid, '%s\t %s\t %s\t %s\t %s\t %s\t %s \n',studyDate,studyName,Wstudy,ExpLabel,resDate,resPath,resFile);
fclose(fid);
%Save the first entry meta data into a permanent .mat files for future recall
save(fullfile(logPath,'studyLog4DB.mat'), 'S')
save(fullfile(logPath,'.studyLog.mat'), 'S')
save(fullfile(logPath,'.nowNumFNm.mat'), 'S')



end  %end for try  for the First entry only
%++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
%++++++++END of FIRST ENTRY startup section++++++++++++++++++++++++++++++++
%++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



%Begin routine for all Entries After the Initial data entry**************** 
ExpLabel= strcat('Exp',W(end))
resDate= char(regexp(resFile, '(\d\d\_\d\d\d\d)|( \d\d\_\d\d\d\d|\d\d\d\d\d\d)','match')) %Capture date from !!Results file

cd .. %Move to the current study folder

%Capture study meta dat
Wstudy= pwd % Capture the path to the current study

  %Attempt to extract study date from folder name and convert to a
  %searchable numeric date
   studyDate= char(regexp(Wstudy, '(\d\d\_\d\d\d\d)|( \d\d\_\d\d\d\d|\d\d\d\d\d\d)| \d\d\d\d\d\d)','match'))
      if ~isempty(studyDate)  %If no date in folder name use current date and convert to 6char string
       S.sDate(1)= {studyDate};
       if isequal((str2num(studyDate(3))),'_') %Remove '_' so that date is a number for easy DB search
           studyDate= strcat(studyDate(1:2),studyDate(4:6))
       end
      else
       studyDate= yyyymmdd(studyDateNow);
       studyDate= (int2str(studyDate)) 
       studyDate= studyDate(3:8) 
     end
    
if ispc
    lastSep=max(strfind(Wstudy,'\'))
    studyName= Wstudy((lastSep+1):end)
else
    lastSep=max(strfind(Wstudy,'/'))
    studyName= Wstudy((lastSep+1):end)
end

%Put meta data into a structure for storage (studyLog.mat) and future
%compare operations
lastRow= length(S.sPath)

%Compare these just obtained paths with those stored in the studyLog.mat
%file and add a new row if the study or results sheet meta data is new or different
cd ..  %Move the the /QHTPCstudies folder
logtxt= 'StudiesDataArchive4DB.txt'
logFiletxt= fullfile(logPath,logtxt) %
try
  matched=0;
 for n= 1:(lastRow)
    if strcmp(Wstudy,S.sPath(n)) && strcmp(resPath, S.EresPath(n)) && strcmp(ExpLabel, S.ELabel(n))
        matched= 1;
        break
    end
 end
      
    
%Update the StudiesDataArchive.txt file with a new row of meta data
if matched== 0 %if no match for this entry then add a line to the text archive file
     fid = fopen(logFiletxt,'w');  
      S.sDate(lastRow+1)= {studyDate};
      S.sName(lastRow+1)= {studyName};
      S.sPath(lastRow+1)= {Wstudy};
      S.ELabel(lastRow+1)= {ExpLabel};
      S.EresDate(lastRow+1)= {resDate};
      S.EresFile(lastRow+1)= {resFile};
      S.EresPath(lastRow+1)= {resPath};
  for n= 1:(lastRow +1)
   %Print to a .txt spreadsheet and Save update to .mat files
    if n==1
     fprintf(fid,'StudyDate\tStudyName\tStudyPath\tExpNum\tExpDate\tExpPath\tResultFile\n');
    end
    fprintf(fid, '%s\t %s\t %s\t %s\t %s\t %s\t %s \n',S.sDate{n},S.sName{n},S.sPath{n},S.ELabel{n},S.EresDate{n},S.EresPath{n},S.EresFile{n});
  end

  fclose(fid); %close DBase amenable study log file after data update
 
 save((fullfile(logPath,'studyLog4DB.mat')), 'S') % path for  studyLog.mat
 save((fullfile(logPath,'.studyLog.mat')), 'S')  %path backup studyLogBU.mat
 save((fullfile(logPath,strcat('.',nowNumFNm))), 'S') 
end 
fclose('all');

catch
    cd(W) %Return to the location of the frontend.m code (/studyName/Exp_)
    fclose('all');
    clear S %clear data structure variable 'S.'
end

cd(W) %Return to the location of the frontend.m code (/studyName/Exp_)
clear all %clear workspace variables