应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 建立序列文件
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 703  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

贺仪

铁杆木虫 (著名写手)

[求助] 建立序列文件

如题 我想建立100个文件怎么弄？
do 1=1,100
   open(………………)
   write（……………………）
end do
我想以这样的方式创建100个文件，然后分别写入数据，应该怎么用？
就比如一般的open这么用，这里
open(111,file='cif',status='old')
file这一项怎么写呢？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
嘟啦啦嘟啦啦嘟
1楼 2011-09-10 21:07:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
贺仪(金币+25): 恩 很好！刚才试过了。不过能不能稍微解释一下？ 2011-09-10 23:01:52
xzhdty(金币+2): 中秋快乐，欢迎常来 2011-09-10 23:29:39
看看这个：
CODE:
character(len=6) :: filename

do i=1,100
   write(filename,'(a,i0,a)') '(cif', i, ')'
   open(111, file = filename, status = 'old')
   write(111, *)....
end do
赞一下(1人) 回复此楼
2楼2011-09-10 21:25:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)
引用回帖:
2楼: Originally posted by snoopyzhao at 2011-09-10 21:25:17:
看看这个：
CODE:
character(len=6) :: filename

do i=1,100
   write(filename,'(a,i0,a)') '(cif', i, ')'
   open(111, file = filename, status = 'old')
   write(111, *)....
end do


恩  挺好的方法！！！多谢咯！
赞一下 回复此楼
嘟啦啦嘟啦啦嘟
3楼2011-09-10 23:01:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)
引用回帖:
2楼: Originally posted by snoopyzhao at 2011-09-10 21:25:17:
看看这个：
CODE:
character(len=6) :: filename

do i=1,100
   write(filename,'(a,i0,a)') '(cif', i, ')'
   open(111, file = filename, status = 'old')
   write(111, *)....
end do


character(len=6) :: filename

do i=1,100
   write(filename,'(a,i0,a)') '(cif', i, ')'  ！！！对变量filename 赋值为（cifi）
   open(111, file = filename, status = 'old')  ！！！！然后file的filename变量，创立文件是吧？
   write(111, *)....
end do
可不可以这样：
do i=1,100
   open(111, file = i, status = 'new')
   write(111, *)....
end do
赞一下 回复此楼
嘟啦啦嘟啦啦嘟
4楼2011-09-10 23:03:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)
write(filename,'(a,i0,a)') '(cif', i, ')'
这里面的a,是什么作用？
赞一下 回复此楼
嘟啦啦嘟啦啦嘟
5楼2011-09-10 23:10:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
xzhdty(金币+1): 中秋快乐，欢迎常来 2011-09-11 12:31:16
write(filename,'(a,i0,a)') '(cif', i, ')'

这句话的主要目的是生成 file 所对应的文件名，其中的 '(a,i0,a)' 表示的是这个 filename 的格式是由一个字符串 (a)、一个长度不定的整数 (i) 和 一个字符串 (a) 组成，比如 cif99 这样的，但在这里需要前后加上括号，所以对应的 filename  其实是 (cif99)...

具体详情，请查阅 fortran 标准中有关内部文件的说明……
赞一下(1人) 回复此楼
6楼2011-09-11 00:25:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
余泽成(金币+1): 中秋节快乐！ 2011-09-11 19:19:27
引用回帖:
4楼: Originally posted by 贺仪 at 2011-09-10 23:03:59:
character(len=6) :: filename

do i=1,100
   write(filename,'(a,i0,a)') '(cif', i, ')'  ！！！对变量filename 赋值为（cifi）
   open(111, file = filename, status = 'old')  ！！！！然后file的file ...

open 中的 file 要求后面的值是一个字符串，所以你不能直接把 i 赋给 file，呵呵……
赞一下(1人) 回复此楼
7楼2011-09-11 01:01:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 贺仪 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600，专业课化工原理，321分求调剂 +5 大馋小子 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
[考研] 085701求调剂初试286分 +4 secret0328 2026-03-28 4/200 2026-03-28 21:09 by 15366876211
[考研] 343求调剂 +5 爱羁绊 2026-03-28 5/250 2026-03-28 20:53 by 唐沐儿
[考研] 083000学硕274求调剂 +8 Li李鱼 2026-03-26 8/400 2026-03-28 20:33 by 加油向未来啊
[考研] 食品工程专硕一志愿中海洋309求调剂 +4 小张zxy张 2026-03-26 8/400 2026-03-28 19:25 by lbsjt
[考研] 085602 307分 求调剂 +7 不知道叫什么！ 2026-03-26 7/350 2026-03-28 09:57 by 神马都不懂
[考研] 292求调剂 +14 鹅鹅鹅额额额额� 2026-03-25 15/750 2026-03-28 08:45 by WYUMater
[考研] 085404求调剂，总分309，本科经历较为丰富 +4 来财aa 2026-03-25 4/200 2026-03-28 07:41 by 棒棒球手
[考研] 07化学280分求调剂 +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[考研] 308求调剂 +7 墨墨漠 2026-03-25 7/350 2026-03-27 14:47 by 狂炫麦当当
[考研] 317求调剂 +7 蛋黄咸肉粽 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[考研] 调剂 +4 柚柚yoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[考研] 求调剂 +8 Auroracx 2026-03-22 8/400 2026-03-26 19:55 by 不吃魚的貓
[考研] 生物学 296 求调剂 +4 朵朵- 2026-03-26 6/300 2026-03-26 19:01 by 不吃魚的貓
[考研] 一志愿 南京邮电大学 288分 材料考研 求调剂 +3 jl0720 2026-03-26 3/150 2026-03-26 13:39 by zzll406
[考研] 一志愿上海交大生物与医药专硕324分，求调剂 +6 jiajunX 2026-03-22 6/300 2026-03-25 23:05 by licg0208
[考研] 296求调剂 +4 汪！？！ 2026-03-25 7/350 2026-03-25 16:41 by 汪！？！
[考研] 0854电子信息求调剂 +7 α____ 2026-03-22 9/450 2026-03-25 13:37 by α____
[考研] 一志愿重庆大学085700资源与环境，总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] 070300，一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
信息提示
关闭
请填处理意见
关闭