Fortran Coder

标题: 读取文件最后一行的数字 [打印本页]

作者: 18229702011 时间: 2020-3-21 11:47
标题: 读取文件最后一行的数字

[Fortran] 纯文本查看 复制代码

program test

    implicit none

    integer:: error,count=0

    character(len=512) str

    

    open(12,file="NLIST.txt")

   do

    read(12,'(a512)',iostat=error)str

    if(error/=0)exit

    

    if(index(str,"NODE")>0)then

        read(12,'(a512)',iostat=error)str

        if(error/=0)exit

        COUNT=COUNT+1

        

    end if

    end do

    close(12)

    write(*,*)count    end program

各位老师好，我有这样一个问题：1*我想读取如图所示文件的NODE数，也就是最后一行的第一个数字，然后配置数组把NODE节点信息放进数组里。
我这样想，先定位到NODE那一行，然后开始读下面的行，每读一行计数一次，累加在一起就得到了有几个NODE，程序是这样写的。但程序的结果是2。不知道思路对不对。接下来再配置数组，可是我卡在了第一步。

QQ截图20200321113341.png (51.46 KB, 下载次数: 245)

作者: vvt 时间: 2020-3-21 12:21
你这样做的话
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

作者: 18229702011 时间: 2020-3-21 13:00
老师换成了你说的
str=adjustl(str)
if(index(str,"NODE")==1)then
还是不对，结果是1，我要读的是以NODE开头那行下面有数字的4行，程序的正确结果应该是4才对。我的意思是从数字1那行开始计数，读一行加1，读到第四行就是4。

然后我又想了这个方法：

[Fortran] 纯文本查看 复制代码

program test

    implicit none

    integer:: error,count=0

    character,parameter::nodes="NODE"

    character(len=512) str

    

    open(12,file="NLIST.txt")

   do

    read(12,'(a512)',iostat=error)str

    if(error/=0)exit

    

     str=adjustl(str)

    if(str(:len(nodes))==nodes)then

        read(12,'(a512)',iostat=error)str

        if(error/=0)exit

        COUNT=COUNT+1

    end if

    end do

    close(12)

    write(*,*)count

    end program

结果还是1，

综上，所以我觉得问题是定位到了以NODE开头哪一行后，程序接下来的命令是不是只读了一行？根本就没有读到以数字4开头哪一行.所以结果才是1的。是不是这个问题？

NLIST.txt

466 Bytes, 下载次数: 3

作者: vvt 时间: 2020-3-21 14:13
if(str(:len(nodes))==nodes)then
下面你还得循环啊。

作者: 18229702011 时间: 2020-3-21 14:15
我解决了，是程序的问题，谢谢答复，又学到了，加油

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)