Question

fortran读取txt文件中的一维数组？





Answer 1

测试了一下，程序没有任何问题。

建议在read语句中加入iostat=io，通过返回值io来检查出错的位置。

这样做的好处还在于，遇到数据文件的尾部是，程序不会异常中止，而是可以根据io值来判断和处理。

下面是正常读取时的输出：

下面是fortran代码：

将数据文件da.txt第六行改为 1.0k，程序将在此提示错误。见下图：

如有帮助，请采纳。谢谢！

追问

按照您的要求修改了，怎么读取失败，是txt文件的问题吗

追答

请查看一下，txt文本所用的编码必须是ansi标准。

可以通过“另存为”界面进行选择，重新保存。如选择其它编码标准，字符代码对应的文字是不同的，无法读取。

追问

txt文本是ANSI标志，还是读取失败

追答

截图中看不到数组Y的类型，必须是real*4或者real*8。你检查一下。不能是其他类型的变量。
可以把完整代码发来看看。

追问

program yoo

implicit none
REAL Y(11)
INTEGER A,IO
OPEN(110,FILE='C:\Users\Administrator\Desktop\DA')
DO A=1,11
READ(110,*,IOSTAT=IO) Y(A)
IF(IO.NE.0) THEN
WRITE(*,'(A,2I4)')'ERR=',IO,A
EXIT
END IF
WRITE(*,'(A,I3,F15.8)')'OUT=',A,Y(A)
END DO
CLOSE(110)

end program yoo

追答

检查和测试了代码，没有问题的，运行正常。

请用下面这段代码读取da.txt的第一行，看一下每个字符是不是数字和小数点。

$freeform

character*50 h

open(1,file='da.txt')

read(1,'(a)') h

do i=1,len_trim(h)

   write(*,'(i10,i5)') i,ichar(h(i:i))

end do

end

以下是我运行的结果：

数字的ascii返回值在48到57，小数点是46。如果不在这个范围，说明还是txt文件编码的问题。

追问

这个程序已经可以运行了，但是还有一个问题，为什么我把这个程序复制到我的另一个程序里就不行。麻烦您了

追答

看了代码，没有问题。
应该是da.txt编码问题，编辑txt的软件可能默认的不是ansi编码。可以用我给的代码读取检查一下。
另外，也有可能是da.txt的记录条数少于11，读到了文件尾，导致read错误。

追问

问题已经解决，确实是txt文件的编码问题。
万分感谢！！！

追答

不客气！