1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
| clc ; % clears the command window
clear all; % clears all variables
close all; % close all windows
workspace; % make sure the workspace panel is showing.
PathName = uigetdir;
d = dir(fullfile(PathName));
d = d([d.isdir] & ~ismember({d.name},{'.','..'}));
h = waitbar(0,'Please wait...');
steps = numel(d);
for F = 1:numel(d)
d2 = dir(fullfile(PathName, d(F).name, '*.*'));
number = numel(d2([d2.isdir]==0 & ~ismember({d2.name},{'.DS_Store'})));%nomre des fichers
d2 = d2(~ismember({d2.name},{'.','..','.DS_Store'}));%d2 contient les fichiers propres
fid=fopen(fullfile(PathName, d(F).name, d2(1).name),'r');
T1 = textscan(fid, '%s', 1, 'delimiter', '\n', 'headerlines', 1);
G1 = textscan(fid, '%s', 'delimiter', '\n');
fclose(fid);
for n = 2:number
%fid = fopen(fullfile(PathName,FileName{n}), 'r');
fid=fopen(fullfile(PathName, d(F).name, d2(n).name),'r');
T2(n-1) = textscan(fid, '%s', 1, 'delimiter', '\n', 'headerlines', 1);
G2(n-1) = textscan(fid, '%*d%s', 'delimiter', '\n');
fclose(fid);
end
T = strcat(T1{1}, T2{1}{1}(5:end));
G = strcat(G1{1}, {9}, G2{1});
for n = 2:number-1
T{1} = strcat(T{1}, T2{n}{1}(5:end));
G = strcat(G, {9}, G2{n});
end
fid = fopen(['test' num2str(F,'%03d') '.txt'], 'wt');
for i=1:number
fprintf(fid,'\t#%d', 1:10);
end;
fprintf(fid, '\n%s\n', T{1});
fprintf(fid, '%s\n', G{:});
fclose(fid);
repinfile(['test' num2str(F, '%03d') '.txt'],',','.');
% creat a new folder named New_DATA and then copy all files on this folder
mkdir('New_DATA_FINAL');
movefile(['new_test' num2str(F,'%03d') '.txt'],'New_DATA_FINAL');
% computations take place here
if(F==steps)
waitbar(F/steps, h, 'Process completed successfully')
%disp('THE GROUPING PROCESS IS COMPLETED SUCCESSFULLY...');
else
waitbar(F/steps, h, 'Please wait...')
%disp('THE GROUPING PROCESS IS NOT FULL COMPLETED...');
end
end
close(h); |
Partager