clear;
fprintf('Enter number of files to read in \n')

fnumber = input('?? ');

%reads in the files
for n =1:fnumber
    v = genvarname('file',who);
    t = genvarname('ftext',who);
    
    [filename,pathname] = uigetfile('*.xls','Select Spreadsheet');
    [tmp1, tmp2] = xlsread([pathname,filename]);
    eval([v '=tmp1;']);
    eval([t '=tmp2;']);
    %eval([[v,t] '= xlsread([pathname,filename]);']);
    data = eval(v);
    endpt = max(size(data));
    data = data(11:endpt,:);
    time = data(:,3);
    smp_tmp = data(:,4);
    shear_rate = data(:,5);
    shear_stress = data(:,6);
    viscosity = data(:,9);
    ph = data(:,8);
    temp = [time smp_tmp shear_rate shear_stress viscosity ph];
    eval([v '=temp;']);
    
    tex_dat = eval(t);
    tex_dat = tex_dat(1:16,1:4);
    eval([t '=tex_dat;']);
    
    
end

all_data = [file;file1;file2;file3;file4;file5;file6;file7;file8;file9;file10;file11;file12];

fprintf('Filename to store data to\n')
fname = input('??  ','s');

heading_data = {'Time', 'Sample Temp', 'Shear Rate', 'Shear Stress', 'Viscosity', 'pH' ;'(s)', '(deg C)', '(1/s)','(dyn/cm^2 or Pa*s)','cP', ' '};



xlswrite(fname, heading_data, 'all_data');
xlswrite(fname, all_data, 'all_data','A4');

xlswrite(fname, ftext, 'Shear 1');
xlswrite(fname, heading_data, 'Shear 1','A18');
xlswrite(fname, file, 'Shear 1', 'A21');

xlswrite(fname, ftext1, 'Shear 2');
xlswrite(fname, heading_data, 'Shear 2','A18');
xlswrite(fname, file1, 'Shear 2', 'A21');

xlswrite(fname, ftext2, 'Shear 3');
xlswrite(fname, heading_data, 'Shear 3','A18');
xlswrite(fname, file2, 'Shear 3', 'A21');

xlswrite(fname, ftext3, 'Shear 4');
xlswrite(fname, heading_data ,'Shear 4','A18');
xlswrite(fname, file3, 'Shear 4', 'A21');

xlswrite(fname, ftext4, 'Shear 5');
xlswrite(fname, heading_data, 'Shear 5','A18');
xlswrite(fname, file4, 'Shear 5', 'A21');

xlswrite(fname, ftext5, 'Shear 6');
xlswrite(fname, heading_data, 'Shear 6','A18');
xlswrite(fname, file5, 'Shear 6', 'A21');

xlswrite(fname, ftext6, 'Shear 7');
xlswrite(fname, heading_data, 'Shear 7','A18');
xlswrite(fname, file6, 'Shear 7', 'A21');

xlswrite(fname, ftext7, 'Shear 8');
xlswrite(fname, heading_data, 'Shear 8','A18');
xlswrite(fname, file7, 'Shear 8', 'A21');

xlswrite(fname, ftext8, 'Shear 9');
xlswrite(fname, heading_data, 'Shear 9','A18');
xlswrite(fname, file8, 'Shear 9', 'A21');

xlswrite(fname, ftext9, 'Shear 10');
xlswrite(fname, heading_data, 'Shear 10','A18');
xlswrite(fname, file9, 'Shear 10', 'A21');

xlswrite(fname, ftext10, 'Shear 11');
xlswrite(fname, heading_data, 'Shear 11','A18');
xlswrite(fname, file10, 'Shear 11', 'A21');

xlswrite(fname, ftext11, 'Shear 12');
xlswrite(fname, heading_data, 'Shear 12','A18');
xlswrite(fname, file11, 'Shear 12', 'A21');

xlswrite(fname, ftext12, 'Shear 13');
xlswrite(fname, heading_data, 'Shear 13','A18');
xlswrite(fname, file12, 'Shear 13', 'A21');

clear;