Fortran不能读取TXT文件

猫小哩

用Fortran读取TXT文件时出现错误 原文件是.csv  Fortran不能直接读取，也是出现这样的问题，所以用另存为和复制粘贴转换成了TXT，但是都是出现上面这样的问题。图中0表示文件顺利打开，但是就是读取有问题，希望论坛的大神帮忙看看，谢谢啦！
program industry
implicit none
real VOC(200,200),PM25(200,200),SO2(200,200),NOX(200,200),lat,lon
real BC(200,200),CO(200,200),row,col
real VOC1(200,200),PM251(200,200),SO21(200,200),NOX1(200,200),&
BC1(200,200),CO1(200,200),OC1(200,200),PM101(200,200)
integer i,j,p,k,stat
BC=0
!do k=1,5
open(1,file='industry.txt',status='old',IOSTAT=stat)
print*,stat
!open(1,file='2006_Asia_industry_v1.2.txt',status='old')
open(2,file='BC.txt',status='replace')
read(1,*)
do i=1,134,1
do j=1,196,1
read(1,*)row,col,lat,lon,BC1(j,i),CO1(j,i),NOX1(j,i),OC1(j,i),&
PM101(j,i),PM251(j,i),SO21(j,i),VOC1(j,i)
BC(j,i)=BC1(j,i)+BC(j,i)
end do
end do
!end do
do i=1,134
do j=1,196
write(2,"(F7.2, F7.2, F20.3,/)")lat,lon,BC(j,i)
end do
end do
close(2)
end
原程序如上，谢谢啦！

qxtlyf

最好能给出要读的文件，才能发现问题

燃烧青春

读的原文件换个格式存放，全写成列试试看

勿忘草

根据提示，你的文件指针超过了文件末尾，attempt to read end of file。

勿忘草

https://stackoverflow.com/questi ... ad-past-end-of-file这里有人的问题跟你的有点相似，或许可以参考

乱世一杯茶

是不是设置的长度短了？或者被读取的文件长度短了？文件读到最后的时候出错？是不是？

猫小哩

qxtlyf 发表于 2016-1-3 22:52
最好能给出要读的文件，才能发现问题

这个是文件的截图 industry.txt (844.56 KB, 下载次数: 3)

2016-1-4 10:55 上传

点击文件名下载附件

这个是文件数据，谢谢啦！

猫小哩

勿忘草 发表于 2016-1-4 09:11
https://stackoverflow.com/questions/18003610/fortran-90-attempt-to-read-past-end-of-file这里有人的问 ...

看了你给的链接，我想我知道错在哪里了，应该是文件中有部分数据不完整，读取的时候直接跳过，导致读取到后来就没有数据读了。太感谢啦！

勿忘草

猫小哩 发表于 2016-1-4 11:03
看了你给的链接，我想我知道错在哪里了，应该是文件中有部分数据不完整，读取的时候直接跳过，导致读取到 ...

不客气，问题解决了就好