24小时热门版块排行榜    

查看: 2184  |  回复: 1

海饼干01

新虫 (初入文坛)

[求助] fortran直接读取文件 已有1人参与

求助各位大神,有一个文本文件,我想循环读取文件,比如要从2到5行,12到15行的数据,以此类推

发自小木虫Android客户端
回复此楼

» 猜你喜欢

莫愁前路无知己,天下谁人不识君
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rex0707

新虫 (初入文坛)

【答案】应助回帖


感谢参与,应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-07-05 12:47:16
INTEGER,PARAMETER :: SkipLine ! how many lines you want to skip, in your case SkipLine = 12-2 = 10
INTEGER :: Line1      ! in your case Line1 = 2
INTEGER :: MaxLine ! how many lines in your file

DO i = Line1 : MaxLine : SkipLine
    DO j = i : ReadNLine
        READ(UNIT,*) A(j)
    ENDDO
ENDDO

????????????????????
2楼2017-07-04 20:14:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 海饼干01 的主题更新
信息提示
请填处理意见