filename_extract.zip_IDL读取遥感影像文件名_IDl_L92Z_windpjx

PRO filename_extract compile_opt strictarr COMPILE_OPT idl2 ENVI,/restore_base_save_files envi_batch_init,LOG_FILE='batch.log' ;打开要裁剪的图像 image_dir='G:\MOD\黑河流域\277\process\CV';根据文件存放的目录进行相应修改 files=file_search(image_dir,'*.img',count=numfiles) ;根据相应的文件格式修改过滤条件 out_dir='G:\MOD\黑河流域\277\process\CVsubsetlast' outfile1=out_dir+'\'+'filename.txt' OPENw,ounit,outfile1,/append,/GET_LUN PRINTf,ounit,files ;10是站点数+1 free_lun,ounit tmp = DIALOG_MESSAGE('结束!',/info) END