clear all
a=dir('SACPZ*');
for i=1:size(a,1)
fid1=fopen(a(i).name,'r');
fid2=fopen(['modificado.',a(i).name],'w');
while ~feof(fid1)
linea = fgetl(fid1);
if ~isempty(linea)
    if linea(1)~='*'
        fprintf(fid2,'%s\n',linea);
    end
else
    break;
end
end
end
fclose(fid2);
fclose(fid1);
%open(['modificado.',a(i).name])

Published with MATLAB® R2017b