dinfo = dir('Main Dir\*\*.txt');
filenames = fullfile({dinfo.folder}, {dinfo.name});
numfiles = length(filenames);
data = cell(numfiles, 4);
for K = 1 : numfiles
thisfile = filenames{K};
[~, basename, ~] = fileparts(thisfile);
fid = fopen(thisfile);
datacell = textscan(fid, 'param: %f\nSN number: %f\nSim method: %s',1);
fclose(fid);
data{K,1} = basename;
data{K,2} = datacell{1};
data{K,3} = datacell{2};
data{K,4} = datacell{3}{1};
end
datatable = cell2table(data, 'VariableNames', {'file', 'param', 'SN number', 'Sim method'});
writetable(datatable, 'OutputFilename.xslx');
