Loop through sub folders.

Good day all,

I have 25 subfolder each contains some text files. I developed a loop that runs through the text files in a sub folder, extract some vaules from each text file and perform some calculations. Is there any way i can modify my code to run through all the the sub folders at the same time? I want the loop to execute my script (see the script below) for each sub folder and save the results ('Displacement') before proceeding to the next subfolder. So i am expeting to have Displacement1, Displacement2, ..Displacement25 as the final outcome.

x = []; y = []; z = [];

files = dir('*.xvi');

for k = 1:length(files);

fid = fopen(files(k).name,'r');

while ~feof(fid)

st = fgetl(fid);

if ~isempty(strfind(st,'CouchShiftLat'))

stread = textscan(st,'%s %f','Delimiter',';=');

x = [x; stread{2}(1)];

elseif ~isempty(strfind(st,'CouchShiftLong'))

stread = textscan(st,'%s %f','Delimiter',';=');

y = [y; stread{2}(1)];

elseif ~isempty(strfind(st,'CouchShiftHeight'))

stread = textscan(st,'%s %f','Delimiter',';=');

z = [z; stread{2}(1)];

end

end

fclose(fid);

end

Displacement=[x,y,z];

Answer 1

[Mohammad Sami]

mainfolder = uigetdir;
subfolders = dir(mainfolder);
subfolders = subfolders([subfolders.isdir] & ~startsWith({subfolders.name},'.'));
for i = 1:length(subfolders)
    x = []; y = []; z = []; 
    files = dir(fullfile(mainfolder,subfolders(i).name,'*.xvi'));
    for k = 1:length(files);
        fid = fopen(files(k).name,'r');
              while ~feof(fid)
              st = fgetl(fid);           
               if  ~isempty(strfind(st,'CouchShiftLat'))
                 stread = textscan(st,'%s %f','Delimiter',';=');
                  x = [x; stread{2}(1)];
               elseif  ~isempty(strfind(st,'CouchShiftLong'))
                 stread = textscan(st,'%s %f','Delimiter',';=');
                  y = [y; stread{2}(1)];
               elseif ~isempty(strfind(st,'CouchShiftHeight'))
                 stread = textscan(st,'%s %f','Delimiter',';=');
                 z = [z; stread{2}(1)];
               end
              end
        fclose(fid);
    end
    Displacement=[x,y,z];
    % save here
end

[AUWAL ABUBAKAR]

Thanks Muhammad for your help.

i tried the code but i got the following error

Error using feof

Invalid file identifier. Use fopen to generate a valid file identifier.

Error in Untitled (line 9)

while ~feof(fid)

[Mohammad Sami]

Sorry, made a mistake

mainfolder = uigetdir;
subfolders = dir(mainfolder);
subfolders = subfolders([subfolders.isdir] & ~startsWith({subfolders.name},'.'));
for i = 1:length(subfolders)
    x = []; y = []; z = []; 
    files = dir(fullfile(mainfolder,subfolders(i).name,'*.xvi'));
    for k = 1:length(files);
        fid = fopen(fullfile(files(k).folder,files(k).name),'r'); % corrected path
              while ~feof(fid)
              st = fgetl(fid);           
               if  ~isempty(strfind(st,'CouchShiftLat'))
                 stread = textscan(st,'%s %f','Delimiter',';=');
                  x = [x; stread{2}(1)];
               elseif  ~isempty(strfind(st,'CouchShiftLong'))
                 stread = textscan(st,'%s %f','Delimiter',';=');
                  y = [y; stread{2}(1)];
               elseif ~isempty(strfind(st,'CouchShiftHeight'))
                 stread = textscan(st,'%s %f','Delimiter',';=');
                 z = [z; stread{2}(1)];
               end
              end
        fclose(fid);
    end
    Displacement=[x,y,z];
    % save here
end

[AUWAL ABUBAKAR]

AlhamdulilLah. it works fine. Just one more thing...

I only got one output (displacement) which is for the last subfolder instead of for each sub folder.

thanks for your help.

[Mohammad Sami]

yes, put this inside the subfolder loop.

Displacement=[x,y,z];
matfile = fullfile(mainfolder,subfolders(i).name,'output.mat');
save(matfile,'Displacement')

[AUWAL ABUBAKAR]

Thanks a million. it woked perfectly.

Wasssalam