我正在读取格式化的 ascii 文件。该文件本质上是 ascii 编码的,看起来像这样:
fieldname 1
header info 1
header info 2
header info 3
aruieopaurjjk&*(^0uio3789$
#$adsfhoueraeiknvaer93-8(&897klfaicvnjai9ea890 34
*(()kla3j90ajkl4a8 ...
fieldname 2
header info 1
header info 2
header info 3
8&80973jknaua890a3a()Ujkl;fjaoi0()8&*(&jla;f)*(
jkl;aje()()78907jkoja0988093jn890&*(4fakoa343a
...
因此,虽然这些文件是 ascii,但它们不是人类可读的。记录长度不一致。我有例程来读取数据,假设文件指针位于之前fieldname
。它检查以确保字段名是我想要的字段名,并读取/解码该字段返回数据。如果该字段不是我想要的字段,它会读取行,直到出现fieldname
线。正如您可以想象的那样,这是非常低效的。要读取最后一个字段,我基本上需要按顺序读取所有其他字段。另外,如果我不按顺序读取它们,我需要倒回整个文件并重新开始。我想做的是创建一个索引,以便我可以将字段名映射到从文件开头开始的字节偏移量。这样,我就可以“寻找”文件中的正确位置并继续作为格式化的顺序文件读取......
我对任何允许我通过以下方式读取文件的解决方案感到满意:
read(iu,'(A)',end=190) mystring !get from current position to end of line
read(iu,*,end=190) myint1,myint2 !read two integers
read(iu,'(a,i8,3e14.7,i8,a)',end=190, err=900) !read a string, 8 character wide integer ...
我什至可以接受一个经过某种优化的解决方案getline
功能和流访问。然后我可以用对 getline 的调用替换上面的内容,然后读取返回的字符串......
我看过这个帖子 https://stackoverflow.com/questions/7110616/fortran-how-to-write-data-to-specific-line-in-the-file,但是我的问题稍微笼统一点(那篇文章想要一个行号。我想要一个字节偏移量)。似乎这可以通过使用流访问和 pos 说明符的一些魔法来完成,但我不确定这是否会迫使我完全重写阅读器(这几乎是不可能的,因为我不知道阅读器如何实际上将看似随机的字符串转换为浮点数)。