Fortran Coder

查看: 10092|回复: 4
打印 上一主题 下一主题

[文件读写] 读取文件最后一行的数字

[复制链接]

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
楼主
发表于 2020-3-21 12:21:24 | 显示全部楼层
你这样做的话
if(index(str,"NODE")>0)then
就会判断到
LIST ALL SELECTED NODES. DSYS= 0
这一行,而不是你期望的
NODE X Y Z THXY THYZ  THZX
这一行

试试改为
str=adjustl(str)
if(index(str,"NODE")==1)then

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2020-3-21 14:13:13 | 显示全部楼层
if(str(:len(nodes))==nodes)then
下面你还得循环啊。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-10 07:03

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表