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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】fortran怎么读入文件名随输入量变化的文件
51/1返回列表
查看: 953  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

anshenyu

铜虫 (小有名气)

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

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

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

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的回帖

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的回帖

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的回帖
相关版块跳转 我要订阅楼主 anshenyu 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 k37jurhrau 2026-05-16 4/200 2026-05-17 01:35 by ue3ir18jc3
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:25 by ue3ir18jc3
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 ky2p12rrjj 2026-05-15 5/250 2026-05-17 01:10 by ue3ir18jc3
[基金申请] 精华III:  评审感受-评审感受-评审感受 +16 ferrarichen 2026-05-11 20/1000 2026-05-17 01:10 by 南开小綦
[基金申请] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 3/150 2026-05-17 00:55 by ue3ir18jc3
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 3/150 2026-05-17 00:45 by ue3ir18jc3
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:35 by ue3ir18jc3
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 v9tggjlwd0 2026-05-15 5/250 2026-05-17 00:32 by xiangfeng
[基金申请] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:30 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:25 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 v9tggjlwd0 2026-05-15 3/150 2026-05-17 00:05 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 7/350 2026-05-16 23:17 by ue3ir18jc3
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 l7k6xnh0yc 2026-05-14 6/300 2026-05-16 22:55 by ue3ir18jc3
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 xx7gd5zq4e 2026-05-15 6/300 2026-05-16 22:25 by lindoudou
[基金申请] 重磅！青年科学基金项目（C类）资助增幅预计超过50% +6 水和泥不是水泥 2026-05-13 8/400 2026-05-16 19:50 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-16 17:45 by j6b2pdz07o
[有机交流] 求有机合成大神指点三硫酸乙烯酯（CAS：2793408-99-6）的合成路线 30+3 Leekmid 2026-05-13 10/500 2026-05-16 16:37 by czyzsu
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 cjf4bx70cj 2026-05-14 6/300 2026-05-16 16:17 by 0i5p09z61n
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
信息提示
关闭
请填处理意见
关闭