Форум программистов, компьютерный форум, киберфорум
Fortran
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Fortran Вывод массива в файл https://www.cyberforum.ru/ fortran/ thread1981807.html
Всем, привет. Я новичок, осваиваю фортран для задач МКЭ. Заранее полагаю, что вопрос глупый, но сам сообразить не могу и ответа в инете найти не смог. Фортран f90 видимо, раз расширение файла...
Codeblocks Fortran
Здравствуйте! Можете помочь мне решить матрицу?( на codeblocks) (Заранее спасибо!) Сформировать квадратную матрицу для n=40 по заданному образцу. В полученной матрице вычислять сумму элементов 3-го...
Fortran Сформировать квадратную матрицу по заданному образцу, вычислить в ней сумму элементов 3-го столбца
Здравствуйте! Можете помочь мне решить матрицу? (Заранее спасибо!) Сформировать квадратную матрицу для n=40 по заданному образцу. В полученной матрице вычислять сумму элементов 3-го столбца. 1 ...
Fortran Работа с файлами Добрый день! У меня такой вопрос, есть несколько файлов с Однотипными данными, и к ним нужно применить одни и те же операции (преобразовать каким-то образом и перезаписать). Раньше данные были... https://www.cyberforum.ru/ fortran/ thread1976293.html
Fortran Нужно протабулировать функцию https://www.cyberforum.ru/ fortran/ thread1972877.html
Составьте программу по данному скрину, помогите.
Двумерный массив, нужно найти минимальное из четных чисел Fortran
Если убрать 2условие в if , то работает. А при добавлении целочисленного деления, просто выводит первое значение из матрицы
надо завершить.Кажется там есть ошибки Fortran
paramaster(n=101,n1=100) double precision u,u1,v,v1,w,w1,p,p1,r,r1,gam,x dimension u(n),u1(n),u2(n),v(n),v1(n),),r2(n),w(n),w1(n),p(n), *p1(n),p2(n),r(n),r1(n),x(n),e1(n),e2(n),f(n) common/b1/h,t...
Fortran Чтение из бинарных файлов Добрый вечер! Подскажите пожалуйста. Есть два бинарных файла. Есть программа, которая читает данные из них. Причём из одного она читает их правильно, а при чтение другого возникает ошибка Fortran... https://www.cyberforum.ru/ fortran/ thread1968771.html
Fortran Запись в файл https://www.cyberforum.ru/ fortran/ thread1964659.html
WRITE (13,2004)T,PL,(PO(I),I=1,N),PR 2004 FORMAT(103F8.2) WRITE (14,2005)T,(SW(I),I=1,N) 2005 FORMAT(F8.2,101F8.4) WRITE (15,2006)T,PL,QWI,PR,QOP,QWP,WC 2006 FORMAT(7F8.2)...
Fortran Метод простой итерации решения СЛАУ Кто разбирается в фонтане, нужна помощь в написании небольшой программы. Метод простой итерации решения СЛАУ. Прийду любые предложения. Срочно https://www.cyberforum.ru/ fortran/ thread1963115.html
0 / 0 / 1
Регистрация: 21.05.2017
Сообщений: 24
0

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

21.05.2017, 00:49. Просмотров 1744. Ответов 3
Метки (Все метки)

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

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

Вернуться к обсуждению:
Можно ли в цикле как то имена файлов менять в операторе open?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2017, 00:49
Готовые ответы и решения:

MS Index Server Можно ли индексировать только имена файлов?
Есть большой каталог программ на сервере под Linux, посему одной светлой голове пришло в голову, а...

Как менять синус на косинус и наоборот в цикле
Как менять синус на косинус и наоборот в цикле

Как можно прервать выполнение в условном операторе?
Как можно прервать выполнение в условном операторе: if ... then ... else 'прервать' end if...

Как менять свойства сразу нескольких объектов в цикле?
Суть в том, что у меня много numericUpDown и один CheckBox. При установки значения...

3
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.