Question

我还想问一下，fortran中读入文件中的数组不知道长度，怎么读入啊！求助！

Answer 1

如果你的文件是二进制文件，那么你可以获得文件大小 size，然后除以每个数据的长度，比如4字节或8字节。既可得到数据量。

如果你的文件是文本文件，且每行的数据个数是固定的，每行的长度也是固定的。也可以参照上面的方法。

如果你的文件是文本文件，但每行的数据个数不确定，或者每行的长度不一致。
那么有办法知道文件的行数，或者每一行分别的数据个数。总的数组，需要你自己去统计行数，或者每一行的数据量加起来就是总的数据量。

大多数情况下，你只需要知道行数，就可以确定数据量了。下面的函数可以获得文件的行数。

Integer Function GetFileN( iFileUnit )
Implicit None
Integer , Intent( IN ) :: iFileUnit
Character*(1) :: cDummy
GetFileN = 0
Rewind( iFileUnit )
Do
Read( iFileUnit , * , End = 999 , Err = 999 ) cDummy
GetFileN = GetFileN + 1
End Do
999 Rewind( iFileUnit )
Return
End Function GetFileN

追问

我不太明白你的意思，我是指，比如我的读入文件是这种

但我不知道这有多少行，那我怎么从文件中读入存在数组当中，有时每行中的数据有空格，就是没数据又怎么读啊！

追答

有空格是正常的。空格表示数据的间隔。没空格反而不容易读。

你的数据麻烦在，有 / ，有 //////。

我不知道这样的数据格式意味着什么。你打算在数据处理时，如何对待这样的 ////// ？

这样不规则的数据，你打算读成一维数组，还是二维数组？

这决定了如何读取它们。

你有至少两种选择：

1. 使用记事本或其他软件的替换功能。把 / 替换成空格。然后读起来就容易多了。

2. 把数据按照行，每行按照字符串读入。然后分析其中的 / ，进行判断后读入。这样的方法会比较麻烦。
   

追问

那个/// 我可以用excle替换，这没关系，但就是我不知道这数据有多少行，我怎么读入？还有我指的空格是指其中的有个别数据缺失，就空在那，读不了，显示的是数据读入有问题，每次都会遇到这样的问题

追答

上述的代码既可得到一个文件的行数。

但是你的行数，不意味着你的数据量。因为每一行的数据个数可能是不一样的。

这不止是一个数据读取问题，更多的问题是：存储问题！！
是用一维数组存储全部数据，还是二维数组？

因为二维数组不允许有缺失，对于有缺失的数据，如何处理？这是你需要考虑的问题。

追问

我一般用的都是二维的数组，如果有缺失，我是不是就不能读入了，或者说必须用其他的软件补齐数组才能读入

追答

如果数据有缺失，那就麻烦了。

比如：
123 455 644
124 999
435 657 754
第二行只有两个数据，那么你怎么知道是第二列缺失，还是第三列缺失呢？