;*Usage:根据参考对照txt文件对栅格数据进行重新编码 ;参考文件---Ref_file ;参考文件中的line数目---line_num ;栅格文件---LC_img(为envi standard file) ;输出文件---outfile pro LCLU_ID_Transform,ref_file,line_num,LC_img,outfile temp=' ' ;*get the Ref-file in openr,lun1,ref_file,/get ...
Sub Readtable() Dim filename As String Dim filenum As Long Dim fileslist As String Dim outfile As String Dim outfile_log As String outfile = I:综合整理结果20100525-2其它各省1257省 ...