有时候末尾有逗号，有时候没逗号，数据不合常规。

[quote]
有时候末尾有逗号，有时候没逗号，数据不合常规。[/quote]

一点小小的改进，可以克服以上问题

program main
implicit none 
integer max,i,k,iadd
parameter (max=800)
character(len=max)::aline
integer,dimension(max)::mdata
  
open(1,file='1.txt',status='old')   
  do while(.true.)
    read(1,'(a)',end=20) aline
      k=len(adjustl(trim(aline)))
      if(aline(k:k).ne.',') aline(k+1:k+1)=',' 
      iadd=0
      do i=1,k+1
       if(aline(i:i).eq.',') iadd=iadd+1
      enddo 
      read(aline,*) (mdata(i),i=1,iadd)
      write(*,'(<iadd>i10)') (mdata(i),i=1,iadd)
  enddo 
20  close(1)
end program