IDL读取ASCII文件

;读取
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