24小时热门版块排行榜    

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

vivianich

新虫 (初入文坛)

[求助] 数组名做为文件名打开的问题

部分源程序如下:
      READ(5,8886)(LABL(I),I=1,10)
8886  FORMAT(10A2)
      OPEN(ICART,FILE=LABL,IOSTAT=IOS,STATUS='NEW',RECL=64,ERR=99,
     *      FORM='UNFORMATTED',ACCESS='DIRECT',MAXREC=MREC)
99    WRITE(INPUT,9998) IOS
9998  FORMAT(19HFETCH IOSTAT ERROR ,I3)
输入lalblcldlelflglhlilj,运行后即显示FETCH IOSTAT ERROR  36还有生成的文件名是lalblcldlelflglhlilj,我的理解是应该生成10个不同的文件,文件名分别为la,lb,lc。。。请教大家是我的理解有误吗,还是源程序写的不对?
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


dubo: 金币+1, 欢迎讨论 2012-05-25 09:55:11
而且 icart 也应该是一个数组……
3楼2012-05-25 08:00:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


感谢参与,应助指数 +1
dubo: 金币+1, 欢迎讨论 2012-05-25 09:55:05
我觉得 open 这一步应该没有向量化,所以,你最好用个循环来打开,这样应该可行……
2楼2012-05-25 08:00:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

vivianich

新虫 (初入文坛)


dubo: 金币+1, 欢迎讨论 2012-05-25 09:55:16
引用回帖:
3楼: Originally posted by snoopyzhao at 2012-05-25 08:00:52:
而且 icart 也应该是一个数组……

感谢回答,不过源程序里icart=34,不是数组形式,如果我用循环打开文件,是不是不可以将十个文件名在同一个单元名下打开呢?
4楼2012-05-25 09:41:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
vivianich: 金币+5, ★★★很有帮助 2012-05-28 09:39:28
很显然不行,一个 unit 只对应一个文件……
5楼2012-05-25 13:59:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见