annotate functions/funcsMobilab/find_format.m @ 0:2fadb31a9d55 tip

Import code by Vuegen et al

function [files] = find_format(DIR,format)

i = 1;
inhoud_DIR = dir(DIR);
aantal_bestanden = length(inhoud_DIR);
for j = 1:aantal_bestanden
    bestandsnaam = inhoud_DIR(j,1).name;
    if strcmp(format,'map')
        if inhoud_DIR(j,1).isdir ==true
            if bestandsnaam(1) ~= '.'
                files.labels(i) = {bestandsnaam(1:(length(bestandsnaam)-length('01.wav')))};
                files.names(i) = {bestandsnaam};
                i = i+1;
            end
        end  
    else
        if length(bestandsnaam)>=length(format),
            formaatBestandsnaam = bestandsnaam(end-length(format)+1:end);
            if strcmp(formaatBestandsnaam, char(ones(1,0)));
                formaatBestandsnaam = '';
            end
            if strcmp(formaatBestandsnaam, format),
                files.labels(i) = {bestandsnaam(1:(length(bestandsnaam)-length('01.wav')))};
                files.names(i) = {bestandsnaam};
                i = i+1;
            end
        end
    end
end