% fdir = fullfile('D:', 'prog', 'AAC','ASR Auswertung','test_long');
fdir = uigetdir
patt = [fdir '\' '*.dat'];
flist = dir (patt);

stattxt={'min';'max';'mean';'median';'stdev'};
fid = fopen('Mtest.txt', 'w');

for fn = 1:length(flist)
    fname=[fdir '\' flist(fn).name];
    fprintf('File %d: %s\n',fn,fname);
    fdata = importdata(fname, '\t', 13);

    s=size(fdata.data);
    
    i=1;
    j=1;
    while (j<=s(2))
        statdat(i) = min(fdata.data(:,j));
        statdat(i+1) = max(fdata.data(:,j));
        statdat(i+2) = mean(fdata.data(:,j));
        statdat(i+3) = median(fdata.data(:,j));
        statdat(i+4) = std(fdata.data(:,j));
        i=i+5;
        j=j+1;
    end

    if (fn == 1)
        for j = 1:length(fdata.colheaders)
            for i=1:length(stattxt)
                fprintf(fid,'%s_%s\t',char(fdata.colheaders(1,j)),char(stattxt(i,1))); 
            end
        end
        fprintf(fid,'\n');
    end
    
    for j = 1:length(statdat)
        fprintf(fid,'%f\t',statdat(j));
    end
    
    fprintf(fid,'\n');
end
fclose(fid);