Можно ли в цикле как то имена файлов менять в операторе open?

@daviddavtyann · Регистрация: 21.05.2017

Значит.Нужно по очереди открыть много текстовых файлов и скопировать оттуда нужные строчки в другой
файлик. Я могу сделать это указав в программе имена всех этих файлов по очереди - каждый раз
open (1,file="1m.txt") и close (1) и внутри там что то делать. Имена файлов у меня отличаются цифрой в имени:
1m.txt 2m.txt 3m.txt ... Нельзя ли как то в цикле чтобы это происходило? ~~Типо~~

Fortran

   do i=1,n
       open (1,file=<i>m.txt)  !- знаете, как в спецификаторах как то делают что вместо 12f7.2 (12 столбцов 
                                      !  массива) пишут <x>f7.2 (x в теле программы как то считается) нельзя ли как то 
       close (1)                   ! что то похожее сделать, чтобы каждый раз не писать для каждого файла имя
   enddo                           ! CVF

спасибо!

@kushok · 21.05.2017, 20:13

Ну создайте текстовый массив имен, потом в цикле

Fortran

do i = 1000, 1050
    open (i, file=myFilenameArray(i))
 
    close(i)
end do

@Ivandur · 21.05.2017, 20:13

Заведи строковую переменную (character*100, например) загоняй туда числа и остальное(например write(fname,'(I2,'m.txt')')) и пиши open(1,file=fname).

@daviddavtyann · 21.05.2017, 22:21 **[ТС]**

Хех. Об этом что-то я не подумал. Спасибо! Попробую...

Можно ли в цикле как то имена файлов менять в операторе open?

Решение

Решение

@Ivandur 590 / 2338 / 236 Регистрация: 11.08.2016 Сообщений: 2,118
	21.05.2017, 20:13	3
	Сообщение было отмечено daviddavtyann как решение Решение Заведи строковую переменную (character*100, например) загоняй туда числа и остальное(например write(fname,'(I2,'m.txt')')) и пиши open(1,file=fname). 2

@daviddavtyann 0 / 0 / 1 Регистрация: 21.05.2017 Сообщений: 24
	21.05.2017, 22:21 [ТС]	4
	Хех. Об этом что-то я не подумал. Спасибо! Попробую... 0

Опции темы