Как проверить EOF/EOL с потоковым I/O в Fortran?

Question

Я хотел бы использовать потоковый ввод/вывод FORTRAN для создания программы, которая сообщает мне, сколько строк имеет текстовый файл. Идея заключается в том, чтобы сделать что-то вроде этого:

OPEN(UNIT=10,ACCESS='STREAM',FILE='testfile.txt') 

nLines=0 
bContinue=.TRUE. 

DO WHILE (bContinue) 
    READ(UNIT=10) cCharacter 
    IF (cCharacter.EQ.{EOL-char}) nLines=nLines+1 
    IF (cCharacter.EQ.{EOF-char}) bContinue=.FALSE. 
ENDDO 

(я не включил объявление переменной, но я думаю, вы получите представление о том, что они есть, единственное важное уточнение было бы, что это cCharacter имеет LEN = 1)

Моя проблема в том, что я не знаю, как проверить, является ли символ, который я только что прочитал из файла, это конец строки или конец файла («ifs» в коде). Когда вы читаете и печатаете символы таким образом, вы в конечном итоге получаете символы новой строки в том же месте, в котором вы были в исходном тексте, поэтому я думаю, что он читает и распознает их как «персонажей». Возможно, превращение символов в целые числа и сравнение с соответствующим числом? Или есть более прямой путь?

(Я знаю, что вы можете использовать чтение регистра (EDIT: я имел в виду чтение записей), чтобы сделать программу, которая легче читает строки и добавить IOstatus для проверки на eof, но «счетчик строк» ​​является просто полезным Например, идея состоит в том, чтобы научиться перемещаться более контролируемым образом через текстовый файл)

Answer 1

Проверка определенного символа в качестве терминатора линии делает вас зависимой от ОС. Было бы лучше использовать средства языка, чтобы ваша программа была компилятором и зависит от ОС. Поскольку строки - это в основном записи, зачем это делать с паровым вводом/выводом? Этот запрос, похоже, легко справляется с трудностями. Если можно использовать обычный IO, вот примерная программа для подсчета строк в текстовом файле.

EDIT: фрагмент кода был изменен на программу для ответа на вопросы в комментариях. Когда «строка» является символьной переменной, когда я тестирую программу с помощью gfortran и ifort, я не вижу проблемы, когда входной файл имеет пустые или пустые строки.

program test_lc 

use, intrinsic :: iso_fortran_env 

integer :: LineCount, Read_Code 
character (len=200) :: line 


open (unit=51, file="temp.txt", status="old", access='sequential', form='formatted', action='read') 

LineCount = 0 

ReadLoop: do 

    read (51, '(A)', iostat=Read_Code) line 

    if (Read_Code /= 0) then 
     if (Read_Code == iostat_end) then 
     exit ReadLoop ! end of file --> line count found 
     else 
     write (*, '(/ "read error: ", I0)') Read_Code 
     stop 
     end if 
    end if 

    LineCount = LineCount + 1 

    write (*, '(I0, ": ''", A, "''")') LineCount, trim (line) 
    if (len_trim (line) == 0) write (*, '("The above is an empty or all blank line.")') 

end do ReadLoop 

write (*, *) "found", LineCount, " lines" 

end program test_lc 

Если вы хотите продолжить обработку файла, вы можете перемотать его назад.

P.S.

Основная причина, по которой я использовал Fortran поток ввода-вывода для чтения файлов, полученных с помощью других языков, например, С

Портативные обеспечены способы для записи границы новой строки; Я не знаю о переносном методе для тестирования.