一、消除txt數(shù)據(jù)文件中空行批處理小程序

%下面這段才是真正的讀入數(shù)據(jù)寫出數(shù)據(jù)的程序
%需要txt原型數(shù)據(jù)文件，然后可以將所有的字符行消除，空行消除

考慮到寫入數(shù)據(jù)文件其實并沒有什么意義，同時修改數(shù)據(jù)行中可以包含小數(shù)點（.）、－、E（科學(xué)計數(shù)法）等符號。
function [data]=distilldata(infile)
%功能說明：
%將保存數(shù)據(jù)的原始文件中的數(shù)值數(shù)據(jù)讀入到一個data變量中
%使用說明：
% infile——原始數(shù)據(jù)文件名;
% data=數(shù)據(jù)變量

tmpfile='tmp.mat';
fidin=fopen('aaa.txt','r'); % 打開原始數(shù)據(jù)文件（aaa.txt）
fidtmp=fopen(tmpfile,'w'); % 創(chuàng)建保存數(shù)據(jù)文件（不含說明文字）
while ~feof(fidin) % 判斷是否為文件末尾
tline=fgetl(fidin); % 從文件讀入一行文本（不含回車鍵）
if isempty(tline) | tline==' ' % 判斷是否空行
continue
else
[m,n]=size(tline);
flag=1;
for i=1:n %判斷一行中有沒有字符（＋－.Ee和空格鍵除外）
if tline(i)==' '|tline(i)=='-'|tline(i)=='.'|tline(i)=='E'...
|tline(i)=='e'|tline(i)=='+'...
|(double(tline(i))>=48&&double(tline(i))<=57)
continue
else
flag=0;
break
end
end
if flag==1 % 如果是數(shù)字行，把此行數(shù)據(jù)寫入文件
fprintf(fidtmp,'%sn',tline);
else
continue
end
end
end
fclose(fidin);
fclose(fidtmp);
data=textread(tmpfile);