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