TdcsFrameBetween/Neural data/Scripts/FindGameTdcsFrameChoiceFiles.m

function DL=FindGameTdcsFiles(ParentDir,SubVec,SessVec,RunVec,InMaskChar,ExMaskChar,BatchPath)
%	FindFiles

%   EMEGS - Electro Magneto Encephalography Software
%   ? Copyright 2005 Markus Junghoefer & Peter Peyk
%   Implemented programs from: Andrea de Cesarei, Thomas Gruber,
%   Olaf Hauk, Andreas Keil, Olaf Steinstraeter, Nathan Weisz
%   and Andreas Wollbrink.
%
%   This program is free software; you can redistribute it and/or
%   modify it under the terms of the GNU General Public License
%   as published by the Free Software Foundation; either version 3
%   of the License, or (at your option) any later version.
%
%   This program is distributed in the hope that it will be useful,
%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%   GNU General Public License for more details.
%   You should have received a copy of the GNU General Public License
%   along with this program; if not, write to the Free Software
%   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
if nargin<8; MegEegStatusVec=[]; end
if nargin<7; BatchPath=[]; end
if nargin<6; ExMaskChar=[]; end
if nargin<5; InMaskChar=[]; end
if nargin<4; RunVec=[]; end
if nargin<3; SessVec=[]; end
if nargin<2; SubVec=[]; end
if nargin<1; ParentDir=[]; end

%100 Ano
%200 Cat

% Trigger Codes:
% 
% Choice: 
% 10 = kein Risiko eingegangen, Gain Trial (noRiskGT)
% 11 = Risiko eingegangen, Gain Trial (riskGT)
% 12 kein Risiko eingegangen, Loss Trial (noRiskLT)
% 13 = Risiko eingegangen, Loss Trial (riskLT)
% 
% 
% 
% 
% Safety: 25 = für sichere 10cent entschieden (safe10G)
% 26 = für sichere 15cent Verlust entschieden (safe15L)
% 35= für sichere 20cent entschieden (safe20G)
% 36= für sichere 30cent Verlust entschieden (safe30L)
% 45= für sichere 30cent entschieden (safe30G)
% 46= für sichere 45cent Verlust entschieden (safe45L)
% 55 = für sichere 40cent entschieden (safe40G)
% 56 = für sichere 60cent Verlust entschieden (safe60L)
% 
% 
% 
% 
% Wenn man die Risiko Option gewählt hat!
% RiskFeedback: 
% 21 = 25cent verloren (f25L)
% 22 = 25cent gewonnen (f25G)
% 31 = 50cent verloren (f50L)
% 32 = 50cent gewonnen (f50G)
% 41 = 75cent verloren (f75L)
% 42 = 75cent gewonnen (f75G)
% 51 = 100cent verloren (f100L)
% 52 = 100cent gewonnen (f100G)


if isempty(ExMaskChar); ExMaskChar=char(''); end
if isempty(InMaskChar); InMaskChar=char(''); end
if isempty(RunVec);  RunVec=[0]; end   %1 2
if isempty(SessVec); SessVec=[1]; end  %1 2
if isempty(SubVec);  SubVec=[42 65 66]; end  % 1 2 9 10 17 18 25 26 51 53 54 59 61 62 63 67 69 70 71 75 76 77 78 80

if isempty(ParentDir); ParentDir='Z:\kroker\GameTdcsFrameBetween\MEG\GameTdcsFrameBetweenChoiceAna'; end
if isempty(BatchPath); BatchPath='Z:\kroker\GameTdcsFrameBetween\MEG\GameTdcsFrameBetweenChoiceAna\00Batches'; end


%ExMaskChar=char('*.mrk','*.bak','*.dsc','*.log','*.segments','BadChannels');


%InMaskChar=char('*AEM');
InMaskChar=char('*110','*111','*112','*113','*210','*211','*212','*213');
%InMaskChar=char('*.at110&111&112&113.100.MN5.m4','*.at210&211&212&213.100.MN5.m4'); %Corr Expected Value
%InMaskChar=char('*app110','*app111','*app112','*app113','*app210','*app211','*app212','*app213');
%InMaskChar=char('*at00*');
%InMaskChar=char('*i110','*i111','*i112','*i113'); %,'*i210','*i211','*i212','*i213');
%InMaskChar=char('*.pmg');
%InMaskChar=char('*.cot');
%InMaskChar=char('*ses.ctf.*');

%BatchFileChar=['at-post-gainloss-anocat']
%BatchFileChar=['AEM']
BatchFileChar=['Calc-MN5']
%BatchFileChar=['App2at']
%BatchFileChar=['Calc-MN5-ML']
%BatchFileChar=['i-Files']
%BatchFileChar=['Stats']
%BatchFileChar=['pmg']
%BatchFileChar=['cot']
%BatchFileChar=['ses.ctf']
%BatchFileChar=['at111-112-121-122-211-212-221-222.100.MN5.rep']

StudyStr='GTB';

DL=[];
RenameStatus=0

for SessIndTmp=1:length(SessVec)
    SessInd=SessVec(SessIndTmp);
    SessIndStr=int2str(SessInd);
     
    for InMaskInd=1:size(InMaskChar,1)
        InMask=deblank(InMaskChar(InMaskInd,:))
                
        for SubIndTmp=1:length(SubVec)
            SubInd=SubVec(SubIndTmp);
            SubIndStr=int2str(SubInd);
            if SubInd<10; 
                SubIndStr=['C0',SubIndStr]; 
            else
                 SubIndStr=['C',SubIndStr];
            end
            
            for RunIndTmp=1:length(RunVec)
                RunInd=RunVec(RunIndTmp);
                RunIndStr=int2str(RunInd);
                if RunInd>0
                    Path=[ParentDir,filesep,StudyStr,'-',SubIndStr,filesep,StudyStr,'-',SubIndStr,'-',SessIndStr,filesep,StudyStr,'-',SubIndStr,'-',RunIndStr,'.ds',filesep]
                else
                    Path=[ParentDir,filesep,StudyStr,'-',SubIndStr,filesep,StudyStr,'-',SubIndStr,'-',SessIndStr,filesep]
                end
                
                PathMask=[Path,InMask]
                D=dir(PathMask)
                
                for k=length(D):-1:1
                    FilePath=[Path,D(k).name];
                    TakeFile=1;
                    ExMaskInd=1;
                    while TakeFile & ExMaskInd<=size(ExMaskChar,1)
                        ExMask=deblank(ExMaskChar(ExMaskInd,:));
                        if ~isempty(findstr(FilePath,ExMask))
                            TakeFile=0;
                        end
                        ExMaskInd=ExMaskInd+1;
                    end
                    if TakeFile
                        if RenameStatus
                            RenFilePath=[Path,StudyStr,'-',D(k).name];
                            copyfile(FilePath,RenFilePath,'writable');
                            delete(FilePath);
                            FilePath=RenFilePath;
                            RenFilePath=[];
                        end
                        if isempty(DL)
                            DL=char(FilePath);
                        else
                            DL=char(DL,FilePath);
                        end
                    end
                end
            end
        end
    end
end
if RenameStatus; return; end
if isempty(DL);
    fprintf(1,['Sorry, no files with mask "',InMaskChar,'" found ...']); return;
end
if ~isempty(BatchPath)
    DefBatchFilePath=[BatchPath,filesep,'Batch.',BatchFileChar,'.rep']
    SaveFileMat(DL,[],DefBatchFilePath);
end
return;