fidin=fopen(‘ELIST.lis’)
fidout=fopen(‘ELISTout.txt’,‘w’); % 创建输出文件
while ~feof(fidin) % 判断是否为文件末尾
tline=fgetl(fidin); % 从文件读行
if numel(tline)~=0
for i=1:length(tline)
%如果第一个非空字符是是数值输出该行跳出
if (~strncmp(tline(i),’ ‘’ ‘,1)&& double(tline(i))>=48&&double(tline(i))<=57 )
fprintf(fidout,’%s\n’,tline);
break
end
end
end
end
fclose(fidin);
fclose(fidout);
elefid=load(‘ELISTout.txt’);
mesh=elefid(:,end-3:end) %网格信息mesh