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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 建立序列文件
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 710  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 081700化学工程与技术 一志愿中海洋 323 求调剂学校 +18 披星河 2026-04-03 18/900 2026-04-06 13:55 by BruceLiu320
[考研] 求调剂 +11 xzghyuj 2026-04-04 11/550 2026-04-06 11:49 by lijunpoly
[考研] 085600，320分求调剂 +16 大馋小子 2026-04-04 17/850 2026-04-06 07:58 by MOF_Catal
[考研] 308求调剂 +3 终不似从前 2026-04-05 3/150 2026-04-05 20:07 by 啵啵啵0119
[考研] 调剂 +3 李广火 2026-04-05 3/150 2026-04-05 18:57 by 蓝云思雨
[考研] 348求调剂 +6 wukira 2026-04-04 6/300 2026-04-05 18:11 by 猪会飞
[考研] 282求调剂 +7 aaa车辆 2026-04-02 11/550 2026-04-05 17:24 by yulian1987
[考研] 085600调剂 +9 东照照照 2026-04-04 9/450 2026-04-05 13:44 by ujn_zhuj
[考研] 电子信息调剂交叉学科有推荐吗 +6 jhtfeybgj 2026-04-01 9/450 2026-04-05 11:13 by 猪会飞
[考研] 考研调剂 +3 mcbbc 2026-04-04 3/150 2026-04-05 10:03 by barlinike
[考研] 341求调剂 +3 学无止境，冲 2026-04-05 3/150 2026-04-05 09:40 by lbsjt
[考研] 男生，一志愿沪9生物学071000，初试308求调剂 +3 刘墨墨 2026-04-04 3/150 2026-04-05 08:26 by barlinike
[考研] 292分，材料与化工，申请调剂 +22 程晴之 2026-04-01 26/1300 2026-04-04 22:03 by hemengdong
[考研] 319求调剂 +4 星星不眨眼喽 2026-04-03 4/200 2026-04-04 16:25 by 中飞院空管学院�
[考研] 调剂 +5 asdasdassda 2026-04-03 6/300 2026-04-03 20:27 by 岸上的一条鱼
[考研] 336求调剂 +8 kiyy 2026-04-01 8/400 2026-04-03 19:41 by lijunpoly
[考研] 0705理学294求调剂 +3 成果成果cg5 2026-04-03 3/150 2026-04-03 14:04 by simons1972
[考研] 一志愿华东理工大学，080500学硕，317分，求调剂 +13 s1145 2026-03-31 15/750 2026-04-03 11:44 by msi123
[考研] 农学考研求调剂 +3 dkdkxm 2026-04-01 3/150 2026-04-02 16:04 by wangjagri
[考研] 江苏苏北高校诚邀调剂同学 +3 zzll406 2026-03-31 3/150 2026-03-31 16:54 by 及时行乐fan
信息提示
关闭
请填处理意见
关闭