IDL读取TXT文件并写入二维数组中【转】

pro try

COMPILE_OPT IDL2

 

;首先读取txt文件

 

file=dialog_pickfile()

files1=file_search('*',count=k)

 

openr,lun,file,/get_lun

   

if lun eq -1 then return

tmp = ''

 

data=fltarr(860,1119)

 

for i=0,1118 do begin

    tdata=fltarr(860)

    readf,lun,tdata

data[*,i]=tdata

endfor

 

end