ENVI二次开发应用：抽取modis数据中的NDVI产品

运行前在控制台启动ENVI。

pro Modis_MOD13Q1_Batch
    compile_opt IDL2
    path = 'D:\envi_example'
    files = file_search(path,'*.hdf',count=count);查找路径下所有hdf文件，count为查找到的hdf文件的总数
    if count eq 0 then return
    outPath = 'E:\'
  for i=0,count-1 do begin
    file = files[i]
    envi_open_data_file,file,r_fid=r_fid,/modis ;返回多个fid，fid是一个数组
    if (fid[0] eq -1) then continue
    fid = fid[0]  ;选出ndvi产品的fid，fid[0]为ndvi产品
    envi_file_query, fid , dims=dims, nb=nb
    pos = lindgen(nb)
    bname=file_basename(file,'.hdf') ;提取不带文件扩展名的的文件名
    out_name = outpath+bname+'_ndvi.dat'
    envi_output_to_external_format ,/envi, $
      fid=fid,pos=pos,out_name=out_name
  endfor     
          
end