| 查看: 2256 | 回复: 1 | |||
[求助]
fortran直接读取文件 已有1人参与
|
|
求助各位大神，有一个文本文件，我想循环读取文件，比如要从2到5行，12到15行的数据，以此类推 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有12人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
【答案】应助回帖
★
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-07-05 12:47:16
感谢参与，应助指数 +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
200