%讀&顯ENVI圖像

%?選擇影像并判斷是否是ENVI格式?
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[filename_imgpathname_img]=uigetfile（{‘*.dat‘;‘*.img‘}‘選擇影像‘）;
if?isequal（filename_img0）??%??判斷是否選擇了影像
????msgbox（‘未選擇影像！‘）;
else
????pathfile_img=fullfile（pathname_imgfilename_img）;???%獲取影像文件的路徑
end
a=strfind（pathfile_img‘.‘）;
b=length（pathfile_img）;
c=pathfile_img（a+1:b）;
d=pathfile_img（1:a）;
if?isequal（c‘dat‘）||isequal（c‘img‘）???%??判斷是否是‘.dat’或‘.img’格式
%讀取圖像的頭文件
if?strcmp（c‘dat‘）
????filename_hdr=[d?‘hdr‘];
else
????filename_hdr=[d?‘hdr‘];
end
%??頭文件相關(guān)參數(shù)的設(shè)置
par1={‘samples‘?0};
par2={‘lines‘?0};
par3={‘bands‘?0};
par4={‘header?offset‘?0};
par5={‘interleave‘?‘bsq‘};
par6={‘data?type‘?0};
par7={‘byte?order‘?0};
par={par1?par2?par3?par4?par5?par6?par7};
fid_hdr=fopen（filename_hdr‘r‘）;??%?打開頭文件
tline=fgetl（fid_hdr）;
while?~feof（fid_hdr）???%??讀取頭文件參數(shù)信息
????tline=fgetl（fid_hdr）;
????a=strfind（tline‘=‘）;
????b=length（tline）;
????c=strtrim（tline（1:a-1））;
????d=tline（a+2:b）;
?????for?i=1:7
????if?strcmp（cpar{i}{1}）
????????par{i}{1}=c;
????????if?i==5
????????????par{i}{2}=d;
????????else
????????????d=strtrim（d）;
????????????par{i}{2}=[str2num（d）];
????????end
????end
????end
????
end
?fclose（fid_hdr）;??
?switch?par{6}{2}
case?1
precision=‘uint8=>uint8‘;%頭文件中datatype=1對(duì)應(yīng)ENVI中數(shù)據(jù)類型為Byte，對(duì)應(yīng)MATLAB中數(shù)據(jù)類型為uint8