|
PRO FILE2BANDS
envi_select, fid=fid, pos=pos, title='Input File'
if (fid[0] eq -1) then return
output_dir = Dialog_Pickfile(/Directory,/Write, Title='Select your output folder')
envi_file_query, fid, dims=dims, nb=nb, bnames=bnames, $
data_type=data_type, sname=sname
pFinish = Strpos(sname,'.')
if pFinish eq -1 then name=sname $
else name=strmid(sname, 0, pFinish)
for i=0, nb-1 do begin
out_name=output_dir + strcompress(name + '_band_' $
+ string(i+1), /remove_all)
envi_doit, 'Cf_Doit', dims=dims, fid=fid, out_bname=bnames[i], $
out_dt=data_type, out_name=out_name, pos=[i], r_fid=r_fid
envi_file_mng, id=r_fid, /remove
endfor
END
|