IDL读取ascii码文件

初学者，代码：

pro readasciifiles
fn=dialog_pickfile(title="select a asciifile",filter=".txt")
openr,lun1,fn,/get_lun
if lun1 eq -1 then begin
  void=dialog_message("wrong file",/error) 
  return
endif
tmp=""
while(~eof(lun1)) do begin
  readf,lun1,tmp
  print,tmp
  endwhile
  free_lun,lun1
end

效果：

段思宁是个sb！

别告诉我舍友。