Как правильно считывать символы из текстового файла?

@Malinka2001 · Регистрация: 23.03.2020

Author24 — интернет-сервис помощи студентам

Есть такой код:

Fortran

program test
    character str(50)
    open(1,FILE='test.txt')
    read(1,*) str
    write(*,*) str
end program

Задумка такая, что нужно прочитать и внести содержимое символьного файла (неизвестного размера) в какую-нибудь переменную для дальнейших действий.
Но если количество символов не совпадет с размером переменной (в меньшую сторону) , то выдает выдаёт ошибку.
Как правильно считать символы и текстового файла неизвестного размера, чтобы это не обрывалось ошибкой ?

@Krasme · 08.08.2020, 19:44

решение в лоб: сделать строку очень большой, затем использовать команду trim

Fortran

program test
    character(1000) str
    open(1,FILE='test.txt')
    read(1,*) str
    write(*,*) str,"|"
    write(*,*) trim(str),"|"
end program

@Malinka2001 · 08.08.2020, 20:31 **[ТС]**

Теперь выводится только 1й символ из файла (у меня это "1").

@Krasme · 08.08.2020, 20:33

приложите файл с текстом

@Malinka2001 · 08.08.2020, 20:36 **[ТС]**

обычный txt c содержанием (1 2 3 4 5 6 7 8 9 10)

@Krasme · 08.08.2020, 20:43

так строка должна читаться или числа?

Fortran

! строка
program test
    character(100) str
    open(1,FILE='test.txt')
    read(1,'(a,$)') str
    write(*,*) str
end program
 
! числа
program test
    integer num
    open(1,FILE='test.txt')
    do i=1,10
        read(1,'(i2,$)') num
        write(*,*) num
    enddo
end program

@Malinka2001 · 08.08.2020, 20:51 **[ТС]**

Извините за то, что неточно выразилась. Нужно было чтоб считывалось полное содержание файла (неизвестной величины) и записывалось в символьную строку

@chessman2 · 23.08.2020, 08:23

Возможно прочитать файл посимвольно
с подсчетом количества символов,
потом создать allocatable строку нужного размера
и перечитать файл в неё.

@nia73 · 11.09.2020, 15:07

Здравствуйте.
Предполагается:
1) символьная переменная длиннее строки файла.
2) в файле ОДНА строка (т.е. отсутствуют символы конца строки и переноса строки)

Ваш код:

Fortran

 program test
    character str(50)
    open(1,FILE='test.txt')
    read(1,*) str
    write(*,*) str
 end program

Сделайте изменения:
4 read(1,'(a)') str
В этом случае не будет ошибки по EOF
При использовании str в программе пользуйтесь функциями trim(str) (обрезает концевые пробелы) и len_trim(str) (возвращает количество символов без концевых пробелов)

@chessman2 · 18.09.2020, 12:07

Malinka2001,

Сначала вам нужно определить размер файла,
который будете читать.
Для этого используйте функцию

Fortran

1	inquire(unitvector, size=tot_len)

Не уверен, что эта возможность есть в фортран90,
она есть в фортран2003

@WH · 18.09.2020, 13:37

Никогда не использовал, но скорее всего должно быть во всех современных компиляторах. С 2003 года слава богу прошло 17 лет

@Malinka2001 1 / 1 / 0 Регистрация: 23.03.2020 Сообщений: 22
	08.08.2020, 20:31 [ТС]	3
	Теперь выводится только 1й символ из файла (у меня это "1"). 0

@Krasme 6830 / 4890 / 2065 Регистрация: 02.02.2014 Сообщений: 13,048
	08.08.2020, 20:33	4
	приложите файл с текстом 0

@Malinka2001 1 / 1 / 0 Регистрация: 23.03.2020 Сообщений: 22
	08.08.2020, 20:36 [ТС]	5
	обычный txt c содержанием (1 2 3 4 5 6 7 8 9 10) 0

@Malinka2001 1 / 1 / 0 Регистрация: 23.03.2020 Сообщений: 22
	08.08.2020, 20:51 [ТС]	7
	Извините за то, что неточно выразилась. Нужно было чтоб считывалось полное содержание файла (неизвестной величины) и записывалось в символьную строку 0

@chessman2 155 / 135 / 9 Регистрация: 21.10.2012 Сообщений: 413
	23.08.2020, 08:23	8
	Возможно прочитать файл посимвольно с подсчетом количества символов, потом создать allocatable строку нужного размера и перечитать файл в неё. 0

@WH 1577 / 807 / 189 Регистрация: 10.09.2013 Сообщений: 3,197 Записей в блоге: 3
	18.09.2020, 13:37	11
	Никогда не использовал, но скорее всего должно быть во всех современных компиляторах. С 2003 года слава богу прошло 17 лет 1