Matlab - Archivos .txt

nombre = 'C:\Users\JesúsDavid\V1_Reflection_00004.txt';

fileID = fopen(nombre,'r');

a=textscan(fileID, '%[^\n\r]', 1, 'ReturnOnError', false);

a2=textscan(fileID, '%[^\n\r]', 1, 'ReturnOnError', false);

formatSpec = strcat(repmat('%s',1,sum(a{1}{1}==' ')+1),'%[^\n\r]');

dataArray = textscan(fileID, formatSpec, 'Delimiter', ' ', 'MultipleDelimsAsOne', true, 'ReturnOnError', false);

fclose(fileID);

raw = repmat({''},length(dataArray{1}),length(dataArray)-1);

for col=1:length(dataArray)-1

    raw(1:length(dataArray{col}),col) = dataArray{col};

end

numericData = NaN(size(dataArray{1},1),size(dataArray,2));

for col=1:sum(a{1}{1}==' ')+1

    rawData = dataArray{col};

    for row=1:size(rawData, 1);

        regexstr = '(?<prefix>.*?)(?<numbers>([-]*(\d+[\,]*)+[\.]{0,1}\d*[eEdD]{0,1}[-+]*\d*[i]{0,1})|([-]*(\d+[\,]*)*[\.]{1,1}\d+[eEdD]{0,1}[-+]*\d*[i]{0,1}))(?<suffix>.*)';

        try

            result = regexp(rawData{row}, regexstr, 'names');

            numbers = result.numbers;

            invalidThousandsSeparator = false;

            if any(numbers==',');

                thousandsRegExp = '^\d+?(\,\d{3})*\.{0,1}\d*$';

                if isempty(regexp(thousandsRegExp, ',', 'once'));

                    numbers = NaN;

                    invalidThousandsSeparator = true;

                end

            end

            if ~invalidThousandsSeparator;

                numbers = textscan(strrep(numbers, ',', ''), '%f');

                numericData(row, col) = numbers{1};

                raw{row, col} = numbers{1};

            end

        catch me

        end

    end

end

R = cellfun(@(x) ~isnumeric(x) && ~islogical(x),raw); % Find non-numeric cells

raw(R) = {NaN}; % Replace non-numeric cells

datos = cell2mat(raw);

datos=datos(:,1:sum(a2{1}{1}==' ')+1);

clearvars nombre delimiter startRow formatSpec fileID dataArray ans raw col numericData rawData row regexstr result numbers invalidThousandsSeparator thousandsRegExp me R a a2;