Matlab - Ayuda volcar contenido en matlab

clear;close;clc;

%function [MDatos,enc]=lector(file,ncol,nenc,delimitador)

%variables

delimitador=','

ncol=3;

nenc=3;

file='file2.txt'

fileID=fopen(file,'r');

for i=1:nenc

    enc{i,1}=fgetl(fileID);

end

A1=textscan(fileID,'%f64 %f64 %f64','Delimiter',',');

A2=cell2mat(A1);

v='';

for i=1:ncol

v=strcat([v,'%f64']);

end

filename = 'D:\archivo.txt';

delimiter = '\t';

formatSpec = '%s%s%s%s%[^\n\r]';

fileID = fopen(filename,'r');

dataArray = textscan(fileID, formatSpec, 'Delimiter', delimiter,  '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,2,3,4]

    % Converts strings in the input cell array to numbers. Replaced non-numeric

    % strings with NaN.

    rawData = dataArray{col};

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

        % Create a regular expression to detect and remove non-numeric prefixes and

        % suffixes.

        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;

            % Detected commas in non-thousand locations.

            invalidThousandsSeparator = false;

            if any(numbers==',');

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

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

                    numbers = NaN;

                    invalidThousandsSeparator = true;

                end

            end

            % Convert numeric strings to numbers.

            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);

raw(R) = {NaN};

archivo = cell2mat(raw);

clearvars filename delimiter formatSpec fileID dataArray ans raw col numericData rawData row regexstr result numbers invalidThousandsSeparator thousandsRegExp me R;