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

Import code by Vuegen et al

function [txt_struct] = readCSV(file)

    % text openen om volledig in te lezen
    fid = fopen(file);
    txt = '';
    if fid ~= -1
        while 1
            line = fgetl(fid);
            if ~ischar(line), break, end
            txt = [txt line ' \n '];
        end
    end
    fclose(fid);
    
    % text aanpassen
    txt_struct = {};
    l = 1;
    k = 1;
    voorlopigVak = '';
    volgendeOverslaan = false;
    for i = 1:length(txt)
        switch txt(i)
            case ';'
                txt_struct{l,k} = voorlopigVak;
                voorlopigVak = '';
                k = k+1;
            case '\'
                if txt(i+1) == 'n'
                    txt_struct{l,k} = voorlopigVak;
                    voorlopigVak = '';
                    l = l+1;
                    k = 1;
                    volgendeOverslaan = true;
                else
                    if volgendeOverslaan == false
                        voorlopigVak = [voorlopigVak txt(i)];
                    else
                        volgendeOverslaan = false;
                    end
                end
            otherwise
                if volgendeOverslaan == false
                    voorlopigVak = [voorlopigVak txt(i)];
                else
                    volgendeOverslaan = false;
                end
        end
    end
    
    % lege lijnen (of met spaties) onderaan wissen
    ok = false;
    while ok == false
        for i = 1:size(txt_struct,2);
            for j = 1:length(txt_struct{end,i})
                if not(strcmp(txt_struct{end,i}(j), ' '))
                    ok = true;
                end
            end
        end
        if ok == false
            txt_struct = txt_struct(1:end-1,:);
        end
    end
end