使用IDL将.dat转为.tiff(遥感影像格式转换)
PRO dattotif
e = ENVI()
inpath = ‘C:\Users\sb\Desktop\ZG20008’
n = strlen(inpath)
file_search=file_search(inpath,’*.dat’,count = num,/test_regular)
for i = 0,num-1 do begin ; 利用for循环实现批量转换
raster1 = e.OpenRaster(file_search[i]) ; 读入文件
aotname=file_search[i]
fname=STRMID(aotname,n+1,7);;;;(7为.dat文件名长度,不包含‘.dat’)
filepath_output = ‘C:\Users\sb\Desktop\ZG20008’ +strcompress(fname, /remove)+’.tif’ ; 输出文件路径
raster1.Export, filepath_output, ‘TIFF’ ; 输出为tiff格式
Print,‘finished’
endfor
end