批量重采样

PRO RESAMPLE;批量重采样
  COMPILE_OPT idl2
  ;ns是采样为多少列数，nl是采样为多少行，method是用什么方法采样，Nearest Neighbor是最近邻，双线性插值是Bilinear,三次卷积是Cubic Convolution，大小写别对错，自己直接复制
  ns=885 & nl=541 & method='Nearest Neighbor';这一行自己设置，别的不用动

  ;以下代码不用动，tif格式的需要动一下，若是tif格式遇到问题可以联系我，我调代码
  e = ENVI(/headless)
  inpath = DIALOG_PICKFILE(title='选择输入文件的目录文件夹',/DIRECTORY)
  outpath= DIALOG_PICKFILE(title='选择文件的输出目录',/DIRECTORY)
  CD,inpath;
  filenames=FILE_SEARCH('*.dat');文件检索后缀名为dat,tif的自己改下,注意与下面输出对应
  n=N_ELEMENTS(filenames)
  PRINT,n
  FOR i=0,n-1 DO BEGIN
    File=inpath+filenames[i]
    Raster = e.OPENRASTER(File)
    NewRaster = ENVIRESAMPLERASTER(Raster,DIMENSIONS=[ns,nl],METHOD=method)
    outfile=outpath+filenames[i]
    NewRaster.EXPORT,outfile,'ENVI';ENVI是输出为.dat，TIFF是输出为.tif
  ENDFOR
  e.CLOSE

END