;读取
Pro READ_ASCII
fn=dialog_pickfile()
openr,lun,fn,/get_lun
maxrec=10000
temp=intarr(2);0 0
print,'temp1',temp
data=intarr(2,maxrec)
i = 0
while eof(lun) ne 1 do begin
;循环读取一行数据
readf,lun,temp;readf读取的数据存储到temp中
print,'temp2',temp
data[*,i]=temp
i=i+1
endwhile
data=data[*,0:i-1];去除空行
print,'行数:',i
free_lun,lun
print,data
wv = transpose(data[ 0 ,*]);波长
ref = transpose(data[ 0 ,*])*0.01;反射率
print,wv
print,ref
end
;读取
Pro READ_ASCII
fn=dialog_pickfile()
openr,lun,fn,/get_lun
maxrec=10000
temp=intarr(2);0 0
print,'temp1',temp
data=intarr(2,maxrec)
i = 0
while eof(lun) ne 1 do begin
;循环读取一行数据
readf,lun,temp;readf读取的数据存储到temp中
print,'temp2',temp
data[*,i]=temp
i=i+1
endwhile
data=data[*,0:i-1];去除空行
print,'行数:',i
free_lun,lun
print,data
wv = transpose(data[ 0 ,*]);波长
ref = transpose(data[ 0 ,*])*0.01;反射率
print,wv
print,ref
end