1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| if nargin==0
else [filen,path]=uigetfile('*.sn1;*.sn2;*.iod;*.ion;*.mp1;*.mp2;*.azi;*.ele',...
'Pick your TEQC report file');
[path,filen,ext]=fileparts(files);
%path=[path '\'];
fs=filesep;
if ~isempty(path), path=[path fs]; end
filen={[filen ext]};
end
file=char(filen);
[A]=importdata([path file],'\t');
SAT(1:length(A),1:32)=NaN; (ligne que je ne comprends pas)
n=0;i=5;
sats=str2num(A{i});
snyggfilen=strrep(filen,'_','-');
h=waitbar(0,['Please wait... Importing ' char(snyggfilen)]);
while i<length(A)-1;
waitbar(i/length(A),h);drawnow
n=n+1;
i=i+1;
if sats~=0;
SAT(n,sats(2:end))=str2num(A{i}); (ligne que je ne comprends pas)
i=i+1;
end
if str2num(A{i})~=-1;
sats=str2num(A{i});
end
end |
Partager