ENVI将dsm转成dem envi dat转tif

.

IDL/ENVI 影像格式.dat/.img批量转换.tif/等

有时候需要将很多影像按照指定要求进行格式转换
在ENVI一张一张的进行，很麻烦，而且都是重复工作

所以，可以选择IDL批量格式转换

.img 格式转 .tif

下面是 .img 格式转 .tif 的代码
其他格式转换的可参考

路径更改：具体输入输出路径，实时更改

pro image2tif
  compile_opt IDL2
  e = envi(/headless) ; Launch the application
  ;envi, /restore_base_save_files 

  filesearch='E:\image\HY'
  file=FILE_SEARCH(filesearch,'*.img',count=num)

  for j=0,num-1 do begin
    inputfile=file[j]
    raster1 = e.OpenRaster(inputfile) ; 读入文件

    ;这里inputfile类似于"E:\image\HY\122.img"这样的字符串
    ;将字符串以"\"符号打断,以便取最后一个"\"后的字符串"122.img"经变换后做输出文件名
    inputfilesplit = strsplit(inputfile,'\',/extract)
    outputfilename=inputfilesplit[N_ELEMENTS(inputfilesplit)-1];取打断后最后一个"\"后的字符串做输出文件名
    
    ;;如果影像有后缀名,如.img，则需要加下面一段。若为无拓展名文件则不需要
    inputfilesplit = strsplit(outputfilename,'.',/extract)
    outputfilename=inputfilesplit[0];取打断后最后一个"."后的字符串做输出文件名
    ;;如果影像有后缀名，如.img，则需要加上面一段
    
    ;;影像输入指定文件夹路径：E:\image，转换为tif格式
    filepath_output = 'E:\image\'+outputfilename+'.tif' ; 输出文件路径
    raster1.Export, filepath_output, 'tiff'; 输出为tiff格式
    print,FORMAT='(%"%d/%d finished!")',j+1,num ;打印finished，提示完成
  endfor
end

注意：若是无拓展名的ENVI影像文件，则下述部分代码需删除

无拓展名的ENVI影像文件，如

需删除的代码部分为

;;如果影像有后缀名,如.img，则需要加下面一段。若为无拓展名文件则不需要
    inputfilesplit = strsplit(outputfilename,'.',/extract)
    outputfilename=inputfilesplit[0];取打断后最后一个"."后的字符串做输出文件名
    ;;如果影像有后缀名，如.img，则需要加上面一段

.dat 格式转 .tif

pro ENVIdata2tif
  compile_opt IDL2
  e = envi(/headless) ; Launch the application
  ;envi, /restore_base_save_files 

  filesearch='E:\image\HY-byte'
  file=FILE_SEARCH(filesearch,'*.DAT',count=num)

  for j=0,num-1 do begin
    inputfile=file[j]
    raster1 = e.OpenRaster(inputfile,DATA_IGNORE_VALUE=0) ; 读入文件

    ;这里inputfile类似于"E:\image\HY\122.dat"这样的字符串
    ;将字符串以"\"符号打断,以便取最后一个"\"后的字符串"122.dat"经变换后做输出文件名
    inputfilesplit = strsplit(inputfile,'\',/extract)
    outputfilename=inputfilesplit[N_ELEMENTS(inputfilesplit)-1];取打断后最后一个"\"后的字符串做输出文件名
    
    ;;如果影像有后缀名,如.dat，则需要加下面一段
    inputfilesplit = strsplit(outputfilename,'.',/extract)
    outputfilename=inputfilesplit[0];取打断后最后一个"\"后的字符串做输出文件名
    ;;如果影像有后缀名，如.dat，则需要加上面一段
    
    ;;影像输入指定文件夹路径：E:\image，转换为tif格式
    filepath_output = filesearch+'\byte\'+outputfilename+'.tif' ; 输出文件路径
    raster1.Export, filepath_output, 'tiff'; 输出为tiff格式
    print,FORMAT='(%"%d/%d finished!")',j+1,num ;打印finished，提示完成
  endfor
end