使用fortran77將文本文件讀取為字符串

Question

是否可以使用fortran77將文本文件讀取為字符串。 我實際上有以下格式的文本文件

Some comments
Some comments

n1  m1  comment_with_unknown_number_of_words
..m1 lines of data..

n2  m2  comment_with_unknown_number_of_words
..m2 lines of data..
and so on

而n1，n2 ..是對象的順序。 m1，m2 ...分別是包含有關這些對象的數據的行數。 我還想存儲每個對象的注釋以供進一步研究。

我該如何處理？ 提前非常感謝您！

Answer 1

我不敢相信沒有人給我打電話。.我很抱歉，這實際上只是抓住了評論的第一句話……

------------原始答案----

不推薦F77，但這也不是難題。 只需聲明一個char變量足夠長的時間即可保存最長的注釋，並使用直接讀取的列表。

integer m1,n1
char*80 comment

...
read(unit,*)m1,n1,comment

如果您想寫出來而又不填很多額外的空間，那會很費力，但是幾乎沒有世界盡頭。

在f77中，您根本無法識別出文件的末尾是否有尾隨空格，除非您進行直接訪問讀取。

------------改進的答案

您需要做的是將整個行作為字符串讀取，然后從字符串中讀取整數：

read(unit,'(a)')comment
read(comment,*)m1,n1

此時， comment包含整行，其中包括您的兩個整數（也許會對您有所幫助）。 如果您想提取實際的字符串，則需要一些編碼（我有一個〜40行子例程將字符串拆分成單詞）。 我可以發表感激之情，但我更傾向於其他人鼓勵您查看您的代碼是否可以與更現代的編譯器一起使用。