function D = LlixInp(NomInp, delim, Cad, nos, comentari)
trobat = 0;
%UbInp = ['.', filesep];
%NomInp = 'tiegcm1.93_default.inp';
fid2 = fopen(NomInp, 'r'); %Obro l'arxiu de dades brutes
if fid2 == -1 %si no existeix l'arxiu de dades
    Error, no he trobat l''arxiu.
else
    A = textscan(fid2, '%s', 'Delimiter', delim); %Llegeixo l'arxiu de dades brutes amb aquesta única instrucció, entrant el text en la variable A, i el número de caràcters (lletres o números) a la variable ComptaCar. En aquesta línia es defineixen: CR, LF, SP, +, -, .
    fclose(fid2); %tanco arxiu
    B = A{:};
    for i = 1: length(B) % Elimino el que ve després del comentari, indicat per ";" a l'input file.
        C0 = cell2mat(B(i));
        if strfind(C0, comentari)
            C0 = C0(1: strfind(C0, ';') - 1);
        end
        B(i) = {C0};
    end
    for i = 1: length(B)    
        C0 = cell2mat(B(i));
        if strmatch(Cad, C0, 'exact')
            if trobat == 0
                C1 = cell2mat(B(i + 1));
                %disp(C1)
            end
            trobat = trobat + 1;
        end
    end
    disp(['He trobat la cadena buscada ', num2str(trobat), ' vegades'])
    if trobat < 1
        Error, no he trobat el que buscava.
    end
    D0 = textscan(C1, '%s', 'Delimiter', ',');
    D = NaN(1: length(D0{:}));
    if strmatch(nos, 'n', 'exact')
        for i = 1: length(D0{:})
            D(i) = str2double(cell2mat(D0{:}(i)));
        end
    elseif strmatch(nos, 's', 'exact')
        D = cell2mat(D0{:}(1));
    else
        Has de posar ''n'' o ''s'' a l''ultim argument de la funcio
    end
end