24小时热门版块排行榜    

查看: 639  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

yhwsmile

金虫 (小有名气)

[交流] 【求助】一个读文件问题,请教各位大虾…… 已有2人参与

读取文件遇到问题,请教各位大虾……
open那个地方怎么测试都通不过,请问这里怎么弄啊,谢谢……
例:
数据文件:r52653_5107.dat
config.txt内容:
inputpre    =  E:\cxbf\pre\data\
outlinian    =  E:\cxbf\pre\output\linian\
outleinian  =  E:\cxbf\pre\output\leinian\

程序部分:
        open(10,file='config.txt')
        read(10,'(15x,a50)')c(1)
        read(10,'(15x,a50)')c(2)
       
               do ii=1,3
           len1(ii)=len_trim(c(ii))
        end do
      
c        do istat=50000,59999
      do istat=52652,52653
           write(cstat,'(i5)')istat
      open(11,file=c(1)(1:len1(1))'r'//cstat//'_5107.dat',
     *status='old',err=999)
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

引用回帖:
Originally posted by dingxb at 2011-04-14 16:39:01:
在'r'前面加上//试试。
open(11,file=c(1)(1:len1(1))//'r'//cstat//'_5107.dat',
     *status='old',err=999)

OK了,谢谢咯……
3楼2011-04-14 17:57:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

dingxb

金虫 (正式写手)

迷途书虫

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
微尘、梦想(金币+1): 谢谢回复…… 2011-04-14 21:15:43
在'r'前面加上//试试。
open(11,file=c(1)(1:len1(1))//'r'//cstat//'_5107.dat',
     *status='old',err=999)
http://sites.google.com/site/nwnuatom/个人网站,欢迎猛击乱点!
2楼2011-04-14 16:39:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 15/750 2026-09-01 12:23 by icm639
[论文投稿] 小白求助 投论文要求的highlights应该如何写 5+3 l1963982152 2026-08-29 4/200 2026-09-01 09:04 by 北京莱茵编辑
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 21:30 by xiangy672
[文学芳草园] 梦想 +5 myrtle 2026-08-26 5/250 2026-08-31 14:40 by hahaboy
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
信息提示
请填处理意见