Matlab数据处理程序（2）

clear all
close all
DispartyData = 'cal5-90.txt';
RGBpicture = '5L.bmp';

a1 = 640*480;
tmpfile='tmp2.mat';
fidin = fopen(DispartyData, 'r'); % 打开原始数据文件（.list）
fidtmp=fopen(tmpfile,'w'); % 创建保存数据文件（不含说明文字）
while ~feof(fidin) % 判断是否为文件末尾
  tline=fgetl(fidin); % 从文件读入一行文本（不含回车键）
  if ~isempty(tline) % 判断是否空行
    [m,n]=size(tline);
    flag=1;
    for i=1:n %判断一行中有没有相应的字符
      if (tline(i)=='#'||tline(i)=='w'||tline(i)=='h')
        flag=0;
        break;
      end
    end
    if flag==1 % 如果是数字行，把此行数据写入文件
      fprintf(fidtmp,'%s\n',tline);
    end
  end
end

fclose(fidin);   %关闭
fclose(fidtmp);  %关闭
[a,b,c,d,e,t,h,i,j] = textread(tmpfile,'%f %f %f %d %d %d [%d %d] d%d',a1,'headerlines',6);
A = [a,b,c,d,e,t,h,i,j];