24小时热门版块排行榜    

查看: 501  |  回复: 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的回帖

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

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的回帖
相关版块跳转 我要订阅楼主 yhwsmile 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见