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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】fortran怎么读入文件名随输入量变化的文件
51/1返回列表
查看: 1114  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

anshenyu

铜虫 (小有名气)

[交流] 【求助】fortran怎么读入文件名随输入量变化的文件 已有2人参与

我有一系列的文件 分别是按照年份命名的
如果我需要打开譬如1949年的文件
应该怎么写open语句啊
open(2,file='iy.txt'),iy代表年份
这样好像实现不了啊
回复此楼

» 猜你喜欢
1楼 2010-02-21 09:49:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hrzhou

铁杆木虫 (著名写手)

一品黄梅
★
jjdg(金币+1):辛苦了 2010-04-18 00:40
如果有规律的话，用循环语句把文件名写到一个字符变量中，在open语句中用该字符变量作为文件名就可以了。

[ Last edited by hrzhou on 2010-4-17 at 21:45 ]
赞一下(1人) 回复此楼
4楼2010-04-17 21:43:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

yf0534

至尊木虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
woshilsh(金币+1):thanks 2010-02-21 10:01
可以把文件名设为一个字符变量，然后通过一个数据文件读入该变量，这样，只要在数据文件中的数据就能达到打开不同文件的目的了
赞一下(2人) 回复此楼
2楼2010-02-21 09:54:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

黄胖胖

木虫 (正式写手)
★ ★
jjdg(金币+1):辛苦了 2010-02-21 19:04
jjdg(金币+1):春节快乐 2010-02-21 19:04
把文件名写到文本里去,再读出来即可
赞一下(2人) 回复此楼
3楼2010-02-21 14:07:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mingkeng

至尊木虫 (正式写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2):谢谢参与应助！ 2010-04-17 22:26
自己编写一个把数字转换成字符变量的子程序即可！

                        subroutine date2num(num,date,yr,mon,dy)
!**************************************************************************************
!  transform the date of integer into the type of character

      character*10 date
                        integer num1,num2,num3,num4,num5,num6,num7,num8,num9,num0,yr,mon,dy
                        integer dys
      integer*4 num

      num1=num/10e8  
                        num2=(num-num1*10e8)/10e7   
      num3=(num-num1*10e8-num2*10e7)/10e6     
                        num4=(num-num1*10e8-num2*10e7-num3*10e6)/10e5   
                        num5=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5)/10e4   
                        num6=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5-num5*10e4)/10e3   
                        num7=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5-num5*10e4-num6*10e3)/10e2   
                        num8=(num-num1*10e8-num2*10e7-num3*10e6-num4*10e5-num5*10e4-num6*10e3-num7*10e2)/10e1     
                        num9=0   
                        num0=0   

      yr=num1*1000+num2*100+num3*10+num4
                        mon=num5*10+num6
                        dy=num7*10+num8

      date=char(num1+48)//char(num2+48)//char(num3+48)//   &
                                                char(num4+48)//char(num5+48)//char(num6+48)//   &
                                          char(num7+48)//char(num8+48)//char(num9+48)//   &
                                                char(num0+48)
!**********************************transformation end**********************************
      end subroutine

上述子程序是考虑年月日时的，你的问题更简单！

[ Last edited by mingkeng on 2010-4-17 at 21:54 ]
赞一下(2人) 回复此楼
5楼2010-04-17 21:52:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 申请科研项目纯靠实力能成功吗？ 200+3 David1982 2026-10-13 6/300 2026-10-14 11:14 by 北京莱茵编辑
[有机交流] OpenAI又攻克数学难题了，离AI做有机合成还有多远？ +8 wangyl_123 2026-10-10 12/600 2026-10-13 20:40 by Merryya
[硕博家园] 极限拉扯，如何抉择 +9 Isak0320 2026-10-12 13/650 2026-10-13 11:57 by Isak0320
[教师之家] 课题组会帮你通过考核么？ +4 好运来～9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷！
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 我应该选哪条合成路线让实验成功率高一些？ +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
关闭
请填处理意见
关闭