Чтение текстового файла

fid=fopen('f:\example.txt');a=fread(fid,inf,'*uint8');fclose(fid);
L=find(a==10);
if L(end)+87<length(a),
   nC=length(L)+1;LL=[1;L(1:end)+1]; 
else
   nC=length(L);LL=[1;L(1:end-1)+1];
end;
dimC=zeros(nC,87);
for n=1:nC, dimC(n,:)=a(LL(n):LL(n)+86);end;
st1=char(dimC(:,9:11))
st2=char(dimC(:,47:49))
dimC(:,[9:11 47:49])=[];dimC0=repmat(48,nC,1);
dimC1=[dimC(:,1:8) dimC0 dimC(:,9:18) dimC0 dimC(:,19:28) dimC0 dimC(:,29:36) dimC0 dimC(:,37:43) dimC0 dimC(:,44:53) dimC0 dimC(:,54:62) dimC0 dimC(:,63:72) dimC0 dimC(:,73:81) dimC0];
dimC2=str2num(char(dimC1))

    URL = 'http://datacenter.iers.org/eop/-/somos/5Rgv/latest/12';  Str = urlread(URL);
    Format = '%*2f%*2f%*f%f%*1s%*f%*f%*f%*f%*1s%*f%*f%*s%f%*s%f%*f%f %*[^\n]';
    Cell = textscan(Str, Format);
    MJD = Cell{1};  colum1 = Cell{2};   colum2  = Cell{3};  colum3 = Cell{4}; 
    
    for i = 1:length(colum2)
     if find(abs(colum2(i) ./ colum2(i+1)) > 5 )
    formatSpec = ' Данные по dpsi и deps есть до строки %2d \n ';
    fprintf(formatSpec, i);
    index_dpsi = i;  
         break
     end
    end
    dpsi1 = colum2(1:i);
 
    for i = 1:length(colum1)
     if find(abs(colum1(i+1) ./ colum1(i)) > 1000 )
    formatSpec = ' Данные по dpsi и deps начинаются со строки %2d \n ';
    fprintf(formatSpec, i);
         break
     end
    end
    dpsi2 = colum1(i+1:end);
    dpsi = [dpsi1; dpsi2];
    num = find(~isnan(dpsi));  
    dpsi = dpsi(num); % убираем NaN
    
    i = find(~isnan(colum3));
    deps1 = colum3(i);
    deps2 = colum2(index_dpsi + 1:end);
    deps = [deps1; deps2];
    deps = deps(num); % убираем NaN

clc
clear all
fid = fopen('example.txt');
T = textscan(fid, '%54c%f%f%69c');
fclose(fid);
x = T{1};
y = T{2}; 
z=T{3};

function A = uniread(site)
%[url]http://datacenter.iers.org/eop/-/somos/5Rgv/latest/8[/url]
InetFile = site;
A0=strcat('InetFile = "', InetFile,'"');
A1 = 'Dim objShell';
A2 = 'Set objShell = CreateObject("Wscript.Shell")';
A3 = 'localFile = objShell.SpecialFolders("Desktop") & "\text.txt"';
A4 = 'Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")';
A5 = 'oXMLHTTP.Open "GET", InetFile, 0';
A6 = 'oXMLHTTP.Send';
A7 = 'Set oADOStream = CreateObject("ADODB.Stream")';
A8 = 'oADOStream.Mode = 3';
A9 =  'oADOStream.Type = 1';
A10 = 'oADOStream.Open';
A11 = 'oADOStream.Write oXMLHTTP.responseBody';
A12 = 'oADOStream.SaveToFile localFile, 2';
A13 = 'Set oXMLHTTP = Nothing';
A14 = 'Set oADOStream = Nothing';
vbs = {A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14};
fid = fopen('infile.vbs','w');
fprintf(fid,'%s\n',vbs{:});
fclose(fid);    
system('infile.vbs &');
specialFolderType = System.Type.GetType(...
    'System.Environment+SpecialFolder');
folders = System.Enum.GetValues(specialFolderType);
enumArg = [];
for i = 1:folders.Length
    if (strcmp(char(folders(i)), 'Desktop'))
        enumArg = folders(i);
    break
    end
end
if(isempty(enumArg))
    error('Invalid Argument')
end
result = System.Environment.GetFolderPath(enumArg);
B = matlab.unittest.diagnostics.ConstraintDiagnostic.getDisplayableString(result);
C = strcat(B,'\text.txt');
A = fileread(C);
end

 uniread('http://datacenter.iers.org/eop/-/somos/5Rgv/latest/8')

function A = uniread(site)
%[url]http://datacenter.iers.org/eop/-/somos/5Rgv/latest/8[/url]
InetFile = site;
A0=strcat('InetFile = "', InetFile,'"');
A3 = 'localFile = "F:\MATLAB\АстроУОЛ\Data_IERS\text.txt"';
A4 = 'Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")';
A5 = 'oXMLHTTP.Open "GET", InetFile, 0';
A6 = 'oXMLHTTP.Send';
A7 = 'Set oADOStream = CreateObject("ADODB.Stream")';
A8 = 'oADOStream.Mode = 3';
A9 =  'oADOStream.Type = 1';
A10 = 'oADOStream.Open';
A11 = 'oADOStream.Write oXMLHTTP.responseBody';
A12 = 'oADOStream.SaveToFile localFile, 2';
A13 = 'Set oXMLHTTP = Nothing';
A14 = 'Set oADOStream = Nothing';
vbs = {A0, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14};
fid = fopen('infile.vbs','w');
fprintf(fid,'%s\n',vbs{:});
fclose(fid);    
system('infile.vbs &');
A = fileread('F:\MATLAB\АстроУОЛ\Data_IERS\text.txt');
end