MATLAB 讀取envi img格式

function data=read_ENVIimagefile_img(imgfilename)
%本函數讀取img格式，前提是img圖像顯式帶有'.img'後綴名。
if length(imgfilename)>=4
switch strcmp(imgfilename(length(imgfilename)-3:end), '.img')
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=[samples,info(i)];
end
samples=str2num(samples);
%查找行數
a=strfind(info,'lines = ');
b=length('lines = ');
c=strfind(info,'bands');
lines=[];
for i=a+b:c-1
lines=[lines,info(i)];
end
lines=str2num(lines);
%查找波段數
a=strfind(info,'bands = ');
b=length('bands = ');
c=strfind(info,'header offset');
bands=[];
for i=a+b:c-1
bands=[bands,info(i)];
end
bands=str2num(bands);
%查找數據類型
a=strfind(info,'data type = ');
b=length('data type = ');
c=strfind(info,'interleave');
datatype=[];
for i=a+b:c-1
datatype=[datatype,info(i)];
end
datatype=str2num(datatype);
precision=[];
switch datatype
case 1
precision='uint8=>uint8';%頭文件中datatype=1對應ENVI中數據類型爲Byte，對應MATLAB中數據類型爲uint8
case 2
precision='int16=>int16';%頭文件中datatype=2對應ENVI中數據類型爲Integer，對應MATLAB中數據類型爲int16
case 12
precision='uint16=>uint16';%頭文件中datatype=12對應ENVI中數據類型爲Unsighed Int，對應MATLAB中數據類型爲uint16
case 3
precision='int32=>int32';%頭文件中datatype=3對應ENVI中數據類型爲Long Integer，對應MATLAB中數據類型爲int32
case 13
precision='uint32=>uint32';%頭文件中datatype=13對應ENVI中數據類型爲Unsighed Long，對應MATLAB中數據類型爲uint32
case 4
precision='float32=>float32';%頭文件中datatype=4對應ENVI中數據類型爲Floating Point，對應MATLAB中數據類型爲float32
case 5
precision='double=>double';%頭文件中datatype=5對應ENVI中數據類型爲Double Precision，對應MATLAB中數據類型爲double
otherwise
error('invalid datatype');%除以上幾種常見數據類型以外的數據類型視爲無效的數據類型
end
%查找數據格式
a=strfind(info,'interleave = ');
b=length('interleave = ');
c=strfind(info,'sensor type');
interleave=[];
for i=a+b:c-1
interleave=[interleave,info(i)];
end
interleave=strtrim(interleave);%刪除字符串中的空格
%讀取圖像文件
fid = fopen(imgfilename, 'r');
data = multibandread(imgfilename ,[lines, samples, bands],precision,0,interleave,'ieee-le');
data= double(data);
end