IDL转换BSQ格式至BIL

IDL转换BSQ格式至BIL

pro Transform

  compile_opt idl2
  e=envi(/headless)
  envi,  /restore_base_save_files
  envi_batch_init,  log_file = 'batch.txt', /no_status_window
  
  fn=dialog_pickfile(title='选择要转换的ENVI文件')
  envi_open_file, fn, r_fid=fid
  envi_file_query, fid, ns=ns, nl=nl, nb=nb, dims=dims, $
    interleave=interleave, offset=offset, bnames=bnames
  print, interleave
  pos=indgen(nb)
  envi_doit, 'convert_doit', fid=fid, dims=dims, pos=pos, $
    r_fid=fid_BIL, out_name='Data_BIL', o_interleave=1
  envi_file_query, fid_BIL, interleave=interleave
  print, interleave
  
end