读取csv文件，并进行计算

楚香饭

请点击 回形针 图标的 按钮上传图片

楚香饭

end-of-file during read
意思是，读取时遇到了文件的尾部。（即文件内容的长度不符合代码的要求）

对于文本文件，尽量不要同时对一个文件一边读，一边写。最好是另外打开一个文件，作为输出文件，写入输出文件。

shellexecute 是 windows 上的函数，并不是用来输出 csv 的，而是用来调用 excel（或其他程序）来打开 csv 文件。

楚香饭

试试这样：

[Fortran] 纯文本查看 复制代码

program main
  implicit none
  integer :: k
  real ::f , a , b
  real ::ef10=1.09,ef25=0.31
  open(12 , file ="/home/iga_qtong/fortran_xcao/fa.csv")
  open(13 , file ="/home/iga_qtong/fortran_xcao/faout.csv")
  read(12,*)
  do
    read(12,*,iostat=k) f
    if ( k/= 0 ) exit
    a=f*ef10
    b=f*ef25
    write(13,*) f,',',a,',',b
  end do    
  close(12)
  close(13)
end program main