利用matlab编写的读取ENVI软件保存的dat图像格式程序

function data=read_ENVIdatafile

% 本函数读取dat格式，前提是dat图像显式带有‘.dat‘后缀名。

imgfilename =input（‘Input the data file name excluding directory: ‘‘s‘）;
imgfilename=deblank（imgfilename）; %消除尾部空格

if length（imgfilename）>=4
   switch strcmp（imgfilename（length（imgfilename）-3:end） ‘.dat‘）
   case 0
       hdrfilename=strcat（imgfilename ‘.hdr‘）;
   case 1
       hdrfilename=strcat（imgfilename（1: （length（imgfilename）-4）） ‘.hdr‘）;
   end
else
    hdrfilename=strcat（imgfilename ‘.hdr‘）;
end
%读取ENVI标准格式图像文件
%读取图像头文件
fid = fopen（hdrfilename‘r‘）;
info = fread（fid‘char=>char‘）;
info=info‘;%默认读入列向量，须要转置为行向量才适于显示
fclose（fid）;

%查找列数
a=strfind（info‘samples = ‘）;
b=length（‘samples = ‘）;
c=strfind（info‘lines‘）;
samples=[];
for i=a+b:c-1
   samples=[samplesinfo（i）];
end
sampl